equal
deleted
inserted
replaced
7890 |
7890 |
7891 frame := View origin:(0.25 @ 0.0) corner:(0.5 @ 1.0) in:hpanel. |
7891 frame := View origin:(0.25 @ 0.0) corner:(0.5 @ 1.0) in:hpanel. |
7892 styleSheet isWindowsStyle ifTrue:[frame rightInset:1]. |
7892 styleSheet isWindowsStyle ifTrue:[frame rightInset:1]. |
7893 self createClassListViewIn:frame. |
7893 self createClassListViewIn:frame. |
7894 |
7894 |
7895 (environment isNil or:[environment hasNameSpaces]) ifTrue:[ |
7895 (environment isNil or:[environment isNameSpace and:[ environment hasNameSpaces]]) ifTrue:[ |
7896 namespaceList := ComboListView origin:(0.0@1.0) corner:(0.25@1.0) in:hpanel. |
7896 namespaceList := ComboListView origin:(0.0@1.0) corner:(0.25@1.0) in:hpanel. |
7897 |
7897 |
7898 hMax := (instanceToggle height + instanceToggle borderWidth) |
7898 hMax := (instanceToggle height + instanceToggle borderWidth) |
7899 max:(namespaceList preferredHeight). |
7899 max:(namespaceList preferredHeight). |
7900 "/ hMax := hMax "+ (spc // 2)". |
7900 "/ hMax := hMax "+ (spc // 2)". |
7943 |
7943 |
7944 self createMethodListViewIn:hpanel atX:0.75. |
7944 self createMethodListViewIn:hpanel atX:0.75. |
7945 |
7945 |
7946 self createCodeViewIn:vpanel atY:topFraction |
7946 self createCodeViewIn:vpanel atY:topFraction |
7947 |
7947 |
7948 "Modified: / 11.10.2001 / 21:20:21 / cg" |
7948 "Modified: / 11-10-2001 / 21:20:21 / cg" |
|
7949 "Modified: / 22-02-2019 / 10:10:58 / Claus Gittinger" |
7949 ! |
7950 ! |
7950 |
7951 |
7951 setupForClass:aClass |
7952 setupForClass:aClass |
7952 "create subviews for browsing a single class" |
7953 "create subviews for browsing a single class" |
7953 |
7954 |
12474 ! |
12475 ! |
12475 |
12476 |
12476 environment:anEnvironment |
12477 environment:anEnvironment |
12477 "allows me to browse something different from Smalltalk (a SnapShotImage for example)" |
12478 "allows me to browse something different from Smalltalk (a SnapShotImage for example)" |
12478 |
12479 |
12479 environment := anEnvironment |
12480 self assert:(anEnvironment isNameSpace). |
|
12481 anEnvironment isNameSpace ifTrue:[ |
|
12482 environment := anEnvironment |
|
12483 ]. |
|
12484 |
|
12485 "Modified: / 22-02-2019 / 10:13:11 / Claus Gittinger" |
12480 ! |
12486 ! |
12481 |
12487 |
12482 extractClassAndSelectorFromSelectionInto:aBlock |
12488 extractClassAndSelectorFromSelectionInto:aBlock |
12483 "given a string which can be either |
12489 "given a string which can be either |
12484 'class>>sel', 'class » sel' or 'class sel', |
12490 'class>>sel', 'class » sel' or 'class sel', |