# HG changeset patch
# User Claus Gittinger <cg@exept.de>
# Date 858597087 -3600
# Node ID 61fe6bb4b5eefd6982118e513b453feed12517e2
# Parent  5b3b7c1dbcfc3e29173a58843cbde78ced4beb7d
changed preferredExtent

diff -r 5b3b7c1dbcfc -r 61fe6bb4b5ee Separator.st
--- a/Separator.st	Mon Mar 17 11:58:58 1997 +0100
+++ b/Separator.st	Mon Mar 17 12:11:27 1997 +0100
@@ -200,6 +200,20 @@
 
 !Separator methodsFor:'queries'!
 
+preferredExtent
+    |e|
+
+    preferredExtent notNil ifTrue:[^ preferredExtent].
+
+    e := super preferredExtent.
+    orientation == #horizontal ifTrue:[
+        ^ e x @ 5
+    ].
+    ^ 5 @ e y
+
+    "Created: 17.3.1997 / 10:37:42 / cg"
+!
+
 specClass
     self class == Separator ifTrue:[^ DividerSpec].
     ^ super specClass
@@ -210,5 +224,5 @@
 !Separator class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg2/Separator.st,v 1.14 1997-02-28 20:25:03 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg2/Separator.st,v 1.15 1997-03-17 11:11:27 cg Exp $'
 ! !