StandardSystemView.st
changeset 3776 3d7e22c4c6ea
parent 3746 d9dccd3a4a41
child 3782 d688284b95a2
--- a/StandardSystemView.st	Mon Dec 09 11:43:40 2002 +0100
+++ b/StandardSystemView.st	Tue Dec 10 12:04:55 2002 +0100
@@ -554,25 +554,6 @@
     "Modified: 18.4.1996 / 14:55:44 / cg"
 ! !
 
-!StandardSystemView methodsFor:'accessing - channels'!
-
-labelChannel
-    "return the labelChannel - or nil"
-
-    ^ labelChannel.
-!
-
-labelChannel:aValueHolder
-    "set the labelChannel - a valueHolder holding a string
-     which is shown as title bar"
-
-    |prev|
-
-    prev := labelChannel.
-    labelChannel := aValueHolder.
-    self setupChannel:aValueHolder for:nil withOld:prev.
-! !
-
 !StandardSystemView methodsFor:'accessing-behavior'!
 
 bePartner
@@ -660,6 +641,25 @@
     "
 ! !
 
+!StandardSystemView methodsFor:'accessing-channels'!
+
+labelChannel
+    "return the labelChannel - or nil"
+
+    ^ labelChannel.
+!
+
+labelChannel:aValueHolder
+    "set the labelChannel - a valueHolder holding a string
+     which is shown as title bar"
+
+    |prev|
+
+    prev := labelChannel.
+    labelChannel := aValueHolder.
+    self setupChannel:aValueHolder for:nil withOld:prev.
+! !
+
 !StandardSystemView methodsFor:'accessing-dimensions'!
 
 maxExtent
@@ -1531,7 +1531,7 @@
 !StandardSystemView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview/StandardSystemView.st,v 1.143 2002-10-17 11:27:04 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/StandardSystemView.st,v 1.144 2002-12-10 11:04:55 cg Exp $'
 ! !
 
 StandardSystemView initialize!