home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 10 Tools / 10-Tools.zip / RB3641.ZIP / EX2 / SORTBY2.MTH < prev    next >
Text File  |  1991-12-16  |  559b  |  25 lines
  1.  
  2.  
  3.  
  4. !ToDoListView methods !
  5.    
  6. sortBy: aKey
  7.   "Sort the ToDOList using the sort key "
  8.  
  9.      (aKey isNil) ifTrue: [ 
  10.                      sortKey:='priority' .
  11.                      toDoList sortList:  'priority' .
  12.                      ] 
  13.         ifFalse: [    
  14.                      sortKey:=aKey .
  15.                       toDoList sortList: aKey. 
  16.                       ].
  17.  
  18.     toDoList sortList. 
  19.  
  20.     todoListBox contents: toDoList.
  21.     todoListBox selection: 1.
  22.  
  23.     statusField backColor: ClrYellow;
  24.         contents: 'List updated, sortkey: ' , sortKey.! !
  25.