home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 10 Tools / 10-Tools.zip / cubbon.zip / HELPMTHD.TXT next >
Text File  |  1995-02-10  |  476b  |  13 lines
  1. intializeWindow
  2.     "Check to see if a file name was passed.
  3.      If so, get the help text from it.
  4.      If not, use default text.
  5.  
  6.     Invoked by #aboutToOpenWidget."
  7.  
  8.     ( ((self partAttributeValue: #(#'HelpFile' #self)) isNil)
  9.         or: [(self partAttributeValue: #(#'HelpFile' #self)) size = 0] )
  10.             ifTrue: [
  11.                 self partAttributeValue: #(#'HelpText' #self) 
  12.                      put: 'This would use the OS/2 Help Facitity to show the selected help.'.]
  13.             ifFalse: [self readTextFromFile.].