equal
deleted
inserted
replaced
5016 !BrowserView methodsFor:'initialize subviews'! |
5016 !BrowserView methodsFor:'initialize subviews'! |
5017 |
5017 |
5018 createClassListViewIn:frame |
5018 createClassListViewIn:frame |
5019 "setup the classlist subview, with its toggles" |
5019 "setup the classlist subview, with its toggles" |
5020 |
5020 |
5021 |v panel spc| |
5021 |v panel spc wScr wScrHalf| |
5022 |
5022 |
5023 self createTogglesIn:frame. |
5023 self createTogglesIn:frame. |
5024 |
5024 |
5025 panel := VariableVerticalPanel |
5025 panel := VariableVerticalPanel |
5026 origin:(0.0 @ 0.0) corner:(1.0 @ 1.0) |
5026 origin:(0.0 @ 0.0) corner:(1.0 @ 1.0) |
5044 v origin:(0.0 @ 0.7) corner:(1.0 @ 1.0). |
5044 v origin:(0.0 @ 0.7) corner:(1.0 @ 1.0). |
5045 |
5045 |
5046 variableListView := v scrolledView. |
5046 variableListView := v scrolledView. |
5047 variableListView delegate:self. |
5047 variableListView delegate:self. |
5048 |
5048 |
5049 "Modified: 27.10.1996 / 14:13:31 / cg" |
5049 wScr := v scrollBar preferredExtent x. |
|
5050 wScrHalf := wScr // 2. |
|
5051 |
|
5052 "/ (styleSheet at:'scrollBarPosition' default:#right) == #right ifTrue:[ |
|
5053 "/ classToggle rightInset:(classToggle rightInset + wScr). |
|
5054 "/ classToggle leftInset:(classToggle leftInset - wScrHalf). |
|
5055 "/ instanceToggle rightInset:(instanceToggle rightInset + wScrHalf) |
|
5056 "/ ]. |
|
5057 |
|
5058 "Modified: 19.3.1997 / 17:38:07 / cg" |
5050 ! |
5059 ! |
5051 |
5060 |
5052 createCodeViewIn:aView |
5061 createCodeViewIn:aView |
5053 "setup the code view" |
5062 "setup the code view" |
5054 |
5063 |
9816 ! ! |
9825 ! ! |
9817 |
9826 |
9818 !BrowserView class methodsFor:'documentation'! |
9827 !BrowserView class methodsFor:'documentation'! |
9819 |
9828 |
9820 version |
9829 version |
9821 ^ '$Header: /cvs/stx/stx/libtool/BrowserView.st,v 1.281 1997-03-19 11:52:05 cg Exp $' |
9830 ^ '$Header: /cvs/stx/stx/libtool/BrowserView.st,v 1.282 1997-03-19 16:39:16 cg Exp $' |
9822 ! ! |
9831 ! ! |
9823 BrowserView initialize! |
9832 BrowserView initialize! |