equal
deleted
inserted
replaced
468 ) |
468 ) |
469 ! ! |
469 ! ! |
470 |
470 |
471 !Inspector2 class methodsFor:'menu specs'! |
471 !Inspector2 class methodsFor:'menu specs'! |
472 |
472 |
473 mainMenu |
473 fileMenu |
474 "This resource specification was automatically generated |
474 "This resource specification was automatically generated |
475 by the MenuEditor of ST/X." |
475 by the MenuEditor of ST/X." |
476 |
476 |
477 "Do not manually edit this!! If it is corrupted, |
477 "Do not manually edit this!! If it is corrupted, |
478 the MenuEditor may not be able to read the specification." |
478 the MenuEditor may not be able to read the specification." |
485 |
485 |
486 <resource: #menu> |
486 <resource: #menu> |
487 |
487 |
488 ^ |
488 ^ |
489 #(Menu |
489 #(Menu |
490 ( |
|
491 (MenuItem |
|
492 label: 'File' |
|
493 submenu: |
|
494 (Menu |
|
495 ( |
490 ( |
496 (MenuItem |
491 (MenuItem |
497 label: 'Exit' |
492 label: 'Exit' |
498 itemValue: closeRequest |
493 itemValue: closeRequest |
499 ) |
494 ) |
500 ) |
495 ) |
501 nil |
496 nil |
502 nil |
497 nil |
503 ) |
498 ) |
504 ) |
499 ! |
505 (MenuItem |
500 |
506 label: 'View' |
501 helpMenu |
507 submenu: |
502 "This resource specification was automatically generated |
508 (Menu |
503 by the MenuEditor of ST/X." |
509 ( |
504 |
510 (MenuItem |
505 "Do not manually edit this!! If it is corrupted, |
511 label: 'Expand Arrays in "all xxx"-Lists' |
506 the MenuEditor may not be able to read the specification." |
512 itemValue: expandArraysInAllList: |
507 |
513 indication: expandArraysInAllList |
508 |
514 ) |
509 " |
515 (MenuItem |
510 MenuEditor new openOnClass:Tools::Inspector2 andSelector:#mainMenu |
516 label: '-' |
511 (Menu new fromLiteralArrayEncoding:(Tools::Inspector2 mainMenu)) startUp |
517 ) |
512 " |
518 (MenuItem |
513 |
519 label: 'Color Setting' |
514 <resource: #menu> |
520 submenuChannel: settingsMenu |
515 |
521 ) |
516 ^ |
522 ) |
517 #(Menu |
523 nil |
|
524 nil |
|
525 ) |
|
526 ) |
|
527 (MenuItem |
|
528 label: 'MENU_Help' |
|
529 startGroup: conditionalRight |
|
530 submenu: |
|
531 (Menu |
|
532 ( |
518 ( |
533 (MenuItem |
519 (MenuItem |
534 label: 'Inspector Documentation' |
520 label: 'Inspector Documentation' |
535 itemValue: openDocumentation |
521 itemValue: openDocumentation |
536 ) |
522 ) |
543 ) |
529 ) |
544 ) |
530 ) |
545 nil |
531 nil |
546 nil |
532 nil |
547 ) |
533 ) |
|
534 ! |
|
535 |
|
536 mainMenu |
|
537 "This resource specification was automatically generated |
|
538 by the MenuEditor of ST/X." |
|
539 |
|
540 "Do not manually edit this!! If it is corrupted, |
|
541 the MenuEditor may not be able to read the specification." |
|
542 |
|
543 |
|
544 " |
|
545 MenuEditor new openOnClass:Tools::Inspector2 andSelector:#mainMenu |
|
546 (Menu new fromLiteralArrayEncoding:(Tools::Inspector2 mainMenu)) startUp |
|
547 " |
|
548 |
|
549 <resource: #menu> |
|
550 |
|
551 ^ |
|
552 #(Menu |
|
553 ( |
|
554 (MenuItem |
|
555 label: 'File' |
|
556 submenuChannel: viewMenu |
|
557 ) |
|
558 (MenuItem |
|
559 label: 'View' |
|
560 submenuChannel: viewMenu |
|
561 ) |
|
562 (MenuItem |
|
563 label: 'MENU_Help' |
|
564 startGroup: conditionalRight |
|
565 submenuChannel: helpMenu |
548 ) |
566 ) |
549 ) |
567 ) |
550 nil |
568 nil |
551 nil |
569 nil |
552 ) |
570 ) |
714 ) |
732 ) |
715 ) |
733 ) |
716 nil |
734 nil |
717 nil |
735 nil |
718 ) |
736 ) |
|
737 ! |
|
738 |
|
739 viewMenu |
|
740 "This resource specification was automatically generated |
|
741 by the MenuEditor of ST/X." |
|
742 |
|
743 "Do not manually edit this!! If it is corrupted, |
|
744 the MenuEditor may not be able to read the specification." |
|
745 |
|
746 |
|
747 " |
|
748 MenuEditor new openOnClass:Tools::Inspector2 andSelector:#viewMenu |
|
749 (Menu new fromLiteralArrayEncoding:(Tools::Inspector2 viewMenu)) startUp |
|
750 " |
|
751 |
|
752 <resource: #menu> |
|
753 |
|
754 ^ |
|
755 #(Menu |
|
756 ( |
|
757 (MenuItem |
|
758 label: 'Expand Arrays in "all xxx"-Lists' |
|
759 itemValue: expandArraysInAllList: |
|
760 indication: expandArraysInAllList |
|
761 ) |
|
762 (MenuItem |
|
763 label: 'Alphabetical' |
|
764 itemValue: showAlphabeticalHolderChanged |
|
765 indication: showAlphabeticalHolder |
|
766 ) |
|
767 (MenuItem |
|
768 label: '-' |
|
769 ) |
|
770 (MenuItem |
|
771 label: 'Color Setting' |
|
772 submenuChannel: settingsMenu |
|
773 ) |
|
774 ) |
|
775 nil |
|
776 nil |
|
777 ) |
719 ! ! |
778 ! ! |
720 |
779 |
721 !Inspector2 class methodsFor:'startup'! |
780 !Inspector2 class methodsFor:'startup'! |
722 |
781 |
723 openOn: anObject |
782 openOn: anObject |
942 |
1001 |
943 "Created: / 27-02-2008 / 12:05:22 / janfrog" |
1002 "Created: / 27-02-2008 / 12:05:22 / janfrog" |
944 "Modified (format): / 19-08-2011 / 08:59:10 / cg" |
1003 "Modified (format): / 19-08-2011 / 08:59:10 / cg" |
945 ! |
1004 ! |
946 |
1005 |
|
1006 showAlphabeticalHolder |
|
1007 ^ builder booleanValueAspectFor:#showAlphabeticalHolder |
|
1008 ! |
|
1009 |
947 tabLabelsAspect |
1010 tabLabelsAspect |
948 ^ (AspectAdaptor forAspect:#tabLabels) |
1011 ^ (AspectAdaptor forAspect:#tabLabels) |
949 subjectChannel:self navigationStateAspect |
1012 subjectChannel:self navigationStateAspect |
950 |
1013 |
951 "Created: / 16-01-2008 / 17:29:52 / janfrog" |
1014 "Created: / 16-01-2008 / 17:29:52 / janfrog" |
1077 suppressPseudoSlots:aBoolean |
1140 suppressPseudoSlots:aBoolean |
1078 "compatibiliy with InspectorView - must be implemented" |
1141 "compatibiliy with InspectorView - must be implemented" |
1079 |
1142 |
1080 #todo |
1143 #todo |
1081 ! ! |
1144 ! ! |
1082 |
|
1083 |
1145 |
1084 !Inspector2 methodsFor:'hooks'! |
1146 !Inspector2 methodsFor:'hooks'! |
1085 |
1147 |
1086 postBuildEvaluationLanguageCombo: aComboBoxView |
1148 postBuildEvaluationLanguageCombo: aComboBoxView |
1087 "/ aComboBoxView font: (aComboBoxView font asSize: (aComboBoxView font size * 1.5) rounded) |
1149 "/ aComboBoxView font: (aComboBoxView font asSize: (aComboBoxView font size * 1.5) rounded) |
1149 "/ "/ browser spawnSingleClassBrowserFor:class in:#newBuffer. |
1211 "/ "/ browser spawnSingleClassBrowserFor:class in:#newBuffer. |
1150 "/ browser window raise. |
1212 "/ browser window raise. |
1151 "/ ^ self. |
1213 "/ ^ self. |
1152 "/ ]. |
1214 "/ ]. |
1153 "/ ]. |
1215 "/ ]. |
|
1216 |
1154 "/ if that fails, open a new one |
1217 "/ if that fails, open a new one |
1155 |
1218 UserPreferences systemBrowserClass |
1156 browser := UserPreferences systemBrowserClass |
|
1157 openInClass:class selector:nil "/ browseSingleClass: class |
1219 openInClass:class selector:nil "/ browseSingleClass: class |
1158 |
1220 |
1159 "Modified: / 23-07-2011 / 11:28:29 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
1221 "Modified: / 23-07-2011 / 11:28:29 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
1160 "Modified: / 26-07-2013 / 15:36:51 / cg" |
1222 "Modified: / 26-07-2013 / 15:36:51 / cg" |
1161 ! |
1223 ! |
1208 "/ sel := selectionIndex. |
1270 "/ sel := selectionIndex. |
1209 "/ self selectionIndex:nil. |
1271 "/ self selectionIndex:nil. |
1210 "/ self selectionIndex:sel. |
1272 "/ self selectionIndex:sel. |
1211 |
1273 |
1212 "Created: / 21-08-2011 / 08:23:00 / cg" |
1274 "Created: / 21-08-2011 / 08:23:00 / cg" |
|
1275 ! |
|
1276 |
|
1277 showAlphabeticalHolderChanged |
|
1278 self navigationHistoryHolder currentItem tabViews do:[:each | |
|
1279 (each isKindOf:InspectorView) ifTrue:[ |
|
1280 each showAlphabetical:(self showAlphabeticalHolder value) |
|
1281 ] |
|
1282 ]. |
1213 ! ! |
1283 ! ! |
1214 |
1284 |
1215 !Inspector2 methodsFor:'opening'! |
1285 !Inspector2 methodsFor:'opening'! |
1216 |
1286 |
1217 closeDownViews |
1287 closeDownViews |
1283 |
1353 |
1284 currentTabLabel := current tabLabels at: current selectionIndex. |
1354 currentTabLabel := current tabLabels at: current selectionIndex. |
1285 newSelectionIndex := new tabLabels indexOf: currentTabLabel. |
1355 newSelectionIndex := new tabLabels indexOf: currentTabLabel. |
1286 newSelectionIndex ~~ 0 ifTrue:[ |
1356 newSelectionIndex ~~ 0 ifTrue:[ |
1287 new selectionIndex: newSelectionIndex. |
1357 new selectionIndex: newSelectionIndex. |
|
1358 ]. |
|
1359 new tabViews do:[:each | |
|
1360 (each isKindOf:InspectorView) ifTrue:[ |
|
1361 each showAlphabetical:(self showAlphabeticalHolder value) |
|
1362 ] |
1288 ]. |
1363 ]. |
1289 ]. |
1364 ]. |
1290 ^ new |
1365 ^ new |
1291 |
1366 |
1292 "Created: / 04-02-2015 / 15:27:41 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
1367 "Created: / 04-02-2015 / 15:27:41 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
1321 |
1396 |
1322 "Created: / 26-10-2013 / 01:13:15 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
1397 "Created: / 26-10-2013 / 01:13:15 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
1323 "Modified: / 10-03-2015 / 09:46:12 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
1398 "Modified: / 10-03-2015 / 09:46:12 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
1324 ! ! |
1399 ! ! |
1325 |
1400 |
|
1401 |
1326 !Inspector2::NavigationState class methodsFor:'creating classes'! |
1402 !Inspector2::NavigationState class methodsFor:'creating classes'! |
1327 |
1403 |
1328 for:anObject |
1404 for:anObject |
1329 |item| |
1405 |item| |
1330 |
1406 |
1336 ! ! |
1412 ! ! |
1337 |
1413 |
1338 !Inspector2::NavigationState class methodsFor:'documentation'! |
1414 !Inspector2::NavigationState class methodsFor:'documentation'! |
1339 |
1415 |
1340 version |
1416 version |
1341 ^'$Header: /cvs/stx/stx/libtool/Tools__Inspector2.st,v 1.64 2015-03-10 10:06:41 vrany Exp $' |
1417 ^'$Header$' |
1342 ! |
1418 ! |
1343 |
1419 |
1344 version_SVN |
1420 version_SVN |
1345 ^'$Id: Tools__Inspector2.st,v 1.64 2015-03-10 10:06:41 vrany Exp $' |
1421 ^'$Id$' |
1346 ! ! |
1422 ! ! |
1347 |
1423 |
1348 !Inspector2::NavigationState methodsFor:'accessing'! |
1424 !Inspector2::NavigationState methodsFor:'accessing'! |
1349 |
1425 |
1350 index |
1426 index |
1527 ! ! |
1603 ! ! |
1528 |
1604 |
1529 !Inspector2 class methodsFor:'documentation'! |
1605 !Inspector2 class methodsFor:'documentation'! |
1530 |
1606 |
1531 version |
1607 version |
1532 ^ '$Header: /cvs/stx/stx/libtool/Tools__Inspector2.st,v 1.64 2015-03-10 10:06:41 vrany Exp $' |
1608 ^ '$Header$' |
1533 ! |
1609 ! |
1534 |
1610 |
1535 version_CVS |
1611 version_CVS |
1536 ^ '$Header: /cvs/stx/stx/libtool/Tools__Inspector2.st,v 1.64 2015-03-10 10:06:41 vrany Exp $' |
1612 ^ '$Header$' |
1537 ! |
1613 ! |
1538 |
1614 |
1539 version_CVS_jvrany |
1615 version_CVS_jvrany |
1540 ^ '$Header: /cvs/stx/stx/libtool/Tools__Inspector2.st,v 1.64 2015-03-10 10:06:41 vrany Exp $' |
1616 ^ '$Header$' |
1541 ! |
1617 ! |
1542 |
1618 |
1543 version_SVN |
1619 version_SVN |
1544 ^ '$Id: Tools__Inspector2.st,v 1.64 2015-03-10 10:06:41 vrany Exp $' |
1620 ^ '$Id$' |
1545 ! ! |
1621 ! ! |
1546 |
1622 |
1547 |
1623 |
1548 Inspector2 initialize! |
1624 Inspector2 initialize! |