TopView.st
changeset 645 a62615e26583
parent 625 4d8f6dc3af75
child 658 ce56170b3fb1
equal deleted inserted replaced
644:85ce9499c925 645:a62615e26583
   203 
   203 
   204 raiseDeiconified
   204 raiseDeiconified
   205     "deiconify & bring to front"
   205     "deiconify & bring to front"
   206 
   206 
   207     self isCollapsed ifTrue:[
   207     self isCollapsed ifTrue:[
   208 	self unrealize.
   208         self unmap.
   209 	self realize.
   209         self realize.
   210     ].
   210     ].
   211     self raise
   211     self raise
   212 
   212 
   213     "
   213     "
   214      Transcript topView raiseDeiconified
   214      Transcript topView raiseDeiconified
   215     "
   215     "
       
   216 
       
   217     "Modified: 3.5.1996 / 23:49:36 / stefan"
   216 !
   218 !
   217 
   219 
   218 withCursor:aCursor do:aBlock
   220 withCursor:aCursor do:aBlock
   219     "evaluate aBlock while showing aCursor in all my views.
   221     "evaluate aBlock while showing aCursor in all my views.
   220      Return the value as returned by aBlock."
   222      Return the value as returned by aBlock."
   377 ! !
   379 ! !
   378 
   380 
   379 !TopView class methodsFor:'documentation'!
   381 !TopView class methodsFor:'documentation'!
   380 
   382 
   381 version
   383 version
   382     ^ '$Header: /cvs/stx/stx/libview/TopView.st,v 1.21 1996-04-30 13:42:06 cg Exp $'
   384     ^ '$Header: /cvs/stx/stx/libview/TopView.st,v 1.22 1996-05-03 23:15:55 stefan Exp $'
   383 ! !
   385 ! !