home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 10 Tools / 10-Tools.zip / cubbon.zip / WINMTHDS.TXT < prev   
Text File  |  1995-02-10  |  1KB  |  42 lines
  1. positionSizeWindowAtX: x atY: y
  2.     "Set the initial window position and adjust 
  3.      initial window size to the current system.
  4.  
  5.      Invoke with #aboutToOpenWidget event.
  6.  
  7.      Note: assumes the window part is named Window"
  8.  
  9. "Set initial position."
  10.     (self partAttributeValue: #(#'Window' #self))
  11.         primaryWidget x: x asNumber.
  12.     (self partAttributeValue: #(#'Window' #self))
  13.         primaryWidget y: y asNumber.
  14.  
  15. "Set size of development environment screen"
  16.  
  17.     ScreenFunctions developmentScreenWidth: 640.
  18.     ScreenFunctions developmentScreenHeight: 480.
  19.  
  20. "Size the window"
  21.     ScreenFunctions sizeAWindow: 
  22.         (self partAttributeValue: #(#'Window' #self)).
  23.  
  24.  
  25.  
  26.  
  27.  
  28. helpWithTitle: titleString inFile: fileNameString
  29.     "Display generic Help window.
  30.  
  31.      Invoked by F1 key.
  32.  
  33.      Note: assumes help window part is named Window_Help.
  34.            The HelpWindow instance has two variables, HelpTitle 
  35.            and HelpFile."
  36.  
  37.     self partAttributeValue: #(#'Window_Help' #HelpTitle) 
  38.         put: titleString.
  39.     self partAttributeValue: #(#'Window_Help' #HelpFile) 
  40.         put: fileNameString.
  41.     (self subpartNamed: #'Window_Help') performActionNamed: 
  42.         #openWidget.