home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 10 Tools / 10-Tools.zip / RB3641.ZIP / EX2 / TDTOPP2.CLS < prev    next >
Text File  |  1991-12-16  |  3KB  |  155 lines
  1.  
  2. CUATopPane subclass: #ToDoTopPane
  3.   instanceVariableNames: ''
  4.   classVariableNames: ''
  5.   poolDictionaries: 
  6.     'PMConstants '    !
  7.  
  8.  
  9. !ToDoTopPane class methods ! !
  10.  
  11.  
  12.  
  13. !ToDoTopPane methods !
  14.  
  15. addItem
  16.  
  17.     ^owner addItem!
  18.  
  19. buildMenuBar
  20.         "Private - Build menu bar."
  21.     | eachMenu |
  22.     super buildMenuBar.
  23.      (eachMenu := menuWindow menuTitled: '~View') notNil
  24.             ifTrue: [eachMenu disableItem: #list.
  25.                         eachMenu  disableItem: #include.
  26.                         eachMenu  disableItem: #openAsSettings.].
  27.      (eachMenu := menuWindow menuTitled: '~Edit') notNil
  28.             ifTrue: [eachMenu  disableItem: #unDo. 
  29.                         eachMenu  disableItem: #reDo.
  30.                         eachMenu  disableItem: #copyItem.
  31.                         eachMenu  disableItem: #createItem.  
  32.                         eachMenu  disableItem: #pasteItem.  ].
  33.      (eachMenu := menuWindow menuTitled: '~ThingsToDo') notNil
  34.             ifTrue: [eachMenu  disableItem: #openAsSettings.].
  35.     self event: #menuBuilt!
  36.    
  37. clearAll
  38.  
  39.     ^owner clearAll!
  40.    
  41. copyItem
  42.   "Nothing here"
  43.     ^nil!
  44.   
  45. createItem
  46.   "Nothing here"
  47.     ^nil!
  48.  
  49. editMenu
  50.         "Private - Answer the SortBy... menu."
  51.     ^Menu new
  52.  
  53.         appendItem: '~Undo' selector: #unDo;
  54.         appendItem: '~Redo' selector: #reDo;
  55.         appendSeparator;
  56.         appendItem: '~Copy' selector: #copyItem;
  57.         appendItem: 'Cr~eate' selector: #createItem ;
  58.         appendItem: '~Paste' selector: #pasteItem ;
  59.         appendSeparator;
  60.         appendItem: '~New item' selector: #addItem;
  61.         appendItem: '~Delete item' selector: #removeItem ;
  62.         appendSeparator;
  63.         appendItem: 'C~lear all' selector: #clearAll;
  64.         title: '~Edit';
  65.         owner: self.!
  66.  
  67. include
  68.  
  69.     ^nil!
  70.    
  71. list
  72.   "Nothing here"
  73.     ^nil!
  74.   
  75. openAsSettings
  76.  
  77.     ^nil!
  78.  
  79. openToDoList
  80.  
  81.   owner openToDoList.!
  82.   
  83. pasteItem
  84.   "Nothing here"
  85.     ^nil!
  86.  
  87. print
  88.         "Ask the owner (ToDoListView) to print the currently selected
  89.          item."
  90.  
  91.         owner printItem.!
  92.  
  93. printAll
  94.         "Ask the owner (ToDoListView) to print all the items in the list."
  95.  
  96.         owner printAllItems.!
  97.    
  98. reDo
  99.   "Nothing here"
  100.     ^nil!
  101.   
  102. refresh
  103.  
  104.     owner refreshButton: nil!
  105.    
  106. removeItem
  107.  
  108.     ^owner removeItem!
  109.    
  110. sortByDeadline
  111.     
  112.     owner sortBy: 'deadline'.!
  113.   
  114. sortByDescription
  115.     
  116.         owner sortBy: 'description'.!
  117.    
  118. sortByMenu
  119.         "Private - Answer the SortBy... menu."
  120.     ^Menu new
  121.  
  122.         appendItem: '~Type' selector: #sortByType;
  123.         appendItem: '~Description' selector: #sortByDescription ;
  124.         appendItem: 'Dead~line' selector: #sortByDeadline ;
  125.         appendItem: '~Priority' selector: #sortByPriority ;
  126.         checkItem: '~Priority' ;
  127.         title: '~Sort By';
  128.         owner: self.!
  129.    
  130. sortByPriority
  131.     
  132.         owner sortBy: 'priority'.!
  133.  
  134. sortByType
  135.     
  136.     owner sortBy: 'type'.!
  137.   
  138. unDo
  139.   "Nothing here"
  140.     ^nil!
  141.   
  142. viewMenu
  143.         "Private - Answer the SortBy... menu."
  144.     ^Menu new
  145.  
  146.         appendItem: '~List' selector: #list;
  147.         appendItem: '~Settings' selector: #openAsSettings ;
  148.         appendSeparator;
  149.         appendSubMenu: (self sortByMenu owner: self) ;
  150.         appendItem: '~Include ...' selector: #include ;
  151.         appendSeparator;
  152.         appendItem:  '~Refresh now' selector: #refresh ;
  153.         title: '~View';
  154.         owner: self.! !
  155.