[mcclim-cvs] CVS mcclim/Backends/gtkairo

[dlichteblau]

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