equal
deleted
inserted
replaced
139 (#fileLocked 'tiny_file_lock.xpm' ) |
139 (#fileLocked 'tiny_file_lock.xpm' ) |
140 (#imageFile 'tiny_file_pix.xpm' ) |
140 (#imageFile 'tiny_file_pix.xpm' ) |
141 |
141 |
142 ) do:[:el | |
142 ) do:[:el | |
143 image := Image fromFile:('xpmBitmaps/document_images/', el last ). |
143 image := Image fromFile:('xpmBitmaps/document_images/', el last ). |
144 icons at:(el first) put:(image onDevice:aDevice). |
144 image notNil ifTrue:[ |
|
145 icons at:(el first) put:(image onDevice:aDevice). |
|
146 ] |
145 ]. |
147 ]. |
146 ^ icons |
148 ^ icons |
147 |
149 |
148 |
150 |
149 ! ! |
151 ! ! |
349 ! ! |
351 ! ! |
350 |
352 |
351 !FileSelectionItem class methodsFor:'documentation'! |
353 !FileSelectionItem class methodsFor:'documentation'! |
352 |
354 |
353 version |
355 version |
354 ^ '$Header: /cvs/stx/stx/libwidg2/FileSelectionItem.st,v 1.3 1997-08-11 11:02:55 ca Exp $' |
356 ^ '$Header: /cvs/stx/stx/libwidg2/FileSelectionItem.st,v 1.4 1997-09-16 04:01:58 cg Exp $' |
355 ! ! |
357 ! ! |