equal
deleted
inserted
replaced
1 "{ Encoding: utf8 }" |
|
2 |
|
3 " |
1 " |
4 COPYRIGHT (c) 2002 by eXept Software AG |
2 COPYRIGHT (c) 2002 by eXept Software AG |
5 All Rights Reserved |
3 All Rights Reserved |
6 |
4 |
7 This software is furnished under a license and may be used |
5 This software is furnished under a license and may be used |
235 |
233 |
236 FileBrowserV2 isNil ifTrue:[^ self]. |
234 FileBrowserV2 isNil ifTrue:[^ self]. |
237 |
235 |
238 "JV@2012-04-03: Changed to reflect UserPreferences" |
236 "JV@2012-04-03: Changed to reflect UserPreferences" |
239 "/action := (MessageSend receiver:(Smalltalk at:self name) selector:#open). |
237 "/action := (MessageSend receiver:(Smalltalk at:self name) selector:#open). |
240 action := [ UserPreferences fileBrowserClass open]. |
238 action := [ FileBrowser default open]. |
241 |
239 |
242 icon := [self defaultIcon]. "/ self defaultIcon magnifiedTo:28@28. |
240 icon := [self defaultIcon]. "/ self defaultIcon magnifiedTo:28@28. |
243 |
241 |
244 "/ already there |
242 "/ already there |
245 "/ menuItem := MenuItem new |
243 "/ menuItem := MenuItem new |
287 self installInLauncher |
285 self installInLauncher |
288 self removeFromLauncher |
286 self removeFromLauncher |
289 " |
287 " |
290 |
288 |
291 "Modified: / 03-04-2012 / 11:06:30 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
289 "Modified: / 03-04-2012 / 11:06:30 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
|
290 "Modified: / 01-09-2017 / 14:05:06 / cg" |
292 ! |
291 ! |
293 |
292 |
294 removeFromLauncher |
293 removeFromLauncher |
295 "remove myself from the launcher's menu & settings dialog" |
294 "remove myself from the launcher's menu & settings dialog" |
296 |
295 |