--- a/ModalBox.st	Thu Jul 24 16:05:55 1997 +0200
+++ b/ModalBox.st	Thu Jul 24 16:07:45 1997 +0200
@@ -59,6 +59,12 @@
 
 initialize
     UseTransientViews := true.
+
+    "
+     UseTransientViews := false
+    "
+
+    "Modified: 24.7.1997 / 15:18:59 / cg"
 ! !
 
 !ModalBox class methodsFor:'defaults'!
@@ -341,7 +347,7 @@
 
     ^ UseTransientViews not
 
-    "Modified: 12.5.1996 / 21:57:58 / cg"
+    "Modified: 24.7.1997 / 15:20:14 / cg"
 !
 
 reinitialize
@@ -411,25 +417,30 @@
 !ModalBox methodsFor:'move & resize'!
 
 doMove
-    "the move button was pressed"
+    "the move button was pressed.
+     This method is only used with non-transient views
+     (UseTransientViews == false)."
 
     |r|
 
-    r := device rectangleFromUser:(self origin corner:self corner).
+    r := device rectangleFromUser:(self origin corner:self corner) keepExtent:true.
     shadowView notNil ifTrue:[
         shadowView unmap
     ].
-    self origin:r origin extent:(r extent max:(100@100)).
+    self origin:r origin extent:(self extent).
     shadowView notNil ifTrue:[
         shadowView realize.
-        self raise
+        self raise.
     ].
 
     "Modified: 3.5.1996 / 23:47:38 / stefan"
+    "Modified: 24.7.1997 / 16:07:18 / cg"
 !
 
 doResize
-    "the resize button was pressed"
+    "the resize button was pressed.
+     This method is only used with non-transient views
+     (UseTransientViews == false)."
 
     |r|
 
@@ -444,6 +455,7 @@
     ].
 
     "Modified: 3.5.1996 / 23:47:47 / stefan"
+    "Modified: 24.7.1997 / 15:18:46 / cg"
 ! !
 
 !ModalBox methodsFor:'queries'!
@@ -470,10 +482,13 @@
     "return a symbol describing my style 
      (may be used internally by the device as a decoration hint)"
 
-    ^ #dialog
+    UseTransientViews ifTrue:[
+        ^ #dialog
+    ].
+    ^ #popUp
 
     "Created: 2.5.1997 / 14:34:17 / cg"
-    "Modified: 2.5.1997 / 14:35:33 / cg"
+    "Modified: 24.7.1997 / 15:22:39 / cg"
 ! !
 
 !ModalBox methodsFor:'show / hide'!
@@ -812,6 +827,6 @@
 !ModalBox class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview/ModalBox.st,v 1.55 1997-05-02 12:36:12 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/ModalBox.st,v 1.56 1997-07-24 14:07:45 cg Exp $'
 ! !
 ModalBox initialize!