TopView.st
changeset 658 ce56170b3fb1
parent 645 a62615e26583
child 712 7d1330ebc4b8
--- a/TopView.st	Wed May 08 22:03:51 1996 +0200
+++ b/TopView.st	Wed May 08 23:06:31 1996 +0200
@@ -325,16 +325,9 @@
     "/
     "/ rerealize slaves and partners
     "/
-    self masterSlaveMessage:#rerealize inGroup:windowGroup 
+    self masterSlaveMessage:#remap inGroup:windowGroup
 
-"/    windowGroup notNil ifTrue:[
-"/        (type == #master or:[type == #partner]) ifTrue:[
-"/            windowGroup slavesDo:[:v | v rerealize].
-"/        ].
-"/        type == #partner ifTrue:[
-"/            windowGroup partnersDo:[:v | v ~~ self ifTrue:[v rerealize]].
-"/        ]
-"/    ].
+    "Modified: 8.5.1996 / 23:05:34 / cg"
 !
 
 masterSlaveMessage:aSelector inGroup:aWindowGroup
@@ -366,20 +359,13 @@
     "/
     "/ unrealize slaves and partners
     "/
-    self masterSlaveMessage:#unrealize inGroup:windowGroup 
+    self masterSlaveMessage:#unmap inGroup:windowGroup
 
-"/    windowGroup notNil ifTrue:[
-"/        (type == #master or:[type == #partner]) ifTrue:[
-"/            windowGroup slavesDo:[:v | v unrealize].
-"/        ].
-"/        type == #partner ifTrue:[
-"/            windowGroup partnersDo:[:v | v ~~ self ifTrue:[v unrealize]].
-"/        ].
-"/    ].
+    "Modified: 8.5.1996 / 23:05:45 / cg"
 ! !
 
 !TopView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview/TopView.st,v 1.22 1996-05-03 23:15:55 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/TopView.st,v 1.23 1996-05-08 21:06:31 cg Exp $'
 ! !