equal
deleted
inserted
replaced
556 #translateLabel: true |
556 #translateLabel: true |
557 #value: #openChangesBrowser |
557 #value: #openChangesBrowser |
558 #enabled: #hasSelection |
558 #enabled: #hasSelection |
559 ) |
559 ) |
560 #(#MenuItem |
560 #(#MenuItem |
|
561 #label: 'Create Smalltalk Project' |
|
562 #translateLabel: true |
|
563 #value: #createProjectAndOpenProjectBrowser |
|
564 #enabled: #canCreateNewProject |
|
565 ) |
|
566 #(#MenuItem |
|
567 #label: 'Install autoloaded' |
|
568 #translateLabel: true |
|
569 #value: #readAbbrevFile |
|
570 #enabled: #canReadAbbrevFile |
|
571 ) |
|
572 #(#MenuItem |
561 #label: 'Editor' |
573 #label: 'Editor' |
562 #translateLabel: true |
574 #translateLabel: true |
563 #value: #openEditor |
575 #value: #openEditor |
564 #enabled: #hasSelection |
576 #enabled: #hasSelection |
565 ) |
577 ) |
669 ) |
681 ) |
670 ) |
682 ) |
671 nil |
683 nil |
672 nil |
684 nil |
673 ) |
685 ) |
|
686 |
|
687 "Modified: / 29.1.2000 / 13:04:43 / cg" |
674 ! |
688 ! |
675 |
689 |
676 menuSpec |
690 menuSpec |
677 "This resource specification was automatically generated |
691 "This resource specification was automatically generated |
678 by the MenuEditor of ST/X." |
692 by the MenuEditor of ST/X." |
1010 #translateLabel: true |
1024 #translateLabel: true |
1011 #value: #createProjectAndOpenProjectBrowser |
1025 #value: #createProjectAndOpenProjectBrowser |
1012 #enabled: #canCreateNewProject |
1026 #enabled: #canCreateNewProject |
1013 ) |
1027 ) |
1014 #(#MenuItem |
1028 #(#MenuItem |
|
1029 #label: 'Install autoloaded' |
|
1030 #translateLabel: true |
|
1031 #value: #readAbbrevFile |
|
1032 #enabled: #canReadAbbrevFile |
|
1033 ) |
|
1034 #(#MenuItem |
1015 #label: 'Editor' |
1035 #label: 'Editor' |
1016 #translateLabel: true |
1036 #translateLabel: true |
1017 #value: #openEditor |
1037 #value: #openEditor |
1018 #enabled: #hasSelection |
1038 #enabled: #hasSelection |
1019 ) |
1039 ) |
1168 ) |
1188 ) |
1169 ) |
1189 ) |
1170 nil |
1190 nil |
1171 nil |
1191 nil |
1172 ) |
1192 ) |
|
1193 |
|
1194 "Modified: / 29.1.2000 / 12:59:41 / cg" |
1173 ! ! |
1195 ! ! |
1174 |
1196 |
1175 !FileBrowser class methodsFor:'queries'! |
1197 !FileBrowser class methodsFor:'queries'! |
1176 |
1198 |
1177 isVisualStartable |
1199 isVisualStartable |
1242 ^ OperatingSystem isUNIXlike |
1264 ^ OperatingSystem isUNIXlike |
1243 or:[OperatingSystem isMSWINDOWSlike] |
1265 or:[OperatingSystem isMSWINDOWSlike] |
1244 |
1266 |
1245 "Created: / 4.8.1998 / 13:37:13 / cg" |
1267 "Created: / 4.8.1998 / 13:37:13 / cg" |
1246 "Modified: / 28.4.1999 / 11:54:17 / cg" |
1268 "Modified: / 28.4.1999 / 11:54:17 / cg" |
|
1269 ! |
|
1270 |
|
1271 canReadAbbrevFile |
|
1272 ^ [|sel f fn suff| |
|
1273 |
|
1274 sel := fileListView selection. |
|
1275 sel size == 1 ifTrue:[ |
|
1276 f := fileList at:sel first ifAbsent:nil. |
|
1277 f notNil ifTrue:[ |
|
1278 f = 'abbrev.stc'. |
|
1279 ] ifFalse:[ |
|
1280 false |
|
1281 ] |
|
1282 ] ifFalse:[ |
|
1283 false |
|
1284 ] |
|
1285 ] |
|
1286 |
|
1287 "Modified: / 30.1.1999 / 19:05:59 / cg" |
|
1288 "Created: / 29.1.2000 / 13:00:57 / cg" |
1247 ! |
1289 ! |
1248 |
1290 |
1249 canRemoveCVSContainer |
1291 canRemoveCVSContainer |
1250 ^ [ |cvsDir| |
1292 ^ [ |cvsDir| |
1251 |
1293 |
1409 |
1451 |
1410 showingHiddenFiles |
1452 showingHiddenFiles |
1411 ^ showingHiddenFiles |
1453 ^ showingHiddenFiles |
1412 |
1454 |
1413 "Created: / 14.8.1998 / 14:15:44 / cg" |
1455 "Created: / 14.8.1998 / 14:15:44 / cg" |
|
1456 ! |
|
1457 |
|
1458 singleSelectedFile |
|
1459 |f sel| |
|
1460 |
|
1461 sel := fileListView selection. |
|
1462 sel size ~~ 1 ifTrue:[ |
|
1463 ^ nil |
|
1464 ]. |
|
1465 f := fileList at:sel first ifAbsent:nil. |
|
1466 f notNil ifTrue:[ |
|
1467 ^ currentDirectory asFilename construct:f |
|
1468 ]. |
|
1469 ^ nil |
|
1470 |
|
1471 "Created: / 29.1.2000 / 13:09:09 / cg" |
1414 ! |
1472 ! |
1415 |
1473 |
1416 singleSelectedFileOrCurrentDirectory |
1474 singleSelectedFileOrCurrentDirectory |
1417 |f sel| |
1475 |f sel| |
1418 |
1476 |
3056 zipTool initialExtractDirectory:currentDirectory |
3114 zipTool initialExtractDirectory:currentDirectory |
3057 ]. |
3115 ]. |
3058 |
3116 |
3059 "Created: / 26.8.1998 / 16:20:55 / cg" |
3117 "Created: / 26.8.1998 / 16:20:55 / cg" |
3060 "Modified: / 25.5.1999 / 16:30:54 / cg" |
3118 "Modified: / 25.5.1999 / 16:30:54 / cg" |
|
3119 ! |
|
3120 |
|
3121 readAbbrevFile |
|
3122 |sel| |
|
3123 |
|
3124 sel := self singleSelectedFile. |
|
3125 sel notNil ifTrue:[ |
|
3126 Smalltalk installAutoloadedClassesFrom:sel |
|
3127 ]. |
|
3128 |
|
3129 "Created: / 4.2.1999 / 17:40:42 / cg" |
|
3130 "Modified: / 29.1.2000 / 13:10:01 / cg" |
3061 ! |
3131 ! |
3062 |
3132 |
3063 showOrHideTabView |
3133 showOrHideTabView |
3064 "depending on the showLongList setting, show or hde the tabSpec view" |
3134 "depending on the showLongList setting, show or hde the tabSpec view" |
3065 |
3135 |
6980 ! ! |
7050 ! ! |
6981 |
7051 |
6982 !FileBrowser class methodsFor:'documentation'! |
7052 !FileBrowser class methodsFor:'documentation'! |
6983 |
7053 |
6984 version |
7054 version |
6985 ^ '$Header: /cvs/stx/stx/libtool/FileBrowser.st,v 1.362 2000-01-22 17:53:18 cg Exp $' |
7055 ^ '$Header: /cvs/stx/stx/libtool/FileBrowser.st,v 1.363 2000-01-31 13:49:56 cg Exp $' |
6986 ! ! |
7056 ! ! |