[cells-cvs] CVS update: cell-cultures/cells-gtk-root/gtk-ffi/gtk-ffi.lisp

Kenny Tilton ktilton at common-lisp.net
Sun Dec 5 04:50:32 UTC 2004


Update of /project/cells/cvsroot/cell-cultures/cells-gtk-root/gtk-ffi
In directory common-lisp.net:/tmp/cvs-serv7571/cells-gtk-root/gtk-ffi

Modified Files:
	gtk-ffi.lisp 
Log Message:
Cleaning up
Date: Sun Dec  5 05:50:26 2004
Author: ktilton

Index: cell-cultures/cells-gtk-root/gtk-ffi/gtk-ffi.lisp
diff -u cell-cultures/cells-gtk-root/gtk-ffi/gtk-ffi.lisp:1.1 cell-cultures/cells-gtk-root/gtk-ffi/gtk-ffi.lisp:1.2
--- cell-cultures/cells-gtk-root/gtk-ffi/gtk-ffi.lisp:1.1	Thu Nov 18 12:53:26 2004
+++ cell-cultures/cells-gtk-root/gtk-ffi/gtk-ffi.lisp	Sun Dec  5 05:50:25 2004
@@ -145,11 +145,11 @@
   (user_data3 c-pointer))
 
 (def-gtk-lib-functions :gtk
-  ;; main-loop
-  (gtk-init ((argc (c-ptr-null int))
-	     (argv c-pointer)))
+    ;; main-loop
+    (gtk-init ((argc (c-ptr-null int))
+               (argv c-pointer)))
   (gtk-init-check ((argc (c-ptr-null int))
-		   (argv c-pointer))
+                   (argv c-pointer))
     boolean)
   (gtk-events-pending ()
     boolean)
@@ -161,302 +161,302 @@
   (gtk-main-quit ())
   (gtk-get-current-event-time ()
     uint32)
-
+  
   ;;container
   (gtk-container-add ((container c-pointer)
-		      (widget  c-pointer))
-       c-pointer)
+                      (widget  c-pointer))
+    c-pointer)
   (gtk-container-remove ((container c-pointer)
-			 (widget c-pointer)))
-
+                         (widget c-pointer)))
+  
   ;;box
   (gtk-box-pack-start ((box c-pointer)
-		       (widget c-pointer)
-		       (expand boolean)
-		       (fill boolean)
-		       (padding int)))
+                       (widget c-pointer)
+                       (expand boolean)
+                       (fill boolean)
+                       (padding int)))
   (gtk-box-pack-start-defaults ((box c-pointer)
-				(widget c-pointer)))
+                                (widget c-pointer)))
   (gtk-box-set-homogeneous ((box c-pointer)
-			     (homogeneous boolean)))
+                            (homogeneous boolean)))
   (gtk-box-set-spacing ((box c-pointer)
-			(spacing int)))
+                        (spacing int)))
   (gtk-hbox-new ((homogeneous boolean)
-		 (spacing int))
+                 (spacing int))
     c-pointer)
   (gtk-vbox-new ((homogeneous boolean)
-		 (spacing int))
+                 (spacing int))
     c-pointer)
-
+  
   ;;table
   (gtk-table-new ((rows uint)
-		  (columns uint)
-		  (homogeneous boolean))
+                  (columns uint)
+                  (homogeneous boolean))
     c-pointer)
   (gtk-table-attach ((table c-pointer)
-		     (child c-pointer)
-		     (l-attach uint)
-		     (r-attach uint)
-		     (t-attach uint)
-		     (b-attach uint)
-		     (x-options int)
-		     (y-options int)
-		     (x-padding int)
-		     (y-padding int)))
+                     (child c-pointer)
+                     (l-attach uint)
+                     (r-attach uint)
+                     (t-attach uint)
+                     (b-attach uint)
+                     (x-options int)
+                     (y-options int)
+                     (x-padding int)
+                     (y-padding int)))
   (gtk-table-attach-defaults ((table c-pointer)
-			      (child c-pointer)
-			      (l-attach uint)
-			      (r-attach uint)
-			      (t-attach uint)
-			      (b-attach uint)))
+                              (child c-pointer)
+                              (l-attach uint)
+                              (r-attach uint)
+                              (t-attach uint)
+                              (b-attach uint)))
   (gtk-table-set-homogeneous ((table c-pointer)
-			     (homogeneous boolean)))
-
+                              (homogeneous boolean)))
+  
   ;;paned
   (gtk-paned-add1 ((paned c-pointer)
-		   (child c-pointer)))
+                   (child c-pointer)))
   (gtk-paned-add2 ((paned c-pointer)
-		   (child c-pointer)))
+                   (child c-pointer)))
   (gtk-hpaned-new ()
     c-pointer)
   (gtk-vpaned-new ()
     c-pointer)
-
+  
   ;;expander
   (gtk-expander-new ((label c-string))
     c-pointer)
   (gtk-expander-set-expanded ((expander c-pointer)
-			      (expanded boolean)))
+                              (expanded boolean)))
   (gtk-expander-set-spacing ((expander c-pointer)
-			     (spacing c-pointer)))
+                             (spacing c-pointer)))
   (gtk-expander-set-label ((expander c-pointer)
-			   (label c-pointer)))
+                           (label c-pointer)))
   (gtk-expander-set-use-underline ((expander c-pointer)
-				   (use-underline boolean)))
+                                   (use-underline boolean)))
   (gtk-expander-set-use-markup ((expander c-pointer)
-				(use-markup boolean)))
+                                (use-markup boolean)))
   (gtk-expander-set-label-widget ((expander c-pointer)
-				  (label-widget c-pointer)))
-
+                                  (label-widget c-pointer)))
+  
   ;;alignment 
   (gtk-alignment-new ((xalign single-float)
-		      (yalign single-float)
-		      (xscale single-float)
-		      (yscale single-float))
+                      (yalign single-float)
+                      (xscale single-float)
+                      (yscale single-float))
     c-pointer)
   (gtk-alignment-set ((alignment c-pointer)
-		      (xalign single-float)
-		      (yalign single-float)
-		      (xscale single-float)
-		      (yscale single-float)))
+                      (xalign single-float)
+                      (yalign single-float)
+                      (xscale single-float)
+                      (yscale single-float)))
   
   ;;frame
   (gtk-frame-new ((label c-string))
     c-pointer)
   (gtk-frame-set-label ((frame c-pointer)
-			(label c-pointer)))
+                        (label c-pointer)))
   (gtk-frame-set-label-widget ((frame c-pointer)
-			 (label-widget c-pointer)))
+                               (label-widget c-pointer)))
   (gtk-frame-set-label-align ((frame c-pointer)
-			      (xalign single-float)
-			      (yalign single-float)))
+                              (xalign single-float)
+                              (yalign single-float)))
   (gtk-frame-set-shadow-type ((frame c-pointer)
-			      (shadow-type int)))
+                              (shadow-type int)))
   
   ;;aspect-frame
   (gtk-aspect-frame-new ((label c-string)
-			 (xalign single-float)
-			 (yalign single-float)
-			 (ratio single-float)
-			 (obey_child boolean))
+                         (xalign single-float)
+                         (yalign single-float)
+                         (ratio single-float)
+                         (obey_child boolean))
     c-pointer)
-
+  
   ;;separetor
   (gtk-hseparator-new ()
     c-pointer)
   (gtk-vseparator-new ()
     c-pointer)
-
+  
   ;;scrolling
   (gtk-scrolled-window-new ((hadjustment c-pointer)
-			    (vadjustment c-pointer))
+                            (vadjustment c-pointer))
     c-pointer)
   (gtk-scrolled-window-set-policy ((scrolled-window c-pointer)
-				   (h-policy int)
-				   (v-policy int)))
+                                   (h-policy int)
+                                   (v-policy int)))
   (gtk-scrolled-window-add-with-viewport ((scrolled-window c-pointer)
-					  (child c-pointer)))
+                                          (child c-pointer)))
   (gtk-scrolled-window-set-placement ((scrolled-window c-pointer)
-				      (placement int)))
+                                      (placement int)))
   (gtk-scrolled-window-set-shadow-type ((scrolled-window c-pointer)
-					(type int)))
-
+                                        (type int)))
+  
   ;;notebook 
   (gtk-notebook-new ()
     c-pointer)
   (gtk-notebook-append-page ((notebook c-pointer)
-			     (child c-pointer)
-			     (tab-label c-pointer))
+                             (child c-pointer)
+                             (tab-label c-pointer))
     int)
   (gtk-notebook-append-page-menu ((notebook c-pointer)
-				  (child c-pointer)
-				  (tab-label c-pointer)
-				  (menu-label c-pointer))
+                                  (child c-pointer)
+                                  (tab-label c-pointer)
+                                  (menu-label c-pointer))
     int)
   (gtk-notebook-prepend-page ((notebook c-pointer)
-			     (child c-pointer)
-			     (tab-label c-pointer))
+                              (child c-pointer)
+                              (tab-label c-pointer))
     int)
   (gtk-notebook-prepend-page-menu ((notebook c-pointer)
-				  (child c-pointer)
-				  (tab-label c-pointer)
-				  (menu-label c-pointer))
+                                   (child c-pointer)
+                                   (tab-label c-pointer)
+                                   (menu-label c-pointer))
     int)
   (gtk-notebook-insert-page ((notebook c-pointer)
-			     (child c-pointer)
-			     (tab-label c-pointer)
-			     (pos int))
+                             (child c-pointer)
+                             (tab-label c-pointer)
+                             (pos int))
     int)
   (gtk-notebook-insert-page-menu ((notebook c-pointer)
-				  (child c-pointer)
-				  (tab-label c-pointer)
-				  (menu-label c-pointer)
-				  (pos int))
+                                  (child c-pointer)
+                                  (tab-label c-pointer)
+                                  (menu-label c-pointer)
+                                  (pos int))
     int)
   (gtk-notebook-remove-page ((notebook c-pointer)
-			     (page-num int)))
+                             (page-num int)))
   (gtk-notebook-set-current-page ((notebook c-pointer)
-				  (page-num int)))
+                                  (page-num int)))
   (gtk-notebook-set-tab-pos ((notebook c-pointer)
-			     (pos int)))
+                             (pos int)))
   (gtk-notebook-set-show-tabs ((notebook c-pointer)
-			       (show-tabs boolean)))
+                               (show-tabs boolean)))
   (gtk-notebook-set-show-border ((notebook c-pointer)
-				 (show-border boolean)))
+                                 (show-border boolean)))
   (gtk-notebook-set-scrollable ((notebook c-pointer)
-			       (scrollable boolean)))
+                                (scrollable boolean)))
   (gtk-notebook-set-tab-border ((notebook c-pointer)
-				(border-width int)))
+                                (border-width int)))
   (gtk-notebook-popup-enable ((notebook c-pointer)))
   (gtk-notebook-popup-disable ((notebook c-pointer)))
   (gtk-notebook-set-homogeneous-tabs ((notebook c-pointer)
-				      (homogeneous-tabs boolean)))
-
+                                      (homogeneous-tabs boolean)))
+  
   ;;label
   (gtk-label-new ((text c-pointer))
     c-pointer)
   (gtk-label-set-text ((label c-pointer)
-		       (text c-pointer)))
+                       (text c-pointer)))
   (gtk-label-set-text-with-mnemonic ((label c-pointer)
-				     (text c-pointer)))
+                                     (text c-pointer)))
   (gtk-label-set-line-wrap ((label c-pointer)
-			    (wrap boolean)))
+                            (wrap boolean)))
   (gtk-label-set-selectable ((label c-pointer)
-			     (selectable boolean)))
+                             (selectable boolean)))
   (gtk-label-set-use-markup ((label c-pointer)
-			     (use-markup boolean)))
+                             (use-markup boolean)))
   (gtk-label-set-markup ((label c-pointer)
-			 (markup c-pointer)))
+                         (markup c-pointer)))
   (gtk-label-set-markup-with-mnemonic ((label c-pointer)
-				       (markup c-pointer)))
-
+                                       (markup c-pointer)))
+  
   (gtk-accel-label-new ((str c-pointer))
     c-pointer)
   (gtk-accel-label-set-accel-widget ((label c-pointer)
-				     (widget c-pointer)))
-
+                                     (widget c-pointer)))
+  
   ;;progress
   (gtk-progress-bar-new ()
     c-pointer)
   (gtk-progress-bar-pulse ((pbar c-pointer)))
   (gtk-progress-bar-set-text ((pbar c-pointer)
-			      (text c-string)))
+                              (text c-string)))
   (gtk-progress-bar-set-fraction ((pbar c-pointer)
-				  (fraction double-float)))
+                                  (fraction double-float)))
   (gtk-progress-bar-set-pulse-step ((pbar c-pointer)
-				    (fraction double-float)))
+                                    (fraction double-float)))
   (gtk-progress-bar-set-orientation ((pbar c-pointer)
-				     (orientation int)))				    
+                                     (orientation int)))				    
   (gtk-progress-bar-set-bar-style ((pbar c-pointer)
-				   (style int)))
+                                   (style int)))
   (gtk-progress-bar-set-discrete-blocks ((pbar c-pointer)
-					 (blocks uint)))
+                                         (blocks uint)))
   (gtk-progress-bar-set-activity-step ((pbar c-pointer)
-				       (step uint)))
+                                       (step uint)))
   (gtk-progress-bar-set-activity-blocks ((pbar c-pointer)
-					 (blocks uint)))
+                                         (blocks uint)))
   (gtk-progress-bar-update ((pbar c-pointer)
-			    (percentage double-float)))
-
+                            (percentage double-float)))
+  
   ;;image 
   (gtk-image-new-from-file ((filename c-string))
     c-pointer)
   (gtk-image-new-from-stock ((stock c-string)
-			     (icon-size int))
+                             (icon-size int))
     c-pointer)
   (gtk-image-set-from-stock ((image c-pointer)
-			     (stock c-string)
-			     (icon-size int)))
+                             (stock c-string)
+                             (icon-size int)))
   (gtk-image-get-pixbuf ((image c-pointer))
     c-pointer)
-
+  
   ;;statusbar
   (gtk-statusbar-new ()
     c-pointer)
   (gtk-statusbar-get-context-id ((sbar c-pointer)
-				 (description c-string))
-     uint)
+                                 (description c-string))
+    uint)
   (gtk-statusbar-push ((sbar c-pointer)
-		       (context-id uint)
-		       (text c-pointer))
+                       (context-id uint)
+                       (text c-string))
     uint)
   (gtk-statusbar-pop ((sbar c-pointer)
-		      (context-id uint)))
+                      (context-id uint)))
   (gtk-statusbar-remove ((sbar c-pointer)
-			 (context-id uint)
-			 (message-id uint)))
+                         (context-id uint)
+                         (message-id uint)))
   (gtk-statusbar-set-has-resize-grip ((sbar c-pointer)
-				      (setting boolean)))
- 
+                                      (setting boolean)))
+  
   ;;widget
   (gtk-widget-show ((widget c-pointer)))
   (gtk-widget-show-all ((widget c-pointer)))
   (gtk-widget-hide ((widget c-pointer)))
   (gtk-widget-destroy ((widget c-pointer)))
   (gtk-widget-set-sensitive ((widget c-pointer)
-			     (sensitive boolean)))
+                             (sensitive boolean)))
   (gtk-widget-set-size-request ((widget c-pointer)
-				(width int)
-				(height int)))
+                                (width int)
+                                (height int)))
   (gtk-widget-get-parent-window ((widget c-pointer))
     c-pointer)
   (gtk-widget-add-accelerator ((widget c-pointer)
-			       (gsignal c-string)
-			       (accel-group c-pointer)
-			       (key uint)
-			       (mods int)
-			       (flags int)))
+                               (gsignal c-string)
+                               (accel-group c-pointer)
+                               (key uint)
+                               (mods int)
+                               (flags int)))
   (gtk-widget-grab-focus ((widget c-pointer)))
-
+  
   ;;window
   (gtk-window-new ((type int))
-       c-pointer)  
+    c-pointer)  
   (gtk-window-set-title ((widget c-pointer)
-			 (title c-pointer)))
+                         (title c-pointer)))
   (gtk-window-set-icon-from-file ((window c-pointer)
-				  (filename c-string)
-				  (err c-pointer))
+                                  (filename c-string)
+                                  (err c-pointer))
     boolean)
   (gtk-window-set-default-size ((widget c-pointer)
-				(width int)
-				(height int)))
+                                (width int)
+                                (height int)))
   (gtk-window-set-resizable ((widget c-pointer)
-			     (resizable boolean)))
+                             (resizable boolean)))
   (gtk-window-set-decorated ((widget c-pointer)
-			     (decorated boolean)))
+                             (decorated boolean)))
   (gtk-window-set-auto-startup-notification ((setting boolean)))
   (gtk-window-set-position ((widget c-pointer)
-			    (position int)))
+                            (position int)))
   (gtk-window-maximize ((widget c-pointer)))
   (gtk-window-unmaximize ((widget c-pointer)))
   (gtk-window-iconify ((widget c-pointer)))
@@ -464,236 +464,236 @@
   (gtk-window-fullscreen ((widget c-pointer)))
   (gtk-window-unfullscreen ((widget c-pointer)))
   (gtk-window-add-accel-group ((window c-pointer)
-			       (accel-group c-pointer)))
-
+                               (accel-group c-pointer)))
+  
   ;;button
   (gtk-button-new ()
-     c-pointer)
+    c-pointer)
   (gtk-button-set-label ((button c-pointer)
-			 (label c-pointer)))
+                         (label c-pointer)))
   (gtk-button-set-relief ((button c-pointer)
-			  (style int)))
+                          (style int)))
   (gtk-button-set-use-stock ((button c-pointer)
-			     (use-stock boolean)))
+                             (use-stock boolean)))
   ;;toggle-button
   (gtk-toggle-button-new ()
-     c-pointer)
+    c-pointer)
   (gtk-toggle-button-set-mode ((button c-pointer)
-			       (draw-indicator boolean)))
+                               (draw-indicator boolean)))
   (gtk-toggle-button-set-active ((button c-pointer)
-				 (active boolean)))
+                                 (active boolean)))
   (gtk-toggle-button-get-active ((button c-pointer))
-     boolean)
+    boolean)
   ;;check-button
   (gtk-check-button-new ()
-     c-pointer)
+    c-pointer)
   ;;radio-button
   (gtk-radio-button-new ((gslist c-pointer))
-     c-pointer)
+    c-pointer)
   (gtk-radio-button-new-from-widget ((radio-group c-pointer))
-     c-pointer)
+    c-pointer)
   
   ;;entry
   (gtk-entry-new ()
-     c-pointer)
+    c-pointer)
   (gtk-entry-set-text ((entry c-pointer)
-		       (text c-pointer)))
+                       (text c-pointer)))
   (gtk-entry-get-text ((entry c-pointer))
-     c-pointer)
+    c-pointer)
   (gtk-entry-set-max-length ((entry c-pointer)
-			     (max-length int)))
+                             (max-length int)))
   (gtk-entry-set-editable ((entry c-pointer)
-			   (editable boolean)))
+                           (editable boolean)))
   (gtk-entry-set-completion ((entry c-pointer)
-			     (completion c-pointer)))
+                             (completion c-pointer)))
   (gtk-entry-set-has-frame ((entry c-pointer)
-			    (has-frame boolean)))
-
+                            (has-frame boolean)))
+  
   ;;entry-completion
   (gtk-entry-completion-new ()
     c-pointer)
   (gtk-entry-completion-set-model ((completion c-pointer)
-				   (model c-pointer)))
+                                   (model c-pointer)))
   (gtk-entry-completion-set-text-column ((completion c-pointer)
-					 (column int)))
-
+                                         (column int)))
+  
   ;;range
   (gtk-range-set-range ((range c-pointer)
-			(minval double-float)
-			(maxval double-float)))
+                        (minval double-float)
+                        (maxval double-float)))
   (gtk-range-set-value ((range c-pointer)
-			(val double-float)))
+                        (val double-float)))
   (gtk-range-set-inverted ((range c-pointer)
-			   (inverted boolean)))
+                           (inverted boolean)))
   (gtk-range-set-increments ((range c-pointer)
-			     (step double-float)
-			     (page double-float)))
+                             (step double-float)
+                             (page double-float)))
   (gtk-range-set-update-policy ((range c-pointer)
-				(policy int)))
+                                (policy int)))
   (gtk-range-get-value ((range c-pointer))
-     double-float)
-
- ;;scale
+    double-float)
+  
+  ;;scale
   (gtk-scale-set-draw-value ((scale c-pointer)
-			     (draw-value boolean)))
+                             (draw-value boolean)))
   (gtk-scale-set-value-pos ((scale c-pointer)
-			    (pos-type int)))
+                            (pos-type int)))
   (gtk-scale-set-digits ((scale c-pointer)
-			 (digits int)))
-
- ;;hscale
+                         (digits int)))
+  
+  ;;hscale
   (gtk-hscale-new ((adjustment c-pointer))
     c-pointer)
   (gtk-hscale-new-with-range ((minval double-float)
-			      (maxval double-float)
-			      (step double-float))
+                              (maxval double-float)
+                              (step double-float))
     c-pointer)
-
+  
   ;;vscale
   (gtk-vscale-new ((adjustment c-pointer))
     c-pointer)
   (gtk-vscale-new-with-range ((minval double-float)
-			      (maxval double-float)
-			      (step double-float))
+                              (maxval double-float)
+                              (step double-float))
     c-pointer)
-
+  
   ;;spin-button
   (gtk-spin-button-new ((adjustment c-pointer)
-			(climb-rate double-float)
-			(digits uint))
+                        (climb-rate double-float)
+                        (digits uint))
     c-pointer)
   (gtk-spin-button-new-with-range ((minval double-float)
-				   (maxval double-float)
-				   (step double-float))
+                                   (maxval double-float)
+                                   (step double-float))
     c-pointer)
   (gtk-spin-button-set-value ((spin-button c-pointer)
-			      (value double-float)))
+                              (value double-float)))
   (gtk-spin-button-get-value ((spin-button c-pointer))
-     double-float)
+    double-float)
   (gtk-spin-button-get-value-as-int ((spin-button c-pointer))
-     int)
+    int)
   (gtk-spin-button-set-wrap ((spin-button c-pointer)
-			     (wrap boolean)))
-
+                             (wrap boolean)))
+  
   ;;list-store
   (gtk-list-store-newv ((n-columns int)
-			(col-types (c-array-ptr int)))
+                        (col-types (c-array-ptr int)))
     c-pointer)
   (gtk-list-store-set-valist ((store c-pointer)
-			      (iter c-pointer)
-			      (data c-pointer)))
+                              (iter c-pointer)
+                              (data c-pointer)))
   (gtk-list-store-set-value ((store c-pointer)
-			     (iter c-pointer)
-			     (column int)
-			     (value c-pointer)))
+                             (iter c-pointer)
+                             (column int)
+                             (value c-pointer)))
   (gtk-list-store-append ((list-store c-pointer)
-			  (iter c-pointer)))
+                          (iter c-pointer)))
   (gtk-list-store-clear ((list-store c-pointer)))
-
+  
   ;;tree-store
   (gtk-tree-store-newv ((n-columns int)
-			(col-types (c-array-ptr int)))
+                        (col-types (c-array-ptr int)))
     c-pointer)
   (gtk-tree-store-set-valist ((store c-pointer)
-			      (iter c-pointer)
-			      (data c-pointer)))
+                              (iter c-pointer)
+                              (data c-pointer)))
   (gtk-tree-store-set-value ((store c-pointer)
-			     (iter c-pointer)
-			     (column int)
-			     (value c-pointer)))
+                             (iter c-pointer)
+                             (column int)
+                             (value c-pointer)))
   (gtk-tree-store-append ((list-store c-pointer)
-			  (iter c-pointer)
-			  (parent c-pointer)))
+                          (iter c-pointer)
+                          (parent c-pointer)))
   (gtk-tree-store-clear ((list-store c-pointer)))
-
+  
   ;;tree-view
   (gtk-tree-view-new ()
     c-pointer)
   (gtk-tree-view-set-model ((tree-view c-pointer)
-			    (model c-pointer)))
+                            (model c-pointer)))
   (gtk-tree-view-insert-column ((tree-view c-pointer)
-				(column c-pointer)
-				(pos int))
+                                (column c-pointer)
+                                (pos int))
     int)
   (gtk-tree-view-get-selection ((tree-view c-pointer))
-     c-pointer)
-
+    c-pointer)
+  
   ;;tree-model
   (gtk-tree-model-get ((tree-model c-pointer)
-		       (iter c-pointer)
-		       (column int)
-		       (data c-pointer)
-		       (eof int)))
+                       (iter c-pointer)
+                       (column int)
+                       (data c-pointer)
+                       (eof int)))
   (gtk-tree-model-get-iter-from-string ((tree-model c-pointer)
-					(iter c-pointer)
-					(path c-string))
+                                        (iter c-pointer)
+                                        (path c-string))
     boolean)				       
-
+  
   ;;tree-path
   (gtk-tree-path-new-from-string ((path c-string))
     c-pointer)
   (gtk-tree-path-free ((path c-pointer)))
-
+  
   ;;tree-selection
-   (gtk-tree-selection-set-mode ((sel c-pointer)
-				 (mode int)))
-   (gtk-tree-selection-get-mode ((sel c-pointer))
-     int)
-   (gtk-tree-selection-select-path ((sel c-pointer)
-				    (path c-pointer)))
-   (gtk-tree-selection-get-selected ((sel c-pointer)
-				     (model c-pointer)
-				     (iter c-pointer))
-     boolean)
-   (gtk-tree-selection-selected-foreach ((sel c-pointer)
-					 (callback-f #.(callback-function ((model c-pointer)
-									   (path c-pointer)
-									   (iter c-pointer)
-									   (data c-pointer))))
-					 (data c-pointer)))
+  (gtk-tree-selection-set-mode ((sel c-pointer)
+                                (mode int)))
+  (gtk-tree-selection-get-mode ((sel c-pointer))
+    int)
+  (gtk-tree-selection-select-path ((sel c-pointer)
+                                   (path c-pointer)))
+  (gtk-tree-selection-get-selected ((sel c-pointer)
+                                    (model c-pointer)
+                                    (iter c-pointer))
+    boolean)
+  (gtk-tree-selection-selected-foreach ((sel c-pointer)
+                                        (callback-f #.(callback-function ((model c-pointer)
+                                                                          (path c-pointer)
+                                                                          (iter c-pointer)
+                                                                          (data c-pointer))))
+                                        (data c-pointer)))
   ;;tree-view-column
   (gtk-tree-view-column-new ()
     c-pointer)
   (gtk-tree-view-column-pack-start ((tree-column c-pointer)
-				    (renderer c-pointer)
-				    (expand boolean)))
+                                    (renderer c-pointer)
+                                    (expand boolean)))
   (gtk-tree-view-column-add-attribute ((tree-column c-pointer)
-				       (renderer c-pointer)
-				       (attribute c-string)
-				       (column int)))
+                                       (renderer c-pointer)
+                                       (attribute c-string)
+                                       (column int)))
   (gtk-tree-view-column-set-spacing ((tree-column c-pointer)
-				     (spacing int)))
+                                     (spacing int)))
   (gtk-tree-view-column-set-visible ((tree-column c-pointer)
-				     (spacing boolean)))
+                                     (spacing boolean)))
   (gtk-tree-view-column-set-reorderable ((tree-column c-pointer)
-				       (resizable boolean)))
+                                         (resizable boolean)))
   (gtk-tree-view-column-set-sort-column-id ((tree-column c-pointer)
-					    (col-id int)))
+                                            (col-id int)))
   (gtk-tree-view-column-set-sort-indicator ((tree-column c-pointer)
-					    (resizable boolean)))
+                                            (resizable boolean)))
   (gtk-tree-view-column-set-resizable ((tree-column c-pointer)
-				       (resizable boolean)))
+                                       (resizable boolean)))
   (gtk-tree-view-column-set-fixed-width ((tree-column c-pointer)
-					 (fixed-width int)))
+                                         (fixed-width int)))
   (gtk-tree-view-column-set-min-width ((tree-column c-pointer)
-				       (min-width int)))
+                                       (min-width int)))
   (gtk-tree-view-column-set-max-width ((tree-column c-pointer)
-					 (max-width int)))
+                                       (max-width int)))
   (gtk-tree-view-column-set-title ((tree-column c-pointer)
-				   (title c-pointer)))
+                                   (title c-pointer)))
   (gtk-tree-view-column-set-expand ((tree-column c-pointer)
-				    (expand boolean)))
+                                    (expand boolean)))
   (gtk-tree-view-column-set-clickable ((tree-column c-pointer)
-				       (clickable boolean)))
+                                       (clickable boolean)))
   (gtk-tree-view-column-set-cell-data-func ((tree-column c-pointer)
-					    (cell-renderer c-pointer)
-					    (func #.(callback-function ((tree-column c-pointer)
-									(cell-renderer c-pointer)
-									(tree-model c-pointer)
-									(iter c-pointer)
-									(data c-pointer))))
-					    (data c-pointer)
-					    (destroy c-pointer)))
+                                            (cell-renderer c-pointer)
+                                            (func #.(callback-function ((tree-column c-pointer)
+                                                                        (cell-renderer c-pointer)
+                                                                        (tree-model c-pointer)
+                                                                        (iter c-pointer)
+                                                                        (data c-pointer))))
+                                            (data c-pointer)
+                                            (destroy c-pointer)))
   ;;cell-renderers
   (gtk-cell-renderer-text-new ()
     c-pointer)
@@ -701,154 +701,154 @@
     c-pointer)
   (gtk-cell-renderer-pixbuf-new ()
     c-pointer)
-
+  
   
   ;;combo-box
   (gtk-combo-box-new-text ()
     c-pointer)
   (gtk-combo-box-append-text ((combo-box c-pointer)
-			      (text c-pointer)))
+                              (text c-pointer)))
   (gtk-combo-box-remove-text ((combo-box c-pointer)
-			      (position int)))
+                              (position int)))
   (gtk-combo-box-set-active ((combo-box c-pointer)
-			     (index int)))
+                             (index int)))
   (gtk-combo-box-get-active ((combo-box c-pointer))
     int)
-
+  
   ;;toolbar
   (gtk-toolbar-new ()
     c-pointer)
   (gtk-toolbar-insert ((toolbar c-pointer)
-		       (item c-pointer)
-		       (pos int)))
+                       (item c-pointer)
+                       (pos int)))
   (gtk-toolbar-set-show-arrow ((toolbar c-pointer)
-			       (show-arrow boolean)))
+                               (show-arrow boolean)))
   (gtk-toolbar-set-orientation ((toolbar c-pointer)
-				(orientation int)))
+                                (orientation int)))
   (gtk-toolbar-set-tooltips ((toolbar c-pointer)
-			     (enable boolean)))
+                             (enable boolean)))
   (gtk-toolbar-set-style ((toolbar c-pointer)
-			  (style int)))
-
+                          (style int)))
+  
   ;;tooltips
   (gtk-tooltips-new ()
     c-pointer)
   (gtk-tooltips-set-tip ((tooltips c-pointer)
-			 (widget c-pointer)
-			 (tip-text c-pointer)
-			 (tip-private c-string)))
+                         (widget c-pointer)
+                         (tip-text c-pointer)
+                         (tip-private c-string)))
   (gtk-tooltips-enable ((tooltips c-pointer)))
   (gtk-tooltips-disable ((tooltips c-pointer)))
   (gtk-tooltips-set-delay ((tooltips c-pointer)
-			   (delay uint)))
+                           (delay uint)))
   ;;tool-item
   (gtk-tool-item-new ()
     c-pointer)
   (gtk-tool-item-set-homogeneous ((tool-item c-pointer)
-				  (homogeneous boolean)))
+                                  (homogeneous boolean)))
   (gtk-tool-item-set-expand ((tool-item c-pointer)
-			     (expand boolean)))
+                             (expand boolean)))
   (gtk-tool-item-set-tooltip ((tool-item c-pointer)
-			      (tooltips c-pointer)
-			      (tip-text c-string)
-			      (tip-private c-string)))
+                              (tooltips c-pointer)
+                              (tip-text c-string)
+                              (tip-private c-string)))
   (gtk-tool-item-set-is-important ((tool-item c-pointer)
-				   (is-important boolean)))
-
+                                   (is-important boolean)))
+  
   (gtk-separator-tool-item-new ()
-     c-pointer)
+    c-pointer)
   (gtk-separator-tool-item-set-draw ((item c-pointer)
-				     (draw boolean)))
-
+                                     (draw boolean)))
+  
   ;;tool-button
   (gtk-tool-button-new ((icon-widget c-pointer)
-			(label c-pointer))
+                        (label c-pointer))
     c-pointer)
   (gtk-tool-button-new-from-stock ((stock-id c-string))
     c-pointer)
   (gtk-tool-button-set-label ((tool-button c-pointer)
-			      (label c-pointer)))
+                              (label c-pointer)))
   (gtk-tool-button-set-use-underline ((tool-button c-pointer)
-				      (use-underline boolean)))
+                                      (use-underline boolean)))
   (gtk-tool-button-set-stock-id ((tool-button c-pointer)
-				 (stock-id c-string)))
+                                 (stock-id c-string)))
   (gtk-tool-button-set-icon-widget ((tool-button c-pointer)
-				    (icon-widget c-pointer)))
+                                    (icon-widget c-pointer)))
   (gtk-tool-button-set-label-widget ((tool-button c-pointer)
-				     (label-widget c-pointer)))
+                                     (label-widget c-pointer)))
   
   ;;menu  
   (gtk-menu-shell-append ((menu-shell c-pointer)
-			  (child c-pointer)))
+                          (child c-pointer)))
   (gtk-menu-shell-prepend ((menu-shell c-pointer)
-			  (child c-pointer)))
+                           (child c-pointer)))
   (gtk-menu-shell-insert ((menu-shell c-pointer)
-			  (child c-pointer)
-			  (position int)))
+                          (child c-pointer)
+                          (position int)))
   
   (gtk-menu-bar-new ()
     c-pointer)
-
+  
   (gtk-menu-new ()
     c-pointer)
   (gtk-menu-set-title ((menu c-pointer)
-		       (title c-string)))
+                       (title c-string)))
   (gtk-menu-attach ((menu c-pointer)
-		    (child c-pointer)
-		    (lattach uint)
-		    (rattach uint)
-		    (tattach uint)
-		    (battach uint)))
+                    (child c-pointer)
+                    (lattach uint)
+                    (rattach uint)
+                    (tattach uint)
+                    (battach uint)))
   (gtk-menu-attach-to-widget ((menu c-pointer)
-			      (widget c-pointer)
-			      (func #.(callback-function ((widget c-pointer)
-							  (menu c-pointer))))))
-			      
+                              (widget c-pointer)
+                              (func #.(callback-function ((widget c-pointer)
+                                                          (menu c-pointer))))))
+  
   (gtk-menu-popup ((menu c-pointer)
-		   (p-menu-shell c-pointer)
-		   (p-menu-item c-pointer)
-		   (func #.(callback-function ((menu c-pointer)
-					     (x (c-ptr int))
-					     (y (c-ptr int))
-					     (push-in (c-ptr boolean))
-					     (data c-pointer))))
-		   (data c-pointer)
-		   (button uint)
-		   (activate-time uint32)))
-
+                   (p-menu-shell c-pointer)
+                   (p-menu-item c-pointer)
+                   (func #.(callback-function ((menu c-pointer)
+                                               (x (c-ptr int))
+                                               (y (c-ptr int))
+                                               (push-in (c-ptr boolean))
+                                               (data c-pointer))))
+                   (data c-pointer)
+                   (button uint)
+                   (activate-time uint32)))
+  
   (gtk-menu-item-new ()
     c-pointer)
   (gtk-menu-item-new-with-label ((label c-string))
     c-pointer)
   (gtk-menu-item-set-right-justified ((menu-item c-pointer)
-				      (right-justified boolean)))
+                                      (right-justified boolean)))
   (gtk-menu-item-set-submenu ((menu-item c-pointer)
-			      (submenu c-pointer)))
+                              (submenu c-pointer)))
   (gtk-menu-item-remove-submenu ((menu-item c-pointer)))
   (gtk-menu-item-set-accel-path ((menu-item c-pointer)
-				 (acell-path c-pointer)))
+                                 (acell-path c-pointer)))
   (gtk-accel-map-add-entry ((accel-path c-pointer)
-			    (accel-key uint)
-			    (accel-mods int)))
+                            (accel-key uint)
+                            (accel-mods int)))
   
   (gtk-check-menu-item-new ()
     c-pointer)
   (gtk-check-menu-item-new-with-label ((label c-string))
     c-pointer)
   (gtk-check-menu-item-set-active ((check-menu c-pointer)
-				   (active boolean)))
+                                   (active boolean)))
   (gtk-check-menu-item-get-active ((check-menu c-pointer))
     boolean)
-
+  
   (gtk-radio-menu-item-new ((group c-pointer))
     c-pointer)
   (gtk-radio-menu-item-new-from-widget ((group c-pointer))
     c-pointer)
   (gtk-radio-menu-item-new-with-label ((group c-pointer)
-				       (label c-string))
+                                       (label c-string))
     c-pointer)
   (gtk-radio-menu-item-new-with-label-from-widget ((radio c-pointer)
-						   (label c-string))
+                                                   (label c-string))
     c-pointer)
   (gtk-radio-menu-item-get-group ((radio c-pointer))
     c-pointer)
@@ -858,89 +858,89 @@
   (gtk-image-menu-item-new-with-label ((label c-string))
     c-pointer)
   (gtk-image-menu-item-new-from-stock ((stock-id c-string)
-				       (accel-group c-pointer))
+                                       (accel-group c-pointer))
     c-pointer)
   (gtk-image-menu-item-set-image ((menu-item c-pointer)
-				  (image c-pointer)))
-				  
-
+                                  (image c-pointer)))
+  
+  
   (gtk-separator-menu-item-new ()
     c-pointer)
   (gtk-tearoff-menu-item-new ()
     c-pointer)
-
+  
   ;;calendar
   (gtk-calendar-new ()
     c-pointer)
   (gtk-calendar-get-date ((cal c-pointer)
-			  (year c-pointer)
-			  (month c-pointer)
-			  (day c-pointer)))
+                          (year c-pointer)
+                          (month c-pointer)
+                          (day c-pointer)))
   (gtk-calendar-select-month ((cal c-pointer)
-			      (month uint)
-			      (year uint))
+                              (month uint)
+                              (year uint))
     int)
   (gtk-calendar-select-day ((cal c-pointer)
-			    (day uint)))
-
+                            (day uint)))
+  
   ;;arrow
   (gtk-arrow-new ((arrow-type int)
-		  (shadow-type int))
+                  (shadow-type int))
     c-pointer)
   (gtk-arrow-set ((arrow c-pointer)
-		  (arrow-type int)
-		  (shadow-type int)))
-
+                  (arrow-type int)
+                  (shadow-type int)))
+  
   ;;dialog
   (gtk-dialog-new ()
     c-pointer)
   (gtk-dialog-run ((dialog c-pointer))
     int)
   (gtk-dialog-response ((dialog c-pointer)
-			(response-id int)))
+                        (response-id int)))
   (gtk-dialog-add-button ((dialog c-pointer)
-			  (button-text c-string)
-			  (response-id int))
+                          (button-text c-string)
+                          (response-id int))
     c-pointer)
   (gtk-dialog-add-action-widget ((dialog c-pointer)
-				 (child c-pointer)
-				 (response-id c-pointer)))
+                                 (child c-pointer)
+                                 (response-id c-pointer)))
   (gtk-dialog-set-has-separator ((dialog c-pointer)
-				 (has-separator boolean)))
+                                 (has-separator boolean)))
   (gtk-dialog-set-default-response ((dialog c-pointer)
-				    (response-id int)))
+                                    (response-id int)))
   ;;message-dialog
   (gtk-message-dialog-new ((parent c-pointer)
-			   (flags int)
-			   (type int)
-			   (buttons int)
-			   (message c-string))
+                           (flags int)
+                           (type int)
+                           (buttons int)
+                           (message c-string))
     c-pointer)
   (gtk-message-dialog-set-markup ((dialog c-pointer)
-				  (str c-string)))
+                                  (str c-string)))
   ;;file-chooser
   (gtk-file-chooser-set-action ((chooser c-pointer)
-				(action int)))
+                                (action int)))
   (gtk-file-chooser-set-local-only ((chooser c-pointer)
-				    (local-only boolean)))
+                                    (local-only boolean)))
   (gtk-file-chooser-set-select-multiple ((chooser c-pointer)
-					 (select-multiple boolean)))
+                                         (select-multiple boolean)))
   (gtk-file-chooser-set-current-name ((chooser c-pointer)
-				      (name c-string)))
+                                      (name c-string)))
   (gtk-file-chooser-set-filename ((chooser c-pointer)
-				  (filename c-string))
+                                  (filename c-string))
     boolean)
   (gtk-file-chooser-get-filename ((chooser c-pointer))
     c-string :malloc-free)
   (gtk-file-chooser-get-filenames ((chooser c-pointer))
     c-pointer)
   (gtk-file-chooser-set-current-folder ((chooser c-pointer)
-					(folder c-string))
+                                        (folder c-string))
     boolean)
   (gtk-file-chooser-get-current-folder ((chooser c-pointer))
     c-string :malloc-free)
   (gtk-file-chooser-set-uri ((chooser c-pointer)
-			     (uri c-string))
+                             (uri c-string))
     boolean)
   (gtk-file-chooser-get-uri ((chooser c-pointer))
     c-string :malloc-free)
@@ -949,102 +949,102 @@
   (gtk-file-chooser-get-uris ((chooser c-pointer))
     c-pointer)
   (gtk-file-chooser-set-current-folder-uri ((chooser c-pointer)
-					    (folder c-string))
+                                            (folder c-string))
     boolean)
   (gtk-file-chooser-get-current-folder-uri ((chooser c-pointer))
     c-string :malloc-free)
   (gtk-file-chooser-set-use-preview-label ((chooser c-pointer)
-					   (use-label boolean)))
+                                           (use-label boolean)))
   (gtk-file-chooser-add-filter ((chooser c-pointer)
-				(filter c-pointer)))
+                                (filter c-pointer)))
   (gtk-file-chooser-set-filter ((chooser c-pointer)
-				(filter c-pointer)))
+                                (filter c-pointer)))
   ;;file-chooser-widget
   (gtk-file-chooser-widget-new ((action int))
     c-pointer)
   ;;file-chooser-dialog
   (gtk-file-chooser-dialog-new ((title c-string)
-				(parent c-pointer)
-				(action int)
-				(cancel-text c-string)
-				(cancel-response-id int)
-				(accept-text c-string)
-				(accept-response-id int)
-				(null c-pointer))
+                                (parent c-pointer)
+                                (action int)
+                                (cancel-text c-string)
+                                (cancel-response-id int)
+                                (accept-text c-string)
+                                (accept-response-id int)
+                                (null c-pointer))
     c-pointer)
   
-    ;;file-filter
+  ;;file-filter
   (gtk-file-filter-new ()
     c-pointer)
   (gtk-file-filter-set-name ((filter c-pointer)
-			     (name c-string)))
+                             (name c-string)))
   (gtk-file-filter-add-mime-type ((filter c-pointer)
-				  (mime-type c-string)))
+                                  (mime-type c-string)))
   (gtk-file-filter-add-pattern ((filter c-pointer)
-				(pattern c-string)))
-
+                                (pattern c-string)))
+  
   ;;text-view
   (gtk-text-view-new ()
     c-pointer)
   (gtk-text-view-set-buffer ((text-view c-pointer)
-			     (buffer c-pointer)))
+                             (buffer c-pointer)))
   
   ;;text-buffer
   (gtk-text-buffer-new ((table c-pointer))
     c-pointer)
   (gtk-text-buffer-set-text ((buffer c-pointer)
-			     (text c-pointer)
-			     (len int)))
-
+                             (text c-pointer)
+                             (len int)))
+  
   ;;text-tag-table
   (gtk-text-tag-table-new ()
     c-pointer)
- 
+  
   ;;accel-group
   (gtk-accel-group-new ()
     c-pointer)
-
+  
   ;;ui-manager
   (gtk-ui-manager-new ()
     c-pointer)
   (gtk-ui-manager-set-add-tearoffs ((ui-manager c-pointer)
-				    (add-tearoffs boolean)))
+                                    (add-tearoffs boolean)))
   (gtk-ui-manager-insert-action-group ((ui-manager c-pointer)
-				       (action-group c-pointer)
-				       (pos int)))
+                                       (action-group c-pointer)
+                                       (pos int)))
   (gtk-ui-manager-get-toplevels ((ui-manager c-pointer)
-				 (types int))
+                                 (types int))
     c-pointer)
-
+  
   ;;action-group
   (gtk-action-group-new ((name c-string))
     c-pointer)
   (gtk-action-group-set-sensitive ((action-group c-pointer)
-				   (sensitive boolean)))
+                                   (sensitive boolean)))
   (gtk-action-group-set-visible ((action-group c-pointer)
-				 (visible boolean)))
+                                 (visible boolean)))
   (gtk-action-group-add-action ((action-group c-pointer)
-				(action c-pointer)))
+                                (action c-pointer)))
   (gtk-action-group-remove-action ((action-group c-pointer)
-				   (action c-pointer)))
+                                   (action c-pointer)))
   (gtk-action-group-add-action-with-accel ((action-group c-pointer)
-					   (action c-pointer)
-					   (accel c-string)))
+                                           (action c-pointer)
+                                           (accel c-string)))
   ;;action
   (gtk-action-new ((name c-string)
-		   (label c-pointer)
-		   (tooltip c-pointer)
-		   (stock-id c-string))
+                   (label c-pointer)
+                   (tooltip c-pointer)
+                   (stock-id c-string))
     c-pointer)
-
+  
   (gtk-event-box-new ()
     c-pointer)
   (gtk-event-box-set-above-child ((event-box c-pointer)
-				  (above boolean)))
+                                  (above boolean)))
   (gtk-event-box-set-visible-window ((event-box c-pointer)
-				     (visible-window boolean)))
+                                     (visible-window boolean)))
   
-)
+  )
 
 (def-c-struct gdk-event-button
   (type int)




More information about the Cells-cvs mailing list