TopView.st
changeset 909 d2d624d57f61
parent 908 0fbe814e06ee
child 932 1748c4b8b848
equal deleted inserted replaced
908:0fbe814e06ee 909:d2d624d57f61
   280      The view is marked as being a transient (i.e. pop-up) view for
   280      The view is marked as being a transient (i.e. pop-up) view for
   281      anotherView - it will deiconify with it and (on some windowManagers)
   281      anotherView - it will deiconify with it and (on some windowManagers)
   282      have no iconify button of its own.
   282      have no iconify button of its own.
   283      Notice, that its up to the windowManager to care for any borders -
   283      Notice, that its up to the windowManager to care for any borders -
   284      it seems not deterministic, where the view actually ends up being positioned.
   284      it seems not deterministic, where the view actually ends up being positioned.
   285      Not all windowManagers honor this - some insist on it ..."
   285      Not all windowManagers (olwm) honor this - some insist on it ..."
   286 
   286 
   287     |otherId|
   287     |otherId|
   288 
   288 
   289     self create. 
   289     self create. 
   290     anotherView isNil ifTrue:[
   290     anotherView isNil ifTrue:[
   305      v1 open.
   305      v1 open.
   306      v2 openAt:0@0 transientFor:v1.
   306      v2 openAt:0@0 transientFor:v1.
   307     "
   307     "
   308 
   308 
   309     "Created: 28.6.1996 / 10:51:55 / cg"
   309     "Created: 28.6.1996 / 10:51:55 / cg"
   310     "Modified: 28.6.1996 / 10:53:19 / cg"
   310     "Modified: 28.6.1996 / 10:55:22 / cg"
   311 !
   311 !
   312 
   312 
   313 openTransientAt:aPosition
   313 openTransientAt:aPosition
   314     "force the view to be opened at soem position on the screen
   314     "force the view to be opened at soem position on the screen
   315      AND tell the windowManager to NOT let the user choose a position
   315      AND tell the windowManager to NOT let the user choose a position
   316      (i.e. suppress any ghostframe).
   316      (i.e. suppress any ghostframe).
   317      Notice, that its up to the windowManager to care for any borders -
   317      Notice, that its up to the windowManager to care for any borders -
   318      it seems not deterministic, where the view actually ends up being positioned.
   318      it seems not deterministic, where the view actually ends up being positioned.
   319      Not all windowManagers honor this - some insist on it ..."
   319      Not all windowManagers (olwm) honor this - some insist on it ..."
   320 
   320 
   321     self openAt:aPosition transientFor:nil
   321     self openAt:aPosition transientFor:nil
   322 
   322 
   323     "normal open:
   323     "normal open:
   324 
   324 
   334 
   334 
   335      v := StandardSystemView extent:300@300.
   335      v := StandardSystemView extent:300@300.
   336      v openTransientAt:10@10
   336      v openTransientAt:10@10
   337     "
   337     "
   338 
   338 
   339     "Modified: 28.6.1996 / 10:47:16 / cg"
       
   340     "Created: 28.6.1996 / 10:52:30 / cg"
   339     "Created: 28.6.1996 / 10:52:30 / cg"
       
   340     "Modified: 28.6.1996 / 10:55:15 / cg"
   341 !
   341 !
   342 
   342 
   343 openWithExtent:anExtent
   343 openWithExtent:anExtent
   344     "set extent and open. The given extent overrides the 
   344     "set extent and open. The given extent overrides the 
   345      receivers preferredExtent.
   345      receivers preferredExtent.
   440 ! !
   440 ! !
   441 
   441 
   442 !TopView  class methodsFor:'documentation'!
   442 !TopView  class methodsFor:'documentation'!
   443 
   443 
   444 version
   444 version
   445     ^ '$Header: /cvs/stx/stx/libview/TopView.st,v 1.28 1996-06-28 08:54:13 cg Exp $'
   445     ^ '$Header: /cvs/stx/stx/libview/TopView.st,v 1.29 1996-06-28 08:56:17 cg Exp $'
   446 ! !
   446 ! !