equal
deleted
inserted
replaced
5854 |
5854 |
5855 "Created: 1.3.1996 / 19:20:46 / cg" |
5855 "Created: 1.3.1996 / 19:20:46 / cg" |
5856 "Modified: 22.4.1996 / 23:38:27 / cg" |
5856 "Modified: 22.4.1996 / 23:38:27 / cg" |
5857 ! |
5857 ! |
5858 |
5858 |
|
5859 defaultFont |
|
5860 ^ self class defaultFont |
|
5861 ! |
|
5862 |
5859 destroy |
5863 destroy |
5860 "unmap & destroy - make me invisible, destroy subviews then |
5864 "unmap & destroy - make me invisible, destroy subviews then |
5861 make me unknown to the device" |
5865 make me unknown to the device" |
5862 |
5866 |
5863 realized ifTrue:[ |
5867 realized ifTrue:[ |
5982 |
5986 |
5983 flagBits := 0. |
5987 flagBits := 0. |
5984 |
5988 |
5985 super initialize. |
5989 super initialize. |
5986 |
5990 |
5987 font := self class defaultFont. |
5991 font := self defaultFont. |
5988 |
5992 |
5989 shown := hiddenOnRealize := realized := false. |
5993 shown := hiddenOnRealize := realized := false. |
5990 |
5994 |
5991 "fill in some defaults - some of them are usually redefined in subclasses |
5995 "fill in some defaults - some of them are usually redefined in subclasses |
5992 initialize methods" |
5996 initialize methods" |
6010 bitGravity := #NorthWest. "/ nil. |
6014 bitGravity := #NorthWest. "/ nil. |
6011 viewGravity := nil. |
6015 viewGravity := nil. |
6012 |
6016 |
6013 controllerClass := self defaultControllerClass. |
6017 controllerClass := self defaultControllerClass. |
6014 controllerClass notNil ifTrue:[ |
6018 controllerClass notNil ifTrue:[ |
6015 controller := controllerClass new. |
6019 controller := controllerClass new. |
6016 controller view:self. |
6020 controller view:self. |
6017 ]. |
6021 ]. |
6018 |
6022 |
6019 "Modified: / 1.10.1998 / 14:31:05 / cg" |
6023 "Modified: / 1.10.1998 / 14:31:05 / cg" |
6020 ! |
6024 ! |
6021 |
6025 |
9283 ! ! |
9287 ! ! |
9284 |
9288 |
9285 !SimpleView class methodsFor:'documentation'! |
9289 !SimpleView class methodsFor:'documentation'! |
9286 |
9290 |
9287 version |
9291 version |
9288 ^ '$Header: /cvs/stx/stx/libview/SimpleView.st,v 1.445 2002-07-16 14:38:09 penk Exp $' |
9292 ^ '$Header: /cvs/stx/stx/libview/SimpleView.st,v 1.446 2002-07-23 19:40:47 mb Exp $' |
9289 ! ! |
9293 ! ! |
9290 SimpleView initialize! |
9294 SimpleView initialize! |