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.
changeSequenceOrderFor:to:
authorca
Fri, 28 Mar 1997 15:52:00 +0100
changeset 1159 856ac1c6046c
parent 1158 225c0d52068d
child 1160 f3204cabcce8
changeSequenceOrderFor:to: setup position for children
PanelView.st file | annotate | diff | comparison | revisions
VarPanel.st file | annotate | diff | comparison | revisions
VariablePanel.st file | annotate | diff | comparison | revisions 
--- a/PanelView.st	Fri Mar 28 14:46:01 1997 +0100
+++ b/PanelView.st	Fri Mar 28 15:52:00 1997 +0100
@@ -218,6 +218,21 @@
     self layoutChanged
 ! !
 
+!PanelView methodsFor:'enumerating subviews'!
+
+changeSequenceOrderFor:aSubView to:anIndex
+    "change a subview's position into subviews collection
+    "
+    |success|
+
+    success := super changeSequenceOrderFor:aSubView to:anIndex.
+
+    success ifTrue:[
+        self layoutChanged.
+    ].
+    ^ success
+! !
+
 !PanelView methodsFor:'event processing'!
 
 sizeChanged:how
@@ -366,5 +381,5 @@
 !PanelView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/PanelView.st,v 1.22 1997-02-27 18:17:41 ca Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/PanelView.st,v 1.23 1997-03-28 14:52:00 ca Exp $'
 ! !
--- a/VarPanel.st	Fri Mar 28 14:46:01 1997 +0100
+++ b/VarPanel.st	Fri Mar 28 15:52:00 1997 +0100
@@ -1111,6 +1111,24 @@
     redrawLocked := false
 ! !
 
+!VariablePanel methodsFor:'enumerating subviews'!
+
+changeSequenceOrderFor:aSubView to:anIndex
+    "change a subview's position into subviews collection
+    "
+    |success|
+
+    success := super changeSequenceOrderFor:aSubView to:anIndex.
+
+    success ifTrue:[
+        self setupSubviews.
+        self resizeSubviews.
+    ].
+    ^ success
+
+
+! !
+
 !VariablePanel methodsFor:'event handling'!
 
 sizeChanged:how
@@ -1478,5 +1496,5 @@
 !VariablePanel class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/Attic/VarPanel.st,v 1.30 1997-03-28 13:46:01 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/Attic/VarPanel.st,v 1.31 1997-03-28 14:51:18 ca Exp $'
 ! !
--- a/VariablePanel.st	Fri Mar 28 14:46:01 1997 +0100
+++ b/VariablePanel.st	Fri Mar 28 15:52:00 1997 +0100
@@ -1111,6 +1111,24 @@
     redrawLocked := false
 ! !
 
+!VariablePanel methodsFor:'enumerating subviews'!
+
+changeSequenceOrderFor:aSubView to:anIndex
+    "change a subview's position into subviews collection
+    "
+    |success|
+
+    success := super changeSequenceOrderFor:aSubView to:anIndex.
+
+    success ifTrue:[
+        self setupSubviews.
+        self resizeSubviews.
+    ].
+    ^ success
+
+
+! !
+
 !VariablePanel methodsFor:'event handling'!
 
 sizeChanged:how
@@ -1478,5 +1496,5 @@
 !VariablePanel class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/VariablePanel.st,v 1.30 1997-03-28 13:46:01 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/VariablePanel.st,v 1.31 1997-03-28 14:51:18 ca Exp $'
 ! !
hg/stx-libwidg