added:
authorClaus Gittinger <cg@exept.de>
Mon, 25 Jul 2011 17:31:41 +0200
changeset 2932 2121f8e38cf5
parent 2931 0163ade8b5d8
child 2933 6e96dc9ee4dd
added: #resize #version_CVS
VisualComponent.st
--- a/VisualComponent.st	Mon Jul 25 16:00:36 2011 +0200
+++ b/VisualComponent.st	Mon Jul 25 17:31:41 2011 +0200
@@ -67,6 +67,12 @@
     ^ self basicNew initialize
 ! !
 
+!VisualComponent class methodsFor:'others'!
+
+version_CVS
+    ^ '$Header: /cvs/stx/stx/libview2/VisualComponent.st,v 1.28 2011-07-25 15:31:41 cg Exp $'
+! !
+
 !VisualComponent class methodsFor:'queries'!
 
 defaultFont
@@ -460,6 +466,12 @@
 initialize
 
     "Modified: 10.2.1997 / 19:28:11 / cg"
+!
+
+resize
+    self extent:(self preferredExtent)
+
+    "Created: / 25-07-2011 / 17:24:08 / cg"
 ! !
 
 !VisualComponent methodsFor:'queries'!
@@ -574,5 +586,5 @@
 !VisualComponent class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview2/VisualComponent.st,v 1.27 2009-05-18 14:03:47 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview2/VisualComponent.st,v 1.28 2011-07-25 15:31:41 cg Exp $'
 ! !