4115 "/ + v borderWidth)]. |
4115 "/ + v borderWidth)]. |
4116 "/ |
4116 "/ |
4117 "/ classListView := v scrolledView |
4117 "/ classListView := v scrolledView |
4118 |
4118 |
4119 panel := VariableVerticalPanel |
4119 panel := VariableVerticalPanel |
4120 origin:(0.0 @ 0.0) |
4120 origin:(0.0 @ 0.0) |
4121 corner:[frame width |
4121 corner:[frame width |
4122 @ |
4122 @ |
4123 (frame height |
4123 (frame height |
4124 - ViewSpacing |
4124 - ViewSpacing |
4125 - instanceToggle height |
4125 - instanceToggle height |
4126 "-" "+ instanceToggle borderWidth " |
4126 "-" "+ instanceToggle borderWidth " |
4127 + v borderWidth)] |
4127 + v borderWidth)] |
4128 in:frame. |
4128 in:frame. |
4129 |
4129 |
4130 v := ScrollableView for:SelectionInListView in:panel. |
4130 v := HVScrollableView |
|
4131 for:SelectionInListView |
|
4132 miniScrollerH:true miniScrollerV:false |
|
4133 in:panel. |
4131 v origin:(0.0 @ 0.0) corner:(1.0 @ 0.7). |
4134 v origin:(0.0 @ 0.0) corner:(1.0 @ 0.7). |
4132 classListView := v scrolledView. |
4135 classListView := v scrolledView. |
4133 |
4136 |
4134 |
4137 |
4135 v := ScrollableView for:SelectionInListView in:panel. |
4138 v := ScrollableView for:SelectionInListView in:panel. |
4136 v origin:(0.0 @ 0.7) corner:(1.0 @ 1.0). |
4139 v origin:(0.0 @ 0.7) corner:(1.0 @ 1.0). |
4137 |
4140 |
4138 variableListView := v scrolledView. |
4141 variableListView := v scrolledView. |
|
4142 |
|
4143 "Modified: 15.10.1996 / 11:30:22 / cg" |
4139 ! |
4144 ! |
4140 |
4145 |
4141 createCodeViewIn:aView |
4146 createCodeViewIn:aView |
4142 "setup the code view" |
4147 "setup the code view" |
4143 |
4148 |