269 top open |
269 top open |
270 [exEnd] |
270 [exEnd] |
271 " |
271 " |
272 ! ! |
272 ! ! |
273 |
273 |
274 !Scroller class methodsFor:'defaults'! |
274 !Scroller class methodsFor:'defaults'! |
275 |
275 |
276 handleLightFormOn:aDisplay |
276 handleLightFormOn:aDisplay |
277 "answer the form used for the handles light area; |
277 "answer the form used for the handles light area; |
278 cache the one for Display for the next round" |
278 cache the one for Display for the next round" |
279 |
279 |
280 |f| |
280 |f| |
281 |
281 |
282 ((aDisplay == Display) and:[HandleLightForm notNil]) ifTrue:[ |
282 ((aDisplay == Display) and:[HandleLightForm notNil]) ifTrue:[ |
283 ^ HandleLightForm |
283 ^ HandleLightForm |
284 ]. |
284 ]. |
285 f := Form fromFile:'HandleLight.xbm' resolution:100 on:aDisplay. |
285 f := Image fromFile:'bitmaps/HandleLight.xbm' resolution:100 on:aDisplay. |
286 f isNil ifTrue:[ |
286 f isNil ifTrue:[ |
287 f := Form width:8 height:8 fromArray:#[2r00000000 |
287 f := Form width:8 height:8 fromArray:#[2r00000000 |
288 2r00000010 |
288 2r00000010 |
289 2r00000011 |
289 2r00000011 |
290 2r00000011 |
290 2r00000011 |
291 2r00000011 |
291 2r00000011 |
292 2r00000011 |
292 2r00000011 |
293 2r00000110 |
293 2r00000110 |
294 2r00111100] |
294 2r00111100] |
295 on:aDisplay |
295 on:aDisplay |
296 ]. |
296 ]. |
297 (aDisplay == Display) ifTrue:[ |
297 (aDisplay == Display) ifTrue:[ |
298 HandleLightForm := f |
298 HandleLightForm := f |
299 ]. |
299 ]. |
300 ^ f |
300 ^ f |
|
301 |
|
302 "Modified: 23.10.2031 / 01:00:00 / cg" |
301 ! |
303 ! |
302 |
304 |
303 handleShadowFormOn:aDisplay |
305 handleShadowFormOn:aDisplay |
304 "answer the form used for the handles shadow area; |
306 "answer the form used for the handles shadow area; |
305 cache the one for Display for the next round" |
307 cache the one for Display for the next round" |
306 |
308 |
307 |f| |
309 |f| |
308 |
310 |
309 ((aDisplay == Display) and:[HandleShadowForm notNil]) ifTrue:[ |
311 ((aDisplay == Display) and:[HandleShadowForm notNil]) ifTrue:[ |
310 ^ HandleShadowForm |
312 ^ HandleShadowForm |
311 ]. |
313 ]. |
312 f := Form fromFile:'HandleShadow.xbm' resolution:100 on:aDisplay. |
314 f := Image fromFile:'bitmaps/HandleShadow.xbm' resolution:100 on:aDisplay. |
313 f isNil ifTrue:[ |
315 f isNil ifTrue:[ |
314 f := Form width:8 height:8 fromArray:#[2r00111100 |
316 f := Form width:8 height:8 fromArray:#[2r00111100 |
315 2r01100000 |
317 2r01100000 |
316 2r11000000 |
318 2r11000000 |
317 2r11000000 |
319 2r11000000 |
318 2r11000000 |
320 2r11000000 |
319 2r11000000 |
321 2r11000000 |
320 2r01000000 |
322 2r01000000 |
321 2r00000000] |
323 2r00000000] |
322 on:aDisplay |
324 on:aDisplay |
323 ]. |
325 ]. |
324 (aDisplay == Display) ifTrue:[ |
326 (aDisplay == Display) ifTrue:[ |
325 HandleShadowForm := f |
327 HandleShadowForm := f |
326 ]. |
328 ]. |
327 ^ f |
329 ^ f |
|
330 |
|
331 "Modified: 19.12.1996 / 01:00:00 / cg" |
328 ! |
332 ! |
329 |
333 |
330 updateStyleCache |
334 updateStyleCache |
331 "extract values from the styleSheet and cache them in class variables" |
335 "extract values from the styleSheet and cache them in class variables" |
332 |
336 |