equal
deleted
inserted
replaced
1449 |
1449 |
1450 allViewBackground:something |
1450 allViewBackground:something |
1451 "set the viewBackground to something, a color, image or form, |
1451 "set the viewBackground to something, a color, image or form, |
1452 in myself and recursively in all of my subviews" |
1452 in myself and recursively in all of my subviews" |
1453 |
1453 |
1454 self viewBackground:something. |
1454 viewBackground ~~ something ifTrue:[ |
|
1455 self viewBackground:something. |
|
1456 shown ifTrue:[ |
|
1457 self invalidate |
|
1458 ]. |
|
1459 ]. |
|
1460 |
1455 subViews notNil ifTrue:[ |
1461 subViews notNil ifTrue:[ |
1456 subViews do:[:v| |
1462 subViews do:[:v| |
1457 v allViewBackground:something |
1463 v allViewBackground:something |
1458 ] |
1464 ] |
1459 ] |
1465 ] |
1460 |
1466 |
1461 "Created: 17.7.1996 / 14:59:08 / cg" |
1467 "Created: 17.7.1996 / 14:59:08 / cg" |
1462 "Modified: 18.7.1996 / 13:34:26 / cg" |
1468 "Modified: 18.7.1996 / 13:34:26 / cg" |
1463 ! |
1469 ! |
8256 ! ! |
8262 ! ! |
8257 |
8263 |
8258 !SimpleView class methodsFor:'documentation'! |
8264 !SimpleView class methodsFor:'documentation'! |
8259 |
8265 |
8260 version |
8266 version |
8261 ^ '$Header: /cvs/stx/stx/libview/SimpleView.st,v 1.330 1999-06-15 13:59:12 cg Exp $' |
8267 ^ '$Header: /cvs/stx/stx/libview/SimpleView.st,v 1.331 1999-07-08 09:36:08 cg Exp $' |
8262 ! ! |
8268 ! ! |
8263 SimpleView initialize! |
8269 SimpleView initialize! |