home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 10 Tools / 10-Tools.zip / RB3641.ZIP / EX2 / TODOPRI.CLS < prev    next >
Text File  |  1991-12-16  |  504b  |  27 lines
  1.  
  2. Dictionary subclass: #ToDoPriorityList
  3.   instanceVariableNames: ''
  4.   classVariableNames: ''
  5.   poolDictionaries: 
  6.     'PMConstants '   !
  7.  
  8.  
  9. !ToDoPriorityList class methods !
  10.  
  11. init
  12.     "Create a Dictionary containing all allowed priorities.
  13.      An instance of this class is created in ToDoItem ."
  14.  
  15.     | pDict |
  16.      pDict:= Dictionary new.
  17.  
  18.      pDict at: 'Low' put: 3.
  19.      pDict at: 'Med' put: 2.
  20.      pDict at: 'High' put: 1.
  21.  
  22.     ^pDict.! !
  23.  
  24.  
  25.  
  26. !ToDoPriorityList methods ! !
  27.