From 03c0a828b7bd8021bf8f03a79ee70e3811a98309 Mon Sep 17 00:00:00 2001 Message-Id: <03c0a828b7bd8021bf8f03a79ee70e3811a98309.1714279184.git.mdw@distorted.org.uk> From: Mark Wooding Date: Thu, 10 May 2007 20:21:25 +0000 Subject: [PATCH] Manually defined slots column-spacing and row-spacing for table Organization: Straylight/Edgeware From: espen --- gtk/gtktypes.lisp | 26 +++++++++++--------------- 1 file changed, 11 insertions(+), 15 deletions(-) diff --git a/gtk/gtktypes.lisp b/gtk/gtktypes.lisp index 3e2ce3a..14d4f9a 100644 --- a/gtk/gtktypes.lisp +++ b/gtk/gtktypes.lisp @@ -20,7 +20,7 @@ ;; TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE ;; SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE. -;; $Id: gtktypes.lisp,v 1.53 2007-01-14 23:22:19 espen Exp $ +;; $Id: gtktypes.lisp,v 1.54 2007-05-10 20:21:25 espen Exp $ (in-package "GTK") @@ -628,20 +628,16 @@ (default-height :merge t :unbound -1))) ; deprecated property ((shadow :ignore t))) -;; ("GtkTable" -;; :slots -;; ((column-spacing -;; :allocation :virtual -;; :getter "gtk_table_get_default_col_spacing" -;; :setter "gtk_table_set_col_spacings" -;; :initarg :column-spacing -;; :type unsigned-int) -;; (row-spacing -;; :allocation :virtual -;; :getter "gtk_table_get_default_row_spacing" -;; :setter "gtk_table_set_row_spacings" -;; :initarg :row-spacing -;; :type unsigned-int))) + ("GtkTable" + :slots + ((column-spacing + :allocation :property :pname "column-spacing" + :initarg :column-spacing + :type unsigned-int) + (row-spacing + :allocation :property :pname "row-spacing" + :initarg :row-spacing + :type unsigned-int))) ("GtkDialog" :slots -- [mdw]