ModalBox.st
changeset 5058 60bb10ed290b
parent 4936 9ac25d62f361
child 5226 fa4660772f73
--- a/ModalBox.st	Fri Oct 24 16:23:50 2008 +0200
+++ b/ModalBox.st	Sun Oct 26 21:09:55 2008 +0100
@@ -511,24 +511,6 @@
     "Modified: 24.7.1997 / 15:18:46 / cg"
 ! !
 
-!ModalBox methodsFor:'queries'!
-
-preferredExtent
-    "return the extent required to make all components
-     visible in myself. This should be redefined in
-     subclasses."
-
-    "/ If I have an explicit preferredExtent ..
-
-    preferredExtent notNil ifTrue:[
-        ^ preferredExtent
-    ].
-
-    ^ self class defaultExtent
-
-    "Modified: 19.7.1996 / 20:45:07 / cg"
-! !
-
 !ModalBox methodsFor:'queries-internal'!
 
 windowLabelFor:labelString
@@ -913,7 +895,7 @@
 !ModalBox class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview/ModalBox.st,v 1.95 2008-04-11 13:16:49 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/ModalBox.st,v 1.96 2008-10-26 20:09:55 stefan Exp $'
 ! !
 
 ModalBox initialize!