--- a/DialogBox.st	Fri Jun 22 17:50:06 2001 +0200
+++ b/DialogBox.st	Fri Jun 22 17:50:29 2001 +0200
@@ -6808,6 +6808,7 @@
 
     |displayDevice displayDeviceType app modifiedKey|
 
+    "/ this code is so ugly...
     displayDevice := (Screen current) ? Screen default.
     displayDevice notNil ifTrue:[
         displayDeviceType := displayDevice deviceType.
@@ -6916,6 +6917,6 @@
 !DialogBox class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/DialogBox.st,v 1.167 2001-06-22 15:50:06 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/DialogBox.st,v 1.168 2001-06-22 15:50:29 cg Exp $'
 ! !
 DialogBox initialize!