equal
deleted
inserted
replaced
564 |
564 |
565 ) |
565 ) |
566 ) |
566 ) |
567 (#'FileBrowserV2UISpecifications::PanelSpec' |
567 (#'FileBrowserV2UISpecifications::PanelSpec' |
568 name: 'BrowserBox' |
568 name: 'BrowserBox' |
569 layout: (LayoutFrame 0 0.0 57 0.0 0 1.0 -20 1.0) |
569 layout: (LayoutFrame 0 0.0 57 0.0 0 1.0 -26 1.0) |
570 level: 0 |
570 level: 0 |
571 showHandle: true |
571 showHandle: true |
572 snapMode: both |
572 snapMode: both |
573 whichView: last |
573 whichView: last |
574 orientation: vertical |
574 orientation: vertical |
622 ) |
622 ) |
623 handles: (Any 0.5 1.0) |
623 handles: (Any 0.5 1.0) |
624 ) |
624 ) |
625 (ViewSpec |
625 (ViewSpec |
626 name: 'InfoBox' |
626 name: 'InfoBox' |
627 layout: (LayoutFrame 0 0 -20 1 0 1 0 1) |
627 layout: (LayoutFrame 0 0 -26 1 0 1 0 1) |
|
628 level: 0 |
628 visibilityChannel: infoBarVisibleHolder |
629 visibilityChannel: infoBarVisibleHolder |
629 level: 0 |
|
630 component: |
630 component: |
631 (SpecCollection |
631 (SpecCollection |
632 collection: ( |
632 collection: ( |
633 (LabelSpec |
633 (LabelSpec |
634 label: 'NotifyLabel' |
634 label: 'NotifyLabel' |
683 isActivityIndicator: true |
683 isActivityIndicator: true |
684 ) |
684 ) |
685 ) |
685 ) |
686 |
686 |
687 ) |
687 ) |
|
688 ) |
|
689 (LabelSpec |
|
690 name: 'BusyLabel' |
|
691 layout: (LayoutFrame -220 1 1 0.0 -60 1 1 1.0) |
|
692 activeHelpKey: modeLabel |
|
693 level: -1 |
|
694 visibilityChannel: busyLabelVisibleHolder |
|
695 translateLabel: true |
|
696 labelChannel: busyLabelHolder |
|
697 adjust: right |
688 ) |
698 ) |
689 (LabelSpec |
699 (LabelSpec |
690 label: 'M' |
700 label: 'M' |
691 name: 'ModeLabel' |
701 name: 'ModeLabel' |
692 layout: (LayoutFrame -60 1 1 0.0 -50 1 1 1.0) |
702 layout: (LayoutFrame -60 1 1 0.0 -50 1 1 1.0) |
1238 ]. |
1248 ]. |
1239 ! ! |
1249 ! ! |
1240 |
1250 |
1241 !FileBrowserV2 methodsFor:'aspects'! |
1251 !FileBrowserV2 methodsFor:'aspects'! |
1242 |
1252 |
|
1253 busyLabelHolder |
|
1254 ^ self |
|
1255 aspectFor:#busyLabelHolder |
|
1256 ifAbsent:[ ' ' asValue ]. |
|
1257 |
|
1258 "Created: / 25-07-2006 / 09:06:00 / cg" |
|
1259 ! |
|
1260 |
1243 cursorColLabelHolder |
1261 cursorColLabelHolder |
1244 ^ self |
1262 ^ self |
1245 aspectFor:#cursorColLabelHolder |
1263 aspectFor:#cursorColLabelHolder |
1246 ifAbsent:[ |
1264 ifAbsent:[ |
1247 self |
1265 self |
1305 ]. |
1323 ]. |
1306 ^ selectedDeviceDrive |
1324 ^ selectedDeviceDrive |
1307 ! ! |
1325 ! ! |
1308 |
1326 |
1309 !FileBrowserV2 methodsFor:'aspects-visibility'! |
1327 !FileBrowserV2 methodsFor:'aspects-visibility'! |
|
1328 |
|
1329 busyLabelVisibleHolder |
|
1330 ^ self aspectFor:#busyLabelVisibleHolder ifAbsent:[false asValue] |
|
1331 |
|
1332 "Created: / 25-07-2006 / 09:06:22 / cg" |
|
1333 ! |
1310 |
1334 |
1311 driveSelectorVisible |
1335 driveSelectorVisible |
1312 ^ self systemIsDOS |
1336 ^ self systemIsDOS |
1313 ! |
1337 ! |
1314 |
1338 |
1770 ! ! |
1794 ! ! |
1771 |
1795 |
1772 !FileBrowserV2 class methodsFor:'documentation'! |
1796 !FileBrowserV2 class methodsFor:'documentation'! |
1773 |
1797 |
1774 version |
1798 version |
1775 ^ '$Header: /cvs/stx/stx/libtool/FileBrowserV2.st,v 1.152 2006-07-25 06:50:48 cg Exp $' |
1799 ^ '$Header: /cvs/stx/stx/libtool/FileBrowserV2.st,v 1.153 2006-07-25 09:26:07 cg Exp $' |
1776 ! ! |
1800 ! ! |
1777 |
1801 |
1778 FileBrowserV2 initialize! |
1802 FileBrowserV2 initialize! |