home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 10 Tools / 10-Tools.zip / RB3641.ZIP / EX2 / TDTOPP1.CLS < prev    next >
Text File  |  1991-12-16  |  3KB  |  147 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. sortByDescription!
  113.   
  114. sortByMenu
  115.         "Private - Answer the SortBy... menu."
  116.     ^Menu new
  117.  
  118.         appendItem: '~Type' selector: #sortByType;
  119.         appendItem: '~Description' selector: #sortByDescription ;
  120.         appendItem: 'Dead~line' selector: #sortByDeadline ;
  121.         appendItem: '~Priority' selector: #sortByPriority ;
  122.         checkItem: '~Priority' ;
  123.         title: '~Sort By';
  124.         owner: self.!
  125.    
  126. sortByPriority!
  127.  
  128. sortByType!
  129.  
  130. unDo
  131.   "Nothing here"
  132.     ^nil!
  133.   
  134. viewMenu
  135.         "Private - Answer the SortBy... menu."
  136.     ^Menu new
  137.  
  138.         appendItem: '~List' selector: #list;
  139.         appendItem: '~Settings' selector: #openAsSettings ;
  140.         appendSeparator;
  141.         appendSubMenu: (self sortByMenu owner: self) ;
  142.         appendItem: '~Include ...' selector: #include ;
  143.         appendSeparator;
  144.         appendItem:  '~Refresh now' selector: #refresh ;
  145.         title: '~View';
  146.         owner: self.! !
  147.