home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 10 Tools / 10-Tools.zip / RB3641.ZIP / EX2 / TDLVOPEN.MTH < prev    next >
Text File  |  1991-12-18  |  842b  |  39 lines
  1.  
  2.  
  3.  
  4. !ToDoListView methods !
  5.    
  6. open
  7. "12/12 update"
  8.     "Open the ToDoList application window"
  9.  
  10.  
  11.     self setItemHeight.
  12.     self setListFont.
  13.     self
  14.         owner: self;
  15.         label: 'To-Do List'.
  16.     self when: #close perform: #close: .
  17.  
  18.     self addHeaders. 
  19.     self addListBox.     
  20.  
  21.     toDoList:= ToDoList new.    
  22.     toDoList readList.  
  23.  
  24.     toDoPriorityList := ToDoPriorityList new class init.
  25.     self addFields.  
  26.     self addButtons.
  27.     self addStatus.
  28.  
  29.     HelpManager for: (self mainView) title: 'Help' file: 'c:\stvpm13\ex2\todo.hlp'  dialogs:#() aboutDlgClass: (ToDoAboutDialogBox initialize). 
  30.  
  31.     self openWindow.
  32.     (toDoList size > 0 ) ifTrue:[
  33.             prevSelection := 1.
  34.             self sortBy:  sortKey.
  35.              ] 
  36.        ifFalse:[
  37.              self addTemplateItem.
  38.               ].! !
  39.