--- a/SimpleView.st Wed May 08 13:51:04 1996 +0200
+++ b/SimpleView.st Wed May 08 14:54:10 1996 +0200
@@ -4995,12 +4995,18 @@
"make the view visible on the screen"
realized ifFalse:[
- "
- now, make the view visible
- "
- device mapWindow:drawableId.
- realized := true.
+ drawableId isNil ifTrue:[
+ self realize
+ ] ifFalse:[
+ "
+ now, make the view visible
+ "
+ device mapWindow:drawableId.
+ realized := true.
+ ]
]
+
+ "Modified: 8.5.1996 / 09:36:21 / cg"
!
physicalCreate
@@ -5092,65 +5098,67 @@
|superGroup groupChange keep|
drawableId isNil ifTrue:[
- self create.
+ self create.
].
groupChange := false.
(windowGroup notNil and:[windowGroup isForModalSubview]) ifTrue:[
- keep := true.
+ keep := true.
] ifFalse:[
- keep := keepGroupAsIs
+ keep := keepGroupAsIs
].
keep ifFalse:[
- "
- put myself into superviews windowgroup if there is a superview
- "
- superView notNil ifTrue:[
- superGroup := superView windowGroup.
- (windowGroup notNil and:[superGroup ~~ windowGroup]) ifTrue:[
- "
- mhmh - seems that the windowgroup has changed ....
- "
+ "
+ put myself into superviews windowgroup if there is a superview
+ "
+ superView notNil ifTrue:[
+ superGroup := superView windowGroup.
+ (windowGroup notNil and:[superGroup ~~ windowGroup]) ifTrue:[
+ "
+ mhmh - seems that the windowgroup has changed ....
+ "
"/ 'oops - wgroup change on realize' printNL.
- windowGroup removeView:self.
- windowGroup := nil
- ].
- superGroup ~~ windowGroup ifTrue:[
- groupChange := true.
- windowGroup := superGroup.
- windowGroup notNil ifTrue:[
- windowGroup addView:self.
- ]
- ]
- ].
+ windowGroup removeView:self.
+ windowGroup := nil
+ ].
+ superGroup ~~ windowGroup ifTrue:[
+ groupChange := true.
+ windowGroup := superGroup.
+ windowGroup notNil ifTrue:[
+ windowGroup addView:self.
+ ]
+ ]
+ ].
].
hiddenOnRealize ifFalse:[
- (originChanged or:[extentChanged]) ifTrue:[
- self fixSize.
- self sizeChanged:nil. "/ new 29-aug-1995
- ].
-
- (realized not or:[groupChange]) ifTrue:[
- subViews notNil ifTrue:[
- self realizeAllSubViews.
- ].
- ].
- self setInnerClip.
-
- realized ifFalse:[
- "
- now, make the view visible
- "
- self map
- ]
+ (originChanged or:[extentChanged]) ifTrue:[
+ self fixSize.
+ self sizeChanged:nil. "/ new 29-aug-1995
+ ].
+
+ subViews notNil ifTrue:[
+ (realized not or:[groupChange]) ifTrue:[
+ self realizeAllSubViews.
+ ].
+ ].
+ self setInnerClip.
+
+ realized ifFalse:[
+ "
+ now, make the view visible
+ "
+ self map
+ ]
].
controller notNil ifTrue:[
- controller startUp
+ controller startUp
]
+
+ "Modified: 8.5.1996 / 09:31:20 / cg"
!
recreate
@@ -5173,6 +5181,24 @@
]
!
+remap
+ "make the view visible on the screen at its previous position.
+ In contrast to map, this asks the windowManager to show the view
+ immediately (instead of asking for a frame). However, some windowManagers
+ are known to ignore this ..."
+
+ realized ifFalse:[
+ "
+ now, make the view visible
+ "
+ device mapView:self id:drawableId iconified:false
+ atX:left y:top width:width height:height.
+ realized := true.
+ ]
+
+ "Created: 8.5.1996 / 09:33:06 / cg"
+!
+
rerealizeInGroup:aWindowGroup
"rerealize at old position in (a possibly different) windowGroup."
@@ -6206,6 +6232,6 @@
!SimpleView class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libview/SimpleView.st,v 1.83 1996-05-03 23:20:21 stefan Exp $'
+ ^ '$Header: /cvs/stx/stx/libview/SimpleView.st,v 1.84 1996-05-08 12:54:10 cg Exp $'
! !
SimpleView initialize!