equal
deleted
inserted
replaced
1078 |
1078 |
1079 scrolledView:aView |
1079 scrolledView:aView |
1080 "set the view to scroll" |
1080 "set the view to scroll" |
1081 |
1081 |
1082 scrolledView notNil ifTrue:[ |
1082 scrolledView notNil ifTrue:[ |
1083 scrolledView removeDependent:self. |
1083 scrolledView removeDependent:self. |
1084 scrolledView destroy. |
1084 scrolledView destroy. |
1085 scrolledView := nil. |
1085 scrolledView := nil. |
1086 ]. |
1086 ]. |
1087 |
1087 |
1088 scrolledView := aView. |
1088 scrolledView := aView. |
1089 |
1089 |
1090 super addSubViewFirst:aView. |
1090 super addSubViewFirst:aView. |
1091 scrolledView notNil ifTrue:[ |
1091 scrolledView notNil ifTrue:[ |
1092 self setScrollActions. |
1092 self setScrollActions. |
1093 |
1093 |
1094 realized ifTrue:[ |
1094 realized ifTrue:[ |
1095 self setupDimensionsConfigureScrolledView:true. |
1095 self setupDimensionsConfigureScrolledView:true. |
1096 self sizeChanged:nil. |
1096 self sizeChanged:nil. |
1097 scrolledView realize |
1097 scrolledView realize |
1098 ]. |
1098 ]. |
1099 ] |
1099 ] |
1100 |
1100 |
1101 "Modified: / 19.3.1997 / 15:32:37 / stefan" |
1101 "Modified: / 19.3.1997 / 15:32:37 / stefan" |
1102 "Modified: / 21.5.1998 / 00:48:57 / cg" |
1102 "Modified: / 21.5.1998 / 00:48:57 / cg" |
1103 ! |
1103 ! |
2086 "convenient method: forward this to the scrolledView" |
2086 "convenient method: forward this to the scrolledView" |
2087 |
2087 |
2088 scrolledView notNil ifTrue:[scrolledView flash] |
2088 scrolledView notNil ifTrue:[scrolledView flash] |
2089 ! |
2089 ! |
2090 |
2090 |
|
2091 font:aFont |
|
2092 "set the font for all shown rows. |
|
2093 " |
|
2094 |
|
2095 super font:aFont. |
|
2096 "/ scrolledView notNil ifTrue:[ |
|
2097 "/ scrolledView font:aFont |
|
2098 "/ ] |
|
2099 ! |
|
2100 |
2091 leftButtonMenu |
2101 leftButtonMenu |
2092 "return scrolledViews leftbuttonmenu" |
2102 "return scrolledViews leftbuttonmenu" |
2093 |
2103 |
2094 scrolledView isNil ifTrue:[^ nil]. |
2104 scrolledView isNil ifTrue:[^ nil]. |
2095 ^ scrolledView leftButtonMenu |
2105 ^ scrolledView leftButtonMenu |
2163 ! ! |
2173 ! ! |
2164 |
2174 |
2165 !ScrollableView class methodsFor:'documentation'! |
2175 !ScrollableView class methodsFor:'documentation'! |
2166 |
2176 |
2167 version |
2177 version |
2168 ^ '$Header: /cvs/stx/stx/libwidg/ScrollableView.st,v 1.110 2000-08-21 22:45:18 cg Exp $' |
2178 ^ '$Header: /cvs/stx/stx/libwidg/ScrollableView.st,v 1.111 2000-09-19 09:03:14 martin Exp $' |
2169 ! ! |
2179 ! ! |