650 #(#WindowSpec |
650 #(#WindowSpec |
651 #label: 'Tab List Editor' |
651 #label: 'Tab List Editor' |
652 #name: 'Tab List Editor' |
652 #name: 'Tab List Editor' |
653 #min: #(#Point 440 280) |
653 #min: #(#Point 440 280) |
654 #max: #(#Point 1152 900) |
654 #max: #(#Point 1152 900) |
655 #bounds: #(#Rectangle 12 22 548 391) |
655 #bounds: #(#Rectangle 596 292 1132 661) |
656 #menu: #menu |
656 #menu: #menu |
657 ) |
657 ) |
658 #component: |
658 #component: |
659 #(#SpecCollection |
659 #(#SpecCollection |
660 #collection: #( |
660 #collection: #( |
699 #(#SpecCollection |
699 #(#SpecCollection |
700 #collection: #( |
700 #collection: #( |
701 #(#NoteBookViewSpec |
701 #(#NoteBookViewSpec |
702 #name: 'NoteBook' |
702 #name: 'NoteBook' |
703 #layout: #(#LayoutFrame 1 0.0 0 0.0 0 1.0 -30 1.0) |
703 #layout: #(#LayoutFrame 1 0.0 0 0.0 0 1.0 -30 1.0) |
704 #visibilityChannel: #hasSelectionHolder |
704 #enableChannel: #hasSelectionHolder |
705 #tabable: true |
705 #tabable: true |
706 #model: #noteBookModel |
706 #model: #noteBookModel |
707 #menu: #noteBookTabList |
707 #menu: #noteBookTabList |
708 #useIndex: true |
708 #useIndex: true |
709 #keepCanvasAlive: true |
709 #keepCanvasAlive: true |
1138 |
1138 |
1139 canMoveTabItemUpOrDown |
1139 canMoveTabItemUpOrDown |
1140 ^ builder booleanValueAspectFor:#canMoveTabItemUpOrDown |
1140 ^ builder booleanValueAspectFor:#canMoveTabItemUpOrDown |
1141 ! |
1141 ! |
1142 |
1142 |
1143 hasHorizontalScrollBar |
|
1144 "automatically generated by UIPainter ..." |
|
1145 |
|
1146 "*** the code below creates a default model when invoked." |
|
1147 "*** (which may not be the one you wanted)" |
|
1148 "*** Please change as required and accept it in the browser." |
|
1149 |
|
1150 |holder| |
|
1151 |
|
1152 (holder := builder bindingAt:#hasHorizontalScrollBar) isNil ifTrue:[ |
|
1153 holder := true asValue. |
|
1154 builder aspectAt:#hasHorizontalScrollBar put:holder. |
|
1155 "/ holder addDependent:self. |
|
1156 ]. |
|
1157 ^ holder. |
|
1158 ! |
|
1159 |
|
1160 hasSelectionHolder |
1143 hasSelectionHolder |
1161 ^ builder booleanValueAspectFor:#hasSelectionHolder |
1144 ^ builder booleanValueAspectFor:#hasSelectionHolder |
1162 ! |
1145 ! |
1163 |
1146 |
1164 hasVerticalScrollBar |
|
1165 "automatically generated by UIPainter ..." |
|
1166 |
|
1167 "*** the code below creates a default model when invoked." |
|
1168 "*** (which may not be the one you wanted)" |
|
1169 "*** Please change as required and accept it in the browser." |
|
1170 |
|
1171 |holder| |
|
1172 |
|
1173 (holder := builder bindingAt:#hasVerticalScrollBar) isNil ifTrue:[ |
|
1174 holder := true asValue. |
|
1175 builder aspectAt:#hasVerticalScrollBar put:holder. |
|
1176 "/ holder addDependent:self. |
|
1177 ]. |
|
1178 ^ holder. |
|
1179 ! |
|
1180 |
|
1181 hiddenAccelerator |
1147 hiddenAccelerator |
1182 "used to set menu entries with an accelerator not visible to the operator |
1148 "used to set menu entries with an accelerator not visible to the operator |
1183 " |
1149 " |
1184 ^ false |
1150 ^ false |
1185 ! |
1151 ! |
1196 |
1162 |
1197 ! |
1163 ! |
1198 |
1164 |
1199 listOfTabs |
1165 listOfTabs |
1200 ^ listOfTabs |
1166 ^ listOfTabs |
1201 ! |
|
1202 |
|
1203 majorKey |
|
1204 "automatically generated by UIPainter ..." |
|
1205 |
|
1206 "*** the code below creates a default model when invoked." |
|
1207 "*** (which may not be the one you wanted)" |
|
1208 "*** Please change as required and accept it in the browser." |
|
1209 |
|
1210 |holder| |
|
1211 |
|
1212 (holder := builder bindingAt:#majorKey) isNil ifTrue:[ |
|
1213 holder := ValueHolder new. |
|
1214 builder aspectAt:#majorKey put:holder. |
|
1215 "/ holder addDependent:self. |
|
1216 ]. |
|
1217 ^ holder. |
|
1218 ! |
|
1219 |
|
1220 miniScrollerHorizontal |
|
1221 "automatically generated by UIPainter ..." |
|
1222 |
|
1223 "*** the code below creates a default model when invoked." |
|
1224 "*** (which may not be the one you wanted)" |
|
1225 "*** Please change as required and accept it in the browser." |
|
1226 |
|
1227 |holder| |
|
1228 |
|
1229 (holder := builder bindingAt:#miniScrollerHorizontal) isNil ifTrue:[ |
|
1230 holder := true asValue. |
|
1231 builder aspectAt:#miniScrollerHorizontal put:holder. |
|
1232 "/ holder addDependent:self. |
|
1233 ]. |
|
1234 ^ holder. |
|
1235 ! |
|
1236 |
|
1237 miniScrollerVertical |
|
1238 "automatically generated by UIPainter ..." |
|
1239 |
|
1240 "*** the code below creates a default model when invoked." |
|
1241 "*** (which may not be the one you wanted)" |
|
1242 "*** Please change as required and accept it in the browser." |
|
1243 |
|
1244 |holder| |
|
1245 |
|
1246 (holder := builder bindingAt:#miniScrollerVertical) isNil ifTrue:[ |
|
1247 holder := true asValue. |
|
1248 builder aspectAt:#miniScrollerVertical put:holder. |
|
1249 "/ holder addDependent:self. |
|
1250 ]. |
|
1251 ^ holder. |
|
1252 ! |
|
1253 |
|
1254 minorKey |
|
1255 "automatically generated by UIPainter ..." |
|
1256 |
|
1257 "*** the code below creates a default model when invoked." |
|
1258 "*** (which may not be the one you wanted)" |
|
1259 "*** Please change as required and accept it in the browser." |
|
1260 |
|
1261 |holder| |
|
1262 |
|
1263 (holder := builder bindingAt:#minorKey) isNil ifTrue:[ |
|
1264 holder := ValueHolder new. |
|
1265 builder aspectAt:#minorKey put:holder. |
|
1266 "/ holder addDependent:self. |
|
1267 ]. |
|
1268 ^ holder. |
|
1269 ! |
1167 ! |
1270 |
1168 |
1271 noteBookModel |
1169 noteBookModel |
1272 |holder| |
1170 |holder| |
1273 |
1171 |
1394 someObject = self testMode ifFalse:[ |
1292 someObject = self testMode ifFalse:[ |
1395 ^ super update:something with:aParameter from:someObject. |
1293 ^ super update:something with:aParameter from:someObject. |
1396 ]. |
1294 ]. |
1397 |
1295 |
1398 someObject value ifTrue:[ |
1296 someObject value ifTrue:[ |
|
1297 self noteBookModel value:0. |
|
1298 |
1399 listOfTabs notEmpty ifTrue:[ |
1299 listOfTabs notEmpty ifTrue:[ |
1400 list := listOfTabs collect:[:aTab| |tab| |
1300 list := listOfTabs collect:[:aTab| |tab| |
1401 tab := aTab copy. |
1301 tab := aTab copy. |
1402 tab setAttributesFromClass:specClass. |
1302 tab setAttributesFromClass:specClass. |
1403 tab |
1303 tab |