20 codeHolder classDocumentationHolder canvas selectorListGenerator |
20 codeHolder classDocumentationHolder canvas selectorListGenerator |
21 protocolListGenerator classListPerNameSpaceGenerator |
21 protocolListGenerator classListPerNameSpaceGenerator |
22 classListGenerator categoryListGenerator nameSpaceListGenerator |
22 classListGenerator categoryListGenerator nameSpaceListGenerator |
23 projectListGenerator classHierarchyTopClass meta selectedMethods |
23 projectListGenerator classHierarchyTopClass meta selectedMethods |
24 selectedProtocols selectedClasses selectedCategories |
24 selectedProtocols selectedClasses selectedCategories |
25 selectedProjects selectedNamespaces variableFilter |
25 selectedProjects selectedNamespaces selectedLintRules |
26 filterClassVars sortBy noAllItem autoSearchPattern |
26 variableFilter filterClassVars sortBy noAllItem autoSearchPattern |
27 autoSearchIgnoreCase autoSearchAction realModifiedStateHolder |
27 autoSearchIgnoreCase autoSearchAction realModifiedStateHolder |
28 methodInfo versionDiffApplication selectorListGeneratorArray |
28 methodInfo versionDiffApplication selectorListGeneratorArray |
29 selectedMethodsArray infoLabelHolder packageLabelHolder |
29 selectedMethodsArray infoLabelHolder packageLabelHolder |
30 cursorLineLabelHolder cursorColLabelHolder modeLabelHolder |
30 cursorLineLabelHolder cursorColLabelHolder modeLabelHolder |
31 sortVariablesBy editModeHolder scrollableCodeView specialEditors |
31 sortVariablesBy editModeHolder scrollableCodeView specialEditors |
32 selectedEditorNoteBookTabIndexHolder editorNoteBookListHolder |
32 selectedEditorNoteBookTabIndexHolder editorNoteBookListHolder |
33 editorNoteBookCanvasHolder codeView stringSearchToolView |
33 editorNoteBookCanvasHolder codeView stringSearchToolView |
34 noteBookView inheritanceView documentationView' |
34 noteBookView inheritanceView documentationView languageHolder |
|
35 messageSpecHolder messageHolder progressHolder tabContentView |
|
36 messagePaneView codePaneAndPluginView |
|
37 codePaneAndPluginViewRelativeCorners pluginVisibleHolder |
|
38 bookmarkHolder worker' |
35 classVariableNames:'' |
39 classVariableNames:'' |
36 poolDictionaries:'' |
40 poolDictionaries:'' |
37 category:'Interface-Browsers-New' |
41 category:'Interface-Browsers-New' |
38 ! |
42 ! |
39 |
43 |
141 codeAspect := aSymbolOrNil |
145 codeAspect := aSymbolOrNil |
142 |
146 |
143 "Created: / 11.2.2000 / 12:43:45 / cg" |
147 "Created: / 11.2.2000 / 12:43:45 / cg" |
144 ! |
148 ! |
145 |
149 |
|
150 codePaneAndPluginView |
|
151 ^ codePaneAndPluginView |
|
152 ! |
|
153 |
|
154 codePaneAndPluginView:something |
|
155 codePaneAndPluginView := something. |
|
156 ! |
|
157 |
|
158 codePaneAndPluginViewRelativeCorners |
|
159 codePaneAndPluginViewRelativeCorners ifNil:[ |
|
160 codePaneAndPluginViewRelativeCorners := #(0.76 1.0) |
|
161 ]. |
|
162 ^ codePaneAndPluginViewRelativeCorners |
|
163 |
|
164 "Modified: / 04-10-2010 / 08:20:46 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
|
165 ! |
|
166 |
|
167 codePaneAndPluginViewRelativeCorners: anArray |
|
168 |
|
169 codePaneAndPluginViewRelativeCorners := anArray. |
|
170 |
|
171 "Modified: / 04-10-2010 / 08:14:33 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
|
172 ! |
|
173 |
146 editorNoteBookCanvasHolder |
174 editorNoteBookCanvasHolder |
147 editorNoteBookCanvasHolder isNil ifTrue:[ |
175 editorNoteBookCanvasHolder isNil ifTrue:[ |
148 editorNoteBookCanvasHolder := nil asValue. |
176 editorNoteBookCanvasHolder := nil asValue. |
149 ]. |
177 ]. |
150 ^ editorNoteBookCanvasHolder |
178 ^ editorNoteBookCanvasHolder |
389 ]. |
441 ]. |
390 ^ scrollableCodeView |
442 ^ scrollableCodeView |
391 ! |
443 ! |
392 |
444 |
393 setUpScrollableCodeView |
445 setUpScrollableCodeView |
394 |v aScrollableCodeView codeView| |
446 |v aScrollableCodeView codeView | |
395 |
447 |
396 aScrollableCodeView := HVScrollableView for:CodeView. |
448 UserPreferences current useCodeView2InTools ifTrue:[ |
|
449 codeView := aScrollableCodeView := CodeView2 new. |
|
450 codeView mode: #method. |
|
451 codeView methodHolder: self theSingleSelectedMethodHolder |
|
452 ] ifFalse:[ |
|
453 aScrollableCodeView := HVScrollableView for:CodeView. |
|
454 codeView := aScrollableCodeView scrolledView. |
|
455 aScrollableCodeView horizontalMini:true. |
|
456 ]. |
|
457 |
397 aScrollableCodeView name:'CodeView'. |
458 aScrollableCodeView name:'CodeView'. |
398 aScrollableCodeView horizontalMini:true. |
|
399 codeView := aScrollableCodeView scrolledView. |
|
400 codeView modifiedChannel:self codeModifiedHolder. |
459 codeView modifiedChannel:self codeModifiedHolder. |
401 codeView model: self codeHolder. |
460 codeView model:self codeHolder. |
402 codeView canTab:true. |
461 codeView canTab:true. |
|
462 UserPreferences current useCodeView2InTools ifTrue:[ |
|
463 codeView |
|
464 classHolder:self theSingleSelectedClassFromMethodHolder; |
|
465 languageHolder:self languageHolder |
|
466 ]. |
403 |
467 |
404 UserPreferences current showAcceptCancelBarInBrowser ifTrue:[ |
468 UserPreferences current showAcceptCancelBarInBrowser ifTrue:[ |
405 ViewWithAcceptAndCancelBar notNil ifTrue:[ |
469 ViewWithAcceptAndCancelBar notNil ifTrue:[ |
406 v := ViewWithAcceptAndCancelBar new. |
470 v := ViewWithAcceptAndCancelBar new. |
407 v slaveView:aScrollableCodeView. |
471 v slaveView:aScrollableCodeView. |
408 v reallyModifiedHolder:self realModifiedStateHolder. |
472 v reallyModifiedHolder:self realModifiedStateHolder. |
409 v cancelAction:[ |
473 v cancelAction: |
|
474 [ |
410 "/ codeView setClipboardText:(codeView contents). "/ for undo |
475 "/ codeView setClipboardText:(codeView contents). "/ for undo |
411 codeView device rememberInCopyBufferHistory:(codeView contents). "/ for undo |
476 codeView device rememberInCopyBufferHistory:(codeView contents). "/ for undo |
412 codeView application |
477 codeView application |
413 delayedUpdateCodeWithAutoSearch:false checkModified:false. |
478 delayedUpdateCodeWithAutoSearch:false checkModified:false. |
414 codeView requestFocus. |
479 codeView requestFocus. |
415 ]. |
480 ]. |
416 v compareAction:[ |
481 v compareAction: |
|
482 [ |
417 codeView application doCompareIn:self. |
483 codeView application doCompareIn:self. |
418 codeView requestFocus |
484 codeView requestFocus |
419 ]. |
485 ]. |
420 aScrollableCodeView := v. |
486 aScrollableCodeView := v. |
421 ] |
487 ] |
422 ]. |
488 ]. |
423 ^ aScrollableCodeView |
489 |
|
490 ^aScrollableCodeView |
424 |
491 |
425 "Modified: / 25-08-2010 / 22:04:07 / cg" |
492 "Modified: / 25-08-2010 / 22:04:07 / cg" |
|
493 "Modified: / 17-06-2011 / 12:39:44 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
|
494 "Modified (format): / 03-07-2011 / 19:56:41 / cg" |
426 ! |
495 ! |
427 |
496 |
428 specialEditorCanvasClassForResourceType:resourceTypeSymbol |
497 specialEditorCanvasClassForResourceType:resourceTypeSymbol |
429 resourceTypeSymbol == #fileImage ifTrue:[ |
498 resourceTypeSymbol == #fileImage ifTrue:[ |
430 ^ nil |
499 ^ nil |
458 ^ editorView |
527 ^ editorView |
459 ! ! |
528 ! ! |
460 |
529 |
461 !NavigationState methodsFor:'aspects'! |
530 !NavigationState methodsFor:'aspects'! |
462 |
531 |
|
532 bookmarkHolder |
|
533 "return/create the 'bookmarkHolder' value holder (automatically generated)" |
|
534 |
|
535 bookmarkHolder isNil ifTrue:[ |
|
536 bookmarkHolder := ValueHolder with: self theSingleSelectedBookmarkFromMethodOrClass. |
|
537 self selectedMethods onChangeSend: #updateBookmarkHolder to: self. |
|
538 self selectedClasses onChangeSend: #updateBookmarkHolder to: self. |
|
539 ]. |
|
540 ^ bookmarkHolder |
|
541 |
|
542 "Modified: / 03-06-2011 / 12:00:01 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
|
543 ! |
|
544 |
463 categoryList |
545 categoryList |
464 categoryList isNil ifTrue:[ |
546 categoryList isNil ifTrue:[ |
465 categoryList := nil asValue. |
547 categoryList := nil asValue. |
466 ]. |
548 ]. |
467 ^ categoryList |
549 ^ categoryList |
589 infoLabelHolder := '' asValue. |
671 infoLabelHolder := '' asValue. |
590 ]. |
672 ]. |
591 ^ infoLabelHolder |
673 ^ infoLabelHolder |
592 ! |
674 ! |
593 |
675 |
|
676 languageHolder |
|
677 |
|
678 languageHolder ifNil:[ |
|
679 languageHolder := ValueHolder with: self theSingleSelectedLanguageFromMethodOrClass. |
|
680 self selectedMethods onChangeSend: #updateLanguageHolder to: self. |
|
681 self selectedClasses onChangeSend: #updateLanguageHolder to: self. |
|
682 ]. |
|
683 ^languageHolder |
|
684 |
|
685 "Created: / 20-07-2010 / 16:03:17 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
|
686 ! |
|
687 |
|
688 lintRuleListGenerator |
|
689 |
|
690 | result | |
|
691 result := self objectAttributeAt: #lintRuleListGenerator. |
|
692 result ifNil: |
|
693 [result := ValueHolder new. |
|
694 self objectAttributeAt: #lintRuleListGenerator put: result]. |
|
695 ^result |
|
696 |
|
697 "Created: / 22-07-2009 / 15:27:48 / Jan Vrany <vranyj1@fel.cvut.cz>" |
|
698 ! |
|
699 |
|
700 messageHolder |
|
701 "return/create the 'messageHolder' value holder (automatically generated)" |
|
702 |
|
703 messageHolder isNil ifTrue:[ |
|
704 messageHolder := ValueHolder new. |
|
705 ]. |
|
706 ^ messageHolder |
|
707 ! |
|
708 |
|
709 messageHolder:aValueHolder |
|
710 "set the 'messageHolder' value holder (automatically generated)" |
|
711 |
|
712 messageHolder := aValueHolder. |
|
713 ! |
|
714 |
|
715 messageSpecHolder |
|
716 "return/create the 'messageSpecHolder' value holder (automatically generated)" |
|
717 |
|
718 messageSpecHolder isNil ifTrue:[ |
|
719 messageSpecHolder := ValueHolder with:#messageInfoSpec. |
|
720 ]. |
|
721 ^ messageSpecHolder |
|
722 |
|
723 "Modified: / 28-08-2010 / 11:40:35 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
|
724 ! |
|
725 |
|
726 messageSpecHolder:something |
|
727 "set the 'messageSpecHolder' value holder (automatically generated)" |
|
728 |
|
729 messageSpecHolder := something. |
|
730 ! |
|
731 |
594 meta |
732 meta |
595 meta isNil ifTrue:[ |
733 meta isNil ifTrue:[ |
596 meta := false asValue. |
734 meta := false asValue. |
597 ]. |
735 ]. |
598 ^ meta |
736 ^ meta |
646 ]. |
784 ]. |
647 ^ nameSpaceListGenerator |
785 ^ nameSpaceListGenerator |
648 |
786 |
649 "Created: / 18.8.2000 / 14:26:19 / cg" |
787 "Created: / 18.8.2000 / 14:26:19 / cg" |
650 "Modified: / 18.8.2000 / 14:27:59 / cg" |
788 "Modified: / 18.8.2000 / 14:27:59 / cg" |
|
789 ! |
|
790 |
|
791 navigationHistory |
|
792 |
|
793 | history | |
|
794 history := self objectAttributeAt: #navigationHistory. |
|
795 history ifNil: |
|
796 [history := NavigationHistory new. |
|
797 self objectAttributeAt: #navigationHistory put: history]. |
|
798 ^history |
|
799 |
|
800 "Created: / 21-02-2008 / 20:08:43 / janfrog" |
|
801 "Modified: / 21-07-2009 / 22:39:57 / Jan Vrany <vranyj1@fel.cvut.cz>" |
651 ! |
802 ! |
652 |
803 |
653 noAllItem |
804 noAllItem |
654 noAllItem isNil ifTrue:[ |
805 noAllItem isNil ifTrue:[ |
655 noAllItem := nil asValue. |
806 noAllItem := nil asValue. |
685 packageLabelHolder := '' asValue. |
836 packageLabelHolder := '' asValue. |
686 ]. |
837 ]. |
687 ^ packageLabelHolder |
838 ^ packageLabelHolder |
688 ! |
839 ! |
689 |
840 |
|
841 pluginVisibleHolder |
|
842 pluginVisibleHolder isNil ifTrue:[ |
|
843 pluginVisibleHolder := false asValue. |
|
844 ]. |
|
845 ^ pluginVisibleHolder |
|
846 |
|
847 "Created: / 03-10-2010 / 17:50:18 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
|
848 ! |
|
849 |
|
850 profilerStatistics |
|
851 |
|
852 | statistics | |
|
853 statistics := self objectAttributeAt: #profilerStatistics. |
|
854 statistics ifNil: |
|
855 [statistics := ValueHolder new. |
|
856 self objectAttributeAt: #profilerStatistics put: statistics]. |
|
857 ^statistics |
|
858 |
|
859 "Created: / 21-02-2008 / 20:08:43 / janfrog" |
|
860 "Modified: / 21-07-2009 / 22:40:34 / Jan Vrany <vranyj1@fel.cvut.cz>" |
|
861 ! |
|
862 |
|
863 profilerStatistics: anObject |
|
864 |
|
865 self objectAttributeAt: #profilerStatistics put: anObject |
|
866 |
|
867 "Created: / 21-02-2008 / 20:08:43 / janfrog" |
|
868 "Modified: / 21-07-2009 / 22:41:02 / Jan Vrany <vranyj1@fel.cvut.cz>" |
|
869 ! |
|
870 |
|
871 progressHolder |
|
872 "return/create the 'progressHolder' value holder (automatically generated)" |
|
873 |
|
874 progressHolder isNil ifTrue:[ |
|
875 progressHolder := ValueHolder new. |
|
876 ]. |
|
877 ^ progressHolder |
|
878 ! |
|
879 |
|
880 progressHolder:aValueHolder |
|
881 "set the 'progressHolder' value holder (automatically generated)" |
|
882 |
|
883 progressHolder := aValueHolder. |
|
884 ! |
|
885 |
690 projectListGenerator |
886 projectListGenerator |
691 projectListGenerator isNil ifTrue:[ |
887 projectListGenerator isNil ifTrue:[ |
692 projectListGenerator := nil asValue. |
888 projectListGenerator := nil asValue. |
693 ]. |
889 ]. |
694 ^ projectListGenerator |
890 ^ projectListGenerator |
799 sortBy |
1004 sortBy |
800 sortBy isNil ifTrue:[ |
1005 sortBy isNil ifTrue:[ |
801 sortBy := nil asValue. |
1006 sortBy := nil asValue. |
802 ]. |
1007 ]. |
803 ^ sortBy |
1008 ^ sortBy |
|
1009 ! |
|
1010 |
|
1011 theSingleSelectedBookmarkFromMethodOrClass |
|
1012 |
|
1013 | mth cls | |
|
1014 |
|
1015 mth := self theSingleSelectedMethod. |
|
1016 (mth notNil and:[mth mclass notNil]) |
|
1017 ifTrue:[^Tools::NewSystemBrowser bookmarkForClass:mth mclass selector:mth selector]. |
|
1018 cls := self theSingleSelectedClass. |
|
1019 cls |
|
1020 ifNotNil:[^Tools::NewSystemBrowser bookmarkForClass:cls selector:nil]. |
|
1021 ^nil |
|
1022 |
|
1023 "Created: / 02-06-2011 / 22:16:17 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
|
1024 "Modified: / 02-06-2011 / 23:19:02 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
|
1025 ! |
|
1026 |
|
1027 theSingleSelectedClassFromMethodHolder |
|
1028 |
|
1029 ^BlockValue |
|
1030 with: |
|
1031 [:i1 :i2| | mth cls | |
|
1032 mth := self theSingleSelectedMethod. |
|
1033 cls := mth ifNil:[nil] ifNotNil:[mth mclass]. |
|
1034 cls ifNil:[ |
|
1035 cls := self theSingleSelectedClass]. |
|
1036 cls] |
|
1037 argument: self selectedMethods |
|
1038 argument: self selectedClasses. |
|
1039 |
|
1040 "Created: / 14-02-2010 / 10:05:00 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
|
1041 ! |
|
1042 |
|
1043 theSingleSelectedLanguageFromMethodOrClass |
|
1044 |
|
1045 | mth cls | |
|
1046 |
|
1047 mth := self theSingleSelectedMethod. |
|
1048 mth ifNotNil:[^mth programmingLanguage]. |
|
1049 cls := self theSingleSelectedClass. |
|
1050 cls ifNotNil:[^cls programmingLanguage]. |
|
1051 ^SmalltalkLanguage instance |
|
1052 |
|
1053 "Created: / 20-07-2010 / 15:59:29 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
|
1054 ! |
|
1055 |
|
1056 theSingleSelectedMethodHolder |
|
1057 |
|
1058 ^BlockValue |
|
1059 with: |
|
1060 [:i1 | self theSingleSelectedMethod] |
|
1061 argument: |
|
1062 self selectedMethods |
|
1063 |
|
1064 "Created: / 17-06-2011 / 12:39:20 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
|
1065 ! |
|
1066 |
|
1067 updateBookmarkHolder |
|
1068 |
|
1069 ^self bookmarkHolder value: self theSingleSelectedBookmarkFromMethodOrClass |
|
1070 |
|
1071 "Created: / 02-06-2011 / 22:13:40 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
|
1072 ! |
|
1073 |
|
1074 updateLanguageHolder |
|
1075 |
|
1076 ^self languageHolder value: self theSingleSelectedLanguageFromMethodOrClass |
|
1077 |
|
1078 "Created: / 20-07-2010 / 16:05:26 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
804 ! |
1079 ! |
805 |
1080 |
806 variableFilter |
1081 variableFilter |
807 variableFilter isNil ifTrue:[ |
1082 variableFilter isNil ifTrue:[ |
808 variableFilter := nil asValue. |
1083 variableFilter := nil asValue. |
832 getBlock:[:m | m value == false] |
1107 getBlock:[:m | m value == false] |
833 putBlock:[:m :newValue | m value:(newValue ? false) not] |
1108 putBlock:[:m :newValue | m value:(newValue ? false) not] |
834 updateBlock:[:m :aspect :param | true]. |
1109 updateBlock:[:m :aspect :param | true]. |
835 ]. |
1110 ]. |
836 ^ notMetaToggle |
1111 ^ notMetaToggle |
|
1112 ! ! |
|
1113 |
|
1114 !NavigationState methodsFor:'history'! |
|
1115 |
|
1116 addToHistory: class selector: selector |
|
1117 |
|
1118 | entry | |
|
1119 selector ifNil:[^self]. |
|
1120 entry := SystemBrowser historyEntryForClass: class selector: selector. |
|
1121 self navigationHistory goTo: entry. |
|
1122 ^entry |
|
1123 |
|
1124 "Created: / 22-02-2008 / 08:44:05 / janfrog" |
|
1125 "Modified: / 22-02-2008 / 17:20:00 / janfrog" |
|
1126 "Modified: / 25-10-2009 / 15:06:08 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
837 ! ! |
1127 ! ! |
838 |
1128 |
839 !NavigationState methodsFor:'printing & storing'! |
1129 !NavigationState methodsFor:'printing & storing'! |
840 |
1130 |
841 colorizeForModifiedBuffer:someString |
1131 colorizeForModifiedBuffer:someString |