Update of /project/mcclim/cvsroot/mcclim/Backends/gtkairo In directory clnet:/tmp/cvs-serv17970

Modified Files: ffi.lisp gadgets.lisp gtk-ffi.lisp Log Message:

Show GTK+ list pane scroll bars only when needed.

* Backends/gtkairo/gadgets.lisp ((REALIZE-NATIVE-WIDGET GTK-LIST)): Set scroll bar policy.

* Backends/gtkairo/ffi.lisp: Regenerated.

--- /project/mcclim/cvsroot/mcclim/Backends/gtkairo/ffi.lisp 2006/12/23 21:44:03 1.11 +++ /project/mcclim/cvsroot/mcclim/Backends/gtkairo/ffi.lisp 2006/12/24 11:30:59 1.12 @@ -158,6 +158,11 @@ (:GDK_HINT_USER_POS 128) (:GDK_HINT_USER_SIZE 256))

+(defcenum GtkPolicyType + :GTK_POLICY_ALWAYS + :GTK_POLICY_AUTOMATIC + :GTK_POLICY_NEVER) + (defcenum GtkScrollType :GTK_SCROLL_NONE :GTK_SCROLL_JUMP @@ -1143,6 +1148,12 @@ (vadjustment :pointer) ;GtkAdjustment * )

+(defcfun "gtk_scrolled_window_set_policy" + :void + (scrolled_window :pointer) ;GtkScrolledWindow * + (hscrollbar_policy GtkPolicyType) + (vscrollbar_policy GtkPolicyType)) + (defcfun "gtk_separator_menu_item_new" :pointer)

(defcfun "gtk_toggle_button_set_active" --- /project/mcclim/cvsroot/mcclim/Backends/gtkairo/gadgets.lisp 2006/12/23 21:44:03 1.17 +++ /project/mcclim/cvsroot/mcclim/Backends/gtkairo/gadgets.lisp 2006/12/24 11:30:59 1.18 @@ -175,6 +175,9 @@ (let ((wrapper (gtk_scrolled_window_new (gtk_tree_view_get_hadjustment tv) (gtk_tree_view_get_vadjustment tv)))) + (gtk_scrolled_window_set_policy wrapper + GTK_POLICY_AUTOMATIC + GTK_POLICY_AUTOMATIC) (gtk_container_add wrapper tv) (setf result wrapper)) (setf (list-pane-tree-view sheet) tv) ;?! --- /project/mcclim/cvsroot/mcclim/Backends/gtkairo/gtk-ffi.lisp 2006/12/20 19:40:10 1.22 +++ /project/mcclim/cvsroot/mcclim/Backends/gtkairo/gtk-ffi.lisp 2006/12/24 11:30:59 1.23 @@ -372,7 +372,7 @@ '(GdkFunction gtkselectionmode GtkScrollType GdkEventMask GdkEventType GtkWidgetFlags GdkModifierType GdkCrossingMode GtkWindowType GdkGrabStatus GdkWindowHints GtkStateType GdkDragAction GConnectFlags - GdkDragProtocol + GdkDragProtocol GtkPolicyType

gdk_x11_drawable_get_xid