7 inclusion of the above copyright notice. This software may not |
7 inclusion of the above copyright notice. This software may not |
8 be provided or otherwise made available to, or used by, any |
8 be provided or otherwise made available to, or used by, any |
9 other person. No title to or ownership of the software is |
9 other person. No title to or ownership of the software is |
10 hereby transferred. |
10 hereby transferred. |
11 " |
11 " |
12 |
|
13 "{ Package: 'stx:libtool' }" |
12 "{ Package: 'stx:libtool' }" |
14 |
13 |
15 SimpleDialog subclass:#FileDialogV2 |
14 SimpleDialog subclass:#FileDialogV2 |
16 instanceVariableNames:'aspects directory pattern filterHolder initialText multipleSelect |
15 instanceVariableNames:'aspects directory pattern filterHolder initialText multipleSelect |
17 doubleClickAction cancelLabelHolder okLabelHolder startFilename |
16 doubleClickAction cancelLabelHolder okLabelHolder startFilename |
909 submenuChannel: menuDirHistoryBack |
896 submenuChannel: menuDirHistoryBack |
910 labelImage: (ResourceRetriever ToolbarIconLibrary historyBackIcon) |
897 labelImage: (ResourceRetriever ToolbarIconLibrary historyBackIcon) |
911 keepLinkedMenu: true |
898 keepLinkedMenu: true |
912 ) |
899 ) |
913 (MenuItem |
900 (MenuItem |
914 label: '' |
|
915 ) |
|
916 (MenuItem |
|
917 activeHelpKey: directoryForward |
901 activeHelpKey: directoryForward |
918 enabled: enableForward |
902 enabled: enableForward |
919 label: 'Forward' |
903 label: 'Forward' |
920 itemValue: doForward |
904 itemValue: doForward |
921 translateLabel: true |
905 translateLabel: true |
922 isButton: true |
906 isButton: true |
923 submenuChannel: menuDirHistoryForward |
907 submenuChannel: menuDirHistoryForward |
924 labelImage: (ResourceRetriever ToolbarIconLibrary historyForwardIcon) |
908 labelImage: (ResourceRetriever ToolbarIconLibrary historyForwardIcon) |
925 keepLinkedMenu: true |
909 keepLinkedMenu: true |
|
910 ) |
|
911 (MenuItem |
|
912 label: '-' |
|
913 ) |
|
914 (MenuItem |
|
915 activeHelpKey: directoryUp |
|
916 enabled: enableDirectoryUp |
|
917 label: 'DirectoryUp' |
|
918 itemValue: doGoDirectoryUp |
|
919 translateLabel: true |
|
920 isButton: true |
|
921 labelImage: (ResourceRetriever ToolbarIconLibrary directoryUpIcon) |
926 ) |
922 ) |
927 (MenuItem |
923 (MenuItem |
928 label: '' |
924 label: '' |
929 ) |
925 ) |
930 (MenuItem |
926 (MenuItem |
1353 ! |
1351 ! |
1354 |
1352 |
1355 gotoBookmarksMenuSpec |
1353 gotoBookmarksMenuSpec |
1356 <resource: #programMenu> |
1354 <resource: #programMenu> |
1357 |
1355 |
1358 |menu bookmarks| |
1356 ^ contentsBrowser gotoBookmarksMenuSpec |
1359 |
1357 |
1360 menu := contentsBrowser class emptyMenuSpec decodeAsLiteralArray. |
1358 "/ |menu bookmarks| |
1361 menu findGuiResourcesIn:self. |
1359 "/ |
1362 menu receiver:self. |
1360 "/ menu := contentsBrowser class emptyMenuSpec decodeAsLiteralArray. |
1363 |
1361 "/ menu findGuiResourcesIn:self. |
1364 "/ add the bookmark items ... |
1362 "/ menu receiver:self. |
1365 bookmarks := contentsBrowser class directoryBookmarks. |
1363 "/ |
1366 bookmarks notEmptyOrNil ifTrue:[ |
1364 "/ "/ add the bookmark items ... |
1367 bookmarks do:[:dirName | |
1365 "/ bookmarks := contentsBrowser class directoryBookmarks. |
1368 menu addItem:((MenuItem label:dirName asString value:[ |
1366 "/ bookmarks notEmptyOrNil ifTrue:[ |
1369 (contentsBrowser currentDirectories value includes:dirName) ifFalse:[ |
1367 "/ bookmarks do:[:dirName | |
1370 contentsBrowser setCurrentFileName:dirName. |
1368 "/ menu addItem:((MenuItem label:dirName asString value:[ |
1371 ]. |
1369 "/ (contentsBrowser currentDirectories value includes:dirName) ifFalse:[ |
1372 ])). |
1370 "/ contentsBrowser setCurrentFileName:dirName. |
1373 ]. |
1371 "/ ]. |
1374 ]. |
1372 "/ ])). |
1375 ^ menu |
1373 "/ ]. |
1376 |
1374 "/ ]. |
1377 "Modified: / 17.8.1998 / 10:13:05 / cg" |
1375 "/ ^ menu |
|
1376 |
|
1377 "Modified: / 06-12-2006 / 12:06:17 / cg" |
1378 ! |
1378 ! |
1379 |
1379 |
1380 okLabelHolder |
1380 okLabelHolder |
1381 "automatically generated by UIPainter ..." |
1381 "automatically generated by UIPainter ..." |
1382 |
1382 |