WindowBuilder.st
changeset 4234 abfff228a728
parent 4224 8ce4f91fb3ef
child 4244 b60f87ce9eda
equal deleted inserted replaced
4233:7bc96946d912 4234:abfff228a728
     1 "{ Encoding: utf8 }"
       
     2 
       
     3 "
     1 "
     4  COPYRIGHT (c) 1995 by Claus Gittinger
     2  COPYRIGHT (c) 1995 by Claus Gittinger
     5 	      All Rights Reserved
     3 	      All Rights Reserved
     6 
     4 
     7  This software is furnished under a license and may be used
     5  This software is furnished under a license and may be used
  1431 !WindowBuilder methodsFor:'startup-basic'!
  1429 !WindowBuilder methodsFor:'startup-basic'!
  1432 
  1430 
  1433 openAt:origin withExtent:ext andType:type
  1431 openAt:origin withExtent:ext andType:type
  1434     "open my window, as previously created, optionally defining the
  1432     "open my window, as previously created, optionally defining the
  1435      windows origin and/or extent.
  1433      windows origin and/or extent.
  1436      The type argument may be #dialog, #popup or #normal,
  1434      The type argument may be 
  1437      and specifies if the view should be opened as a
  1435         #normal, #dialog, #popUp,
  1438         modal view (blocking interaction to the currently active view),
  1436         #toolDialog, #popupWithFrame, #slave, #partner, #popUpNotModal
  1439         as popUp (also blocking)
  1437         #undecorated or #undecoratedResizable
  1440         or as a normal view."
  1438      and specifies how the view should be opened.
       
  1439      Most common are
       
  1440         #dialog: modal view (blocking interaction to the currently active view),
       
  1441         #popUp: blocking, undecorated
       
  1442         #normal: a standard view"
  1441 
  1443 
  1442     |appWinClass windowsDevice wg mainWin x y monitorBounds newOrigin|
  1444     |appWinClass windowsDevice wg mainWin x y monitorBounds newOrigin|
  1443 
  1445 
  1444     windowsDevice := window device.
  1446     windowsDevice := window device.
  1445 
  1447 
  1636     "
  1638     "
  1637     self shouldImplement
  1639     self shouldImplement
  1638 
  1640 
  1639     "Created: / 14-02-1997 / 20:22:24 / cg"
  1641     "Created: / 14-02-1997 / 20:22:24 / cg"
  1640     "Modified: / 22-03-2011 / 13:31:52 / cg"
  1642     "Modified: / 22-03-2011 / 13:31:52 / cg"
       
  1643     "Modified (comment): / 23-02-2019 / 15:02:21 / Claus Gittinger"
  1641 ! !
  1644 ! !
  1642 
  1645 
  1643 !WindowBuilder methodsFor:'translating'!
  1646 !WindowBuilder methodsFor:'translating'!
  1644 
  1647 
  1645 translateString:aString
  1648 translateString:aString