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

[andreas at gwydiondylan.org]

Author: andreas
Date: Tue Dec 25 05:22:59 2007
New Revision: 11579

Modified:
   trunk/fundev/sources/duim/gtk/gtk-dialogs.dylan
   trunk/fundev/sources/duim/gtk/gtk-display.dylan
   trunk/fundev/sources/duim/gtk/gtk-top.dylan
Log:
job: fd

Fix last commit.


Modified: trunk/fundev/sources/duim/gtk/gtk-dialogs.dylan
==============================================================================
--- trunk/fundev/sources/duim/gtk/gtk-dialogs.dylan	(original)
+++ trunk/fundev/sources/duim/gtk/gtk-dialogs.dylan	Tue Dec 25 05:22:59 2007
@@ -29,9 +29,8 @@
 define sealed method make-top-level-mirror
     (sheet :: <top-level-sheet>, frame :: <dialog-frame>)
  => (mirror :: <top-level-mirror>)
-  with-gdk-lock
-    let widget = gtk-window-new($GTK-WINDOW-TOPLEVEL);
-  end;
+  
+  let widget = with-gdk-lock gtk-window-new($GTK-WINDOW-TOPLEVEL) end;
   let owner = frame-owner(frame);
   make(<dialog-mirror>,
        widget: widget,

Modified: trunk/fundev/sources/duim/gtk/gtk-display.dylan
==============================================================================
--- trunk/fundev/sources/duim/gtk/gtk-display.dylan	(original)
+++ trunk/fundev/sources/duim/gtk/gtk-display.dylan	Tue Dec 25 05:22:59 2007
@@ -25,18 +25,18 @@
     let mm-height    = gdk-screen-height-mm();
     let pixel-width  = gdk-screen-width();
     let pixel-height = gdk-screen-height();
-  end;
-  display-pixel-width(_display)  := pixel-width;
-  display-pixel-height(_display) := pixel-height;
-  display-mm-width(_display)     := mm-width;
-  display-mm-height(_display)    := mm-height;
-  display-pixels-per-point(_display)
-    := sqrt(  (pixel-width  / (mm-width  * $points-per-mm))
-	    * (pixel-height / (mm-height * $points-per-mm)));
-  sheet-region(_display)
-    := set-box-edges(sheet-region(_display),
-		     0, 0, pixel-width, pixel-height);
-  sheet-direct-mirror(_display) := mirror;
+    display-pixel-width(_display)  := pixel-width;
+    display-pixel-height(_display) := pixel-height;
+    display-mm-width(_display)     := mm-width;
+    display-mm-height(_display)    := mm-height;
+    display-pixels-per-point(_display)
+      := sqrt(  (pixel-width  / (mm-width  * $points-per-mm))
+  	    * (pixel-height / (mm-height * $points-per-mm)));
+    sheet-region(_display)
+      := set-box-edges(sheet-region(_display),
+  		     0, 0, pixel-width, pixel-height);
+    sheet-direct-mirror(_display) := mirror;
+  end
 /*---*** Not doing palettes yet...
   let palette  = port-default-palette(_port);
   let drawable = xt/XtWindow(top-shell);

Modified: trunk/fundev/sources/duim/gtk/gtk-top.dylan
==============================================================================
--- trunk/fundev/sources/duim/gtk/gtk-top.dylan	(original)
+++ trunk/fundev/sources/duim/gtk/gtk-top.dylan	Tue Dec 25 05:22:59 2007
@@ -355,9 +355,7 @@
 define sealed method make-top-level-mirror
     (sheet :: <top-level-sheet>, frame :: <basic-frame>)
  => (mirror :: <top-level-mirror>)
-  with-gdk-lock
-    let widget = gtk-window-new($GTK-WINDOW-TOPLEVEL);
-  end;
+  let widget = with-gdk-lock gtk-window-new($GTK-WINDOW-TOPLEVEL) end;
   make(<top-level-mirror>,
        widget: widget,
        sheet:  sheet)