equal
deleted
inserted
replaced
404 |
404 |
405 "Modified: 22.9.1995 / 15:45:02 / claus" |
405 "Modified: 22.9.1995 / 15:45:02 / claus" |
406 ! |
406 ! |
407 |
407 |
408 edgeDrawn:which |
408 edgeDrawn:which |
|
409 "redraw my logo if it overlaps the edge" |
|
410 |
409 LabelOverMargin ifTrue:[ |
411 LabelOverMargin ifTrue:[ |
410 (logo notNil and:[logo isImageOrForm]) ifTrue:[ |
412 (logo notNil and:[logo isImageOrForm]) ifTrue:[ |
411 self paint:fgColor on:bgColor. |
413 self paint:fgColor on:bgColor. |
412 self clippingRectangle:nil. |
414 self clippingRectangle:nil. |
413 self displayForm:logo x:labelOriginX y:labelOriginY. |
415 self displayForm:logo x:labelOriginX y:labelOriginY. |
414 self clippingRectangle:innerClipRect |
416 self clippingRectangle:innerClipRect |
415 ] |
417 ] |
416 ]. |
418 ]. |
417 |
419 |
418 "Modified: 7.3.1997 / 19:54:30 / cg" |
420 "Modified: 22.3.1997 / 18:23:50 / cg" |
419 ! ! |
421 ! ! |
420 |
422 |
421 !CheckToggle class methodsFor:'documentation'! |
423 !CheckToggle class methodsFor:'documentation'! |
422 |
424 |
423 version |
425 version |
424 ^ '$Header: /cvs/stx/stx/libwidg/Attic/ChckTggle.st,v 1.32 1997-03-07 20:17:01 cg Exp $' |
426 ^ '$Header: /cvs/stx/stx/libwidg/Attic/ChckTggle.st,v 1.33 1997-03-22 17:24:49 cg Exp $' |
425 ! ! |
427 ! ! |