home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
OS/2 Shareware BBS: 10 Tools
/
10-Tools.zip
/
RB3641.ZIP
/
EX2
/
SORTBY2.MTH
< prev
next >
Wrap
Text File
|
1991-12-16
|
559b
|
25 lines
!ToDoListView methods !
sortBy: aKey
"Sort the ToDOList using the sort key "
(aKey isNil) ifTrue: [
sortKey:='priority' .
toDoList sortList: 'priority' .
]
ifFalse: [
sortKey:=aKey .
toDoList sortList: aKey.
].
toDoList sortList.
todoListBox contents: toDoList.
todoListBox selection: 1.
statusField backColor: ClrYellow;
contents: 'List updated, sortkey: ' , sortKey.! !