equal
deleted
inserted
replaced
446 |v aScrollableCodeView codeView | |
446 |v aScrollableCodeView codeView | |
447 |
447 |
448 (UserPreferences current useCodeView2In: #Browser) ifTrue:[ |
448 (UserPreferences current useCodeView2In: #Browser) ifTrue:[ |
449 codeView := aScrollableCodeView := CodeView2 new. |
449 codeView := aScrollableCodeView := CodeView2 new. |
450 codeView mode: #method. |
450 codeView mode: #method. |
451 codeView methodHolder: self theSingleSelectedMethodHolder |
451 codeView methodHolder: self theSingleSelectedMethodHolder. |
|
452 codeView classHolder: self theSingleSelectedClassHolder. |
452 ] ifFalse:[ |
453 ] ifFalse:[ |
453 aScrollableCodeView := HVScrollableView for:CodeView. |
454 aScrollableCodeView := HVScrollableView for:CodeView. |
454 codeView := aScrollableCodeView scrolledView. |
455 codeView := aScrollableCodeView scrolledView. |
455 aScrollableCodeView horizontalMini:true. |
456 aScrollableCodeView horizontalMini:true. |
456 ]. |
457 ]. |
488 ]. |
489 ]. |
489 |
490 |
490 ^aScrollableCodeView |
491 ^aScrollableCodeView |
491 |
492 |
492 "Modified: / 05-07-2011 / 10:34:33 / cg" |
493 "Modified: / 05-07-2011 / 10:34:33 / cg" |
493 "Modified: / 26-07-2011 / 10:29:47 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
494 "Modified: / 05-08-2011 / 09:44:52 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
494 ! |
495 ! |
495 |
496 |
496 specialEditorCanvasClassForResourceType:resourceTypeSymbol |
497 specialEditorCanvasClassForResourceType:resourceTypeSymbol |
497 resourceTypeSymbol == #fileImage ifTrue:[ |
498 resourceTypeSymbol == #fileImage ifTrue:[ |
498 ^ nil |
499 ^ nil |
1035 cls] |
1036 cls] |
1036 argument: self selectedMethods |
1037 argument: self selectedMethods |
1037 argument: self selectedClasses. |
1038 argument: self selectedClasses. |
1038 |
1039 |
1039 "Created: / 14-02-2010 / 10:05:00 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
1040 "Created: / 14-02-2010 / 10:05:00 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
|
1041 ! |
|
1042 |
|
1043 theSingleSelectedClassHolder |
|
1044 |
|
1045 ^BlockValue |
|
1046 with: |
|
1047 [:i1 | self theSingleSelectedClass] |
|
1048 argument: |
|
1049 self selectedClasses |
|
1050 |
|
1051 "Created: / 05-08-2011 / 09:44:17 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
1040 ! |
1052 ! |
1041 |
1053 |
1042 theSingleSelectedLanguageFromMethodOrClass |
1054 theSingleSelectedLanguageFromMethodOrClass |
1043 |
1055 |
1044 | mth cls | |
1056 | mth cls | |
1599 ! ! |
1611 ! ! |
1600 |
1612 |
1601 !NavigationState class methodsFor:'documentation'! |
1613 !NavigationState class methodsFor:'documentation'! |
1602 |
1614 |
1603 version_CVS |
1615 version_CVS |
1604 ^ '$Header: /cvs/stx/stx/libtool/Tools_NavigationState.st,v 1.36 2011-07-26 09:50:24 vrany Exp $' |
1616 ^ '$Header: /cvs/stx/stx/libtool/Tools_NavigationState.st,v 1.37 2011-08-05 12:51:20 vrany Exp $' |
1605 ! |
1617 ! |
1606 |
1618 |
1607 version_SVN |
1619 version_SVN |
1608 ^ '§Id§' |
1620 ^ '§Id§' |
1609 ! ! |
1621 ! ! |