home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 10 Tools / 10-Tools.zip / RB3641.ZIP / EX2 / INIT.MTH < prev    next >
Text File  |  1991-12-16  |  327b  |  18 lines
  1.  
  2.  
  3.  
  4. !ToDoPriorityList class methods !
  5.  
  6. init
  7.     "Create a Dictionary containing all allowed priorities.
  8.      An instance of this class is created in ToDoItem ."
  9.  
  10.     | pDict |
  11.      pDict:= Dictionary new.
  12.  
  13.      pDict at: 'Low' put: 3.
  14.      pDict at: 'Med' put: 2.
  15.      pDict at: 'High' put: 1.
  16.  
  17.     ^pDict.! !
  18.