equal
deleted
inserted
replaced
18 category:'Interface-UIPainter' |
18 category:'Interface-UIPainter' |
19 ! |
19 ! |
20 |
20 |
21 View subclass:#Canvas |
21 View subclass:#Canvas |
22 instanceVariableNames:'clientSpecHolder selection specification lastClickPoint |
22 instanceVariableNames:'clientSpecHolder selection specification lastClickPoint |
23 menuSelector uiBuilder hiddenCounter' |
23 menuSelector uiBuilder hiddenCounter showBorders' |
24 classVariableNames:'' |
24 classVariableNames:'' |
25 poolDictionaries:'' |
25 poolDictionaries:'' |
26 privateIn:UIGalleryView |
26 privateIn:UIGalleryView |
27 ! |
27 ! |
28 |
28 |
154 minorKeys:aListOfSelectors |
154 minorKeys:aListOfSelectors |
155 "set the list of selectors |
155 "set the list of selectors |
156 " |
156 " |
157 minorKeys := aListOfSelectors. |
157 minorKeys := aListOfSelectors. |
158 self selection:nil. |
158 self selection:nil. |
|
159 ! |
|
160 |
|
161 showBorders:aBoolean |
|
162 "show borders around dragable objects" |
|
163 |
|
164 canvas showBorders:aBoolean. |
|
165 ! ! |
|
166 |
|
167 !UIGalleryView methodsFor:'accessing-colors'! |
|
168 |
|
169 viewBackground:aColor |
|
170 canvas notNil ifTrue:[ |
|
171 canvas viewBackground:aColor. |
|
172 ]. |
|
173 ^ super viewBackground:aColor |
159 ! ! |
174 ! ! |
160 |
175 |
161 !UIGalleryView methodsFor:'accessing-holders'! |
176 !UIGalleryView methodsFor:'accessing-holders'! |
162 |
177 |
163 clientSpecHolder |
178 clientSpecHolder |
318 "set the value of the instance variable 'menuSelector' (automatically generated)" |
333 "set the value of the instance variable 'menuSelector' (automatically generated)" |
319 |
334 |
320 menuSelector := something. |
335 menuSelector := something. |
321 ! |
336 ! |
322 |
337 |
|
338 showBorders:aBoolean |
|
339 showBorders := aBoolean. |
|
340 ! |
|
341 |
323 specification |
342 specification |
324 "get current specification |
343 "get current specification |
325 " |
344 " |
326 ^ specification |
345 ^ specification |
327 ! |
346 ! |
348 ]. |
367 ]. |
349 |
368 |
350 specification buildViewFor:builder in:self. |
369 specification buildViewFor:builder in:self. |
351 |
370 |
352 subViews size ~~ 0 ifTrue:[ |
371 subViews size ~~ 0 ifTrue:[ |
353 subViews do:[:v| |
372 showBorders ifTrue:[ |
354 (self findSpecFor:v) notNil ifTrue:[ |
373 subViews do:[:v| |
355 v borderWidth:1 |
374 (self findSpecFor:v) notNil ifTrue:[ |
356 ] |
375 v borderWidth:1 |
|
376 ]. |
|
377 ]. |
357 ]. |
378 ]. |
358 realized ifTrue:[ self realizeAllSubViews ]. |
379 realized ifTrue:[ self realizeAllSubViews ]. |
359 ]. |
380 ]. |
360 ! ! |
381 ! ! |
361 |
382 |
490 ^ true |
511 ^ true |
491 ! ! |
512 ! ! |
492 |
513 |
493 !UIGalleryView::Canvas methodsFor:'initialization'! |
514 !UIGalleryView::Canvas methodsFor:'initialization'! |
494 |
515 |
|
516 destroy |
|
517 |winGrp| |
|
518 |
|
519 winGrp := self windowGroup. |
|
520 winGrp notNil ifTrue:[ |
|
521 winGrp removePreEventHook:self. |
|
522 ]. |
|
523 super destroy. |
|
524 ! |
|
525 |
495 initialize |
526 initialize |
496 super initialize. |
527 super initialize. |
497 clientSpecHolder := nil asValue. |
528 clientSpecHolder := nil asValue. |
498 hiddenCounter := 0. |
529 hiddenCounter := 0. |
|
530 showBorders := true. |
499 ! |
531 ! |
500 |
532 |
501 realize |
533 realize |
|
534 |winGrp| |
|
535 |
502 super realize. |
536 super realize. |
503 self windowGroup addPreEventHook:self. |
537 winGrp := self windowGroup. |
|
538 winGrp notNil ifTrue:[ |
|
539 winGrp addPreEventHook:self. |
|
540 ]. |
504 ! ! |
541 ! ! |
505 |
542 |
506 !UIGalleryView::Canvas methodsFor:'searching'! |
543 !UIGalleryView::Canvas methodsFor:'searching'! |
507 |
544 |
508 findObjectAt:aPoint |
545 findObjectAt:aPoint |