Mercurial Mercurial > hg > stx-libwidg / changeset
summary | shortlog | changelog | graph | tags | bookmarks | branches | files | changeset | raw | zip | gz | bz2 | help
Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
commentary
authorClaus Gittinger <cg@exept.de>
Wed, 06 Mar 1996 18:09:32 +0100
changeset 485 50cbbe748ac9
parent 484 80c251cc9eff
child 486 4c1cfc595c51
commentary
VarPanel.st file | annotate | diff | comparison | revisions
VariablePanel.st file | annotate | diff | comparison | revisions 
--- a/VarPanel.st	Wed Mar 06 18:07:50 1996 +0100
+++ b/VarPanel.st	Wed Mar 06 18:09:32 1996 +0100
@@ -409,20 +409,31 @@
 !
 
 orientation
+    "return my orientation; either #horizontal or #vertical"
+
     ^ orientation
+
+    "Modified: 6.3.1996 / 18:08:45 / cg"
 !
 
 orientation:aSymbol
-    orientation := aSymbol.
-    self initCursor.
-    self anyNonRelativeSubviews ifTrue:[
-	self setupSubviews
-    ].
-    shown ifTrue:[
-	self cursor:cursor.
-	self sizeChanged:nil.
-	self redraw.
+    "change  my orientation; aSymbol must be one of #horizontal or #vertical.
+     Changing implies a resize of my subViews."
+
+    aSymbol ~~ orientation ifTrue:[
+        orientation := aSymbol.
+        self initCursor.
+        self anyNonRelativeSubviews ifTrue:[
+            self setupSubviews
+        ].
+        shown ifTrue:[
+            self cursor:cursor.
+            self sizeChanged:nil.
+           self redraw.
+        ]
     ]
+
+    "Modified: 6.3.1996 / 18:09:22 / cg"
 !
 
 removeSubView:aView
@@ -1095,5 +1106,5 @@
 !VariablePanel class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/Attic/VarPanel.st,v 1.7 1996-03-01 13:02:46 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/Attic/VarPanel.st,v 1.8 1996-03-06 17:09:32 cg Exp $'
 ! !
--- a/VariablePanel.st	Wed Mar 06 18:07:50 1996 +0100
+++ b/VariablePanel.st	Wed Mar 06 18:09:32 1996 +0100
@@ -409,20 +409,31 @@
 !
 
 orientation
+    "return my orientation; either #horizontal or #vertical"
+
     ^ orientation
+
+    "Modified: 6.3.1996 / 18:08:45 / cg"
 !
 
 orientation:aSymbol
-    orientation := aSymbol.
-    self initCursor.
-    self anyNonRelativeSubviews ifTrue:[
-	self setupSubviews
-    ].
-    shown ifTrue:[
-	self cursor:cursor.
-	self sizeChanged:nil.
-	self redraw.
+    "change  my orientation; aSymbol must be one of #horizontal or #vertical.
+     Changing implies a resize of my subViews."
+
+    aSymbol ~~ orientation ifTrue:[
+        orientation := aSymbol.
+        self initCursor.
+        self anyNonRelativeSubviews ifTrue:[
+            self setupSubviews
+        ].
+        shown ifTrue:[
+            self cursor:cursor.
+            self sizeChanged:nil.
+           self redraw.
+        ]
     ]
+
+    "Modified: 6.3.1996 / 18:09:22 / cg"
 !
 
 removeSubView:aView
@@ -1095,5 +1106,5 @@
 !VariablePanel class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/VariablePanel.st,v 1.7 1996-03-01 13:02:46 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/VariablePanel.st,v 1.8 1996-03-06 17:09:32 cg Exp $'
 ! !
hg/stx-libwidg