[Gd-chatter] r11402 - branches/opendylan-melange/gtk-duim

[hannes at gwydiondylan.org]

Author: hannes
Date: Tue Jun 12 20:22:25 2007
New Revision: 11402

Modified:
   branches/opendylan-melange/gtk-duim/gtk-events.dylan
   branches/opendylan-melange/gtk-duim/gtk-gadgets.dylan
   branches/opendylan-melange/gtk-duim/gtk-mirror.dylan
Log:
Job: fd
indentation fixes


Modified: branches/opendylan-melange/gtk-duim/gtk-events.dylan
==============================================================================
--- branches/opendylan-melange/gtk-duim/gtk-events.dylan	(original)
+++ branches/opendylan-melange/gtk-duim/gtk-events.dylan	Tue Jun 12 20:22:25 2007
@@ -139,24 +139,25 @@
     let modifiers = 0;  //--- Do this!
     let event-class
       = select (type)
-    $GDK-2BUTTON-PRESS  => <double-click-event>;
-    $GDK-BUTTON-PRESS   => <button-press-event>;
-    $GDK-BUTTON-RELEASE => <button-release-event>;
-    otherwise           => #f;
-  end;
+          $GDK-2BUTTON-PRESS  => <double-click-event>;
+          $GDK-BUTTON-PRESS   => <button-press-event>;
+          $GDK-BUTTON-RELEASE => <button-release-event>;
+          otherwise           => #f;
+        end;
     if (event-class)
       let (x, y)
-  = untransform-position(sheet-native-transform(sheet), native-x, native-y);
+        = untransform-position(sheet-native-transform(sheet),
+                               native-x, native-y);
       port-modifier-state(_port)    := modifiers;
       let pointer = port-pointer(_port);
       pointer-button-state(pointer) := button;
       distribute-event(_port,
-           make(event-class,
-          sheet: sheet,
-          pointer: pointer,
-          button: button,
-          modifier-state: modifiers,
-          x: round(x), y: round(y)));
+                       make(event-class,
+                            sheet: sheet,
+                            pointer: pointer,
+                            button: button,
+                            modifier-state: modifiers,
+                            x: round(x), y: round(y)));
       #t
     end
   end

Modified: branches/opendylan-melange/gtk-duim/gtk-gadgets.dylan
==============================================================================
--- branches/opendylan-melange/gtk-duim/gtk-gadgets.dylan	(original)
+++ branches/opendylan-melange/gtk-duim/gtk-gadgets.dylan	Tue Jun 12 20:22:25 2007
@@ -1174,13 +1174,13 @@
     (gadget :: <gtk-list-control-mixin>, event :: <GdkEventButton>)
  => (handled? :: <boolean>)
   gtk-debug("Pressed button %=, type %=",
-		event.GdkEventButton-button,
-		select (event.GdkEventButton-type)
-		  $GDK-BUTTON-PRESS  => "button press";
-		  $GDK-2BUTTON-PRESS => "double click";
-		  $GDK-3BUTTON-PRESS => "treble click";
-		  otherwise => event.GdkEventButton-type;
-		end);
+            event.GdkEventButton-button,
+            select (event.GdkEventButton-type)
+              $GDK-BUTTON-PRESS  => "button press";
+              $GDK-2BUTTON-PRESS => "double click";
+              $GDK-3BUTTON-PRESS => "treble click";
+              otherwise => event.GdkEventButton-type;
+            end);
   if (event.GdkEventButton-type == $GDK-2BUTTON-PRESS)
     gtk-debug("Double clicked on list control!");
     when (gadget-activate-callback(gadget))
@@ -1489,19 +1489,14 @@
     gtk-list-store-clear(model);
     with-stack-structure(iter :: <GtkTreeIter>)
       for (item in items, i from 0)
-        format-out("item %=\n", item);
-        //item := item-object(item);
         gtk-list-store-append(model, iter);
         with-stack-structure (gvalue :: <GValue>)
           g-value-nullify(gvalue);
           g-value-set-value(gvalue, i);
           gtk-list-store-set-value(model, iter, 0, gvalue);
-          format-out("set first column\n");
           for (c in columns, j from 1)
             let generator = table-column-generator(c);
-            format-out("received generator for column\n");
             let label = gadget-item-label(gadget, generator(item));
-            format-out("got label %= \n", label);
             unless (instance?(label, <string>))
               label := format-to-string("%=", label);
             end;
@@ -1633,7 +1628,7 @@
 
 define method handle-row-expanded
   (sheet :: <gtk-tree-control>, parent :: <GtkTreeIter>, path :: <GtkTreePath>)
-  format-out("handling row expansion signal\n");
+  duim-debug-message("handling row expansion signal\n");
   let model = sheet.store-model;
   let children? = tree-control-children-predicate(sheet);
   let generator = tree-control-children-generator(sheet);

Modified: branches/opendylan-melange/gtk-duim/gtk-mirror.dylan
==============================================================================
--- branches/opendylan-melange/gtk-duim/gtk-mirror.dylan	(original)
+++ branches/opendylan-melange/gtk-duim/gtk-mirror.dylan	Tue Jun 12 20:22:25 2007
@@ -328,9 +328,10 @@
          let mirror = ?sheet.sheet-direct-mirror;
          let widget = mirror-widget(mirror);
          with-gdk-lock
-           let handler-id = g-signal-connect(widget, as(<string>, ?signal-name),
-                                             method(?args) ?body end);
-                            mirror.signal-handler-ids[?signal-name] := handler-id;
+           let handler-id
+             = g-signal-connect(widget, as(<string>, ?signal-name),
+                                method(?args) ?body end);
+           mirror.signal-handler-ids[?signal-name] := handler-id;
          end
        end; }
 end;
@@ -339,7 +340,8 @@
   { with-disabled-event-handler (?mirror:expression, ?signal-name:expression)
       ?body:*
     end }
- => { let signal-handler-id = element(?mirror.signal-handler-ids, ?signal-name);
+ => { let signal-handler-id
+        = element(?mirror.signal-handler-ids, ?signal-name);
       let widget = mirror-widget(?mirror);
       block()
         g-signal-handler-block(widget, signal-handler-id);