[Gd-chatter] r11587 - trunk/fundev/sources/duim/gtk

[struppi at gwydiondylan.org]

Author: struppi
Date: Thu Dec 27 21:32:18 2007
New Revision: 11587

Modified:
   trunk/fundev/sources/duim/gtk/gtk-draw.dylan
   trunk/fundev/sources/duim/gtk/gtk-gadgets.dylan
   trunk/fundev/sources/duim/gtk/gtk-menus.dylan
   trunk/fundev/sources/duim/gtk/gtk-mirror.dylan
Log:
job: fd
fixed typos plus removed some useless comments

Modified: trunk/fundev/sources/duim/gtk/gtk-draw.dylan
==============================================================================
--- trunk/fundev/sources/duim/gtk/gtk-draw.dylan	(original)
+++ trunk/fundev/sources/duim/gtk/gtk-draw.dylan	Thu Dec 27 21:32:18 2007
@@ -229,8 +229,6 @@
 	  //---*** This doesn't work in the FFI!
 	  // let point = points[j];
 	  let point = pointer-value-address(points, index: j);
-//	  point.x-value := x;
-//	  point.y-value := y;
 	  point.GdkPoint-x := x;
 	  point.GdkPoint-y := y;
 	end;

Modified: trunk/fundev/sources/duim/gtk/gtk-gadgets.dylan
==============================================================================
--- trunk/fundev/sources/duim/gtk/gtk-gadgets.dylan	(original)
+++ trunk/fundev/sources/duim/gtk/gtk-gadgets.dylan	Thu Dec 27 21:32:18 2007
@@ -780,7 +780,7 @@
   if (position)
     let widget = gadget-widget(gadget);
     with-gdk-lock
-      gtk-editable-get-position(widget, position);
+      gtk-editable-set-position(widget, position);
     end;
     position
   end;
@@ -1926,7 +1926,7 @@
 define method update-mirror-attributes
     (gadget :: <gtk-combo-box>, mirror :: <gadget-mirror>) => ()
   next-method();
-  with-gtk-lock
+  with-gdk-lock
     gtk-combo-box-entry-set-text-column(mirror.mirror-widget, 1);
   end
 end;
@@ -2438,4 +2438,4 @@
     end
   end
 end method update-frame-documentation;
-// */
+*/

Modified: trunk/fundev/sources/duim/gtk/gtk-menus.dylan
==============================================================================
--- trunk/fundev/sources/duim/gtk/gtk-menus.dylan	(original)
+++ trunk/fundev/sources/duim/gtk/gtk-menus.dylan	Thu Dec 27 21:32:18 2007
@@ -63,7 +63,6 @@
     let widget = mirror-widget(child);
     with-gdk-lock
       if (child.mirror-sheet.gadget-label = "Help")
-        //      gtk-menu-item-right-justify(widget)
         gtk-menu-item-set-right-justified ((widget), /* TRUE */ 1)
       end;
       let menu = gtk-menu-new();

Modified: trunk/fundev/sources/duim/gtk/gtk-mirror.dylan
==============================================================================
--- trunk/fundev/sources/duim/gtk/gtk-mirror.dylan	(original)
+++ trunk/fundev/sources/duim/gtk/gtk-mirror.dylan	Thu Dec 27 21:32:18 2007
@@ -324,7 +324,6 @@
   => (mirror :: <widget-mirror>)
   with-gdk-lock
     let widget = gtk-drawing-area-new();
-    //  gtk-drawing-area-size(widget, 200, 200);
     gtk-widget-set-size-request(widget, 200, 200);
     widget. at can-focus := $true;
     make(<drawing-area-mirror>,