--- a/SimpleView.st Sat Jun 01 12:38:56 1996 +0200
+++ b/SimpleView.st Sat Jun 01 13:25:32 1996 +0200
@@ -2484,14 +2484,6 @@
^ name
!
-inputOnly
- "return true, if this view is an input-only view;
- input only views are transparent and can be layed on top of a view to
- catch its input"
-
- ^ false
-!
-
name
"return my name component to be used for resource-access"
@@ -4946,19 +4938,19 @@
"associate colors to device"
drawableId := device
- createWindowFor:self
- origin:(left @ top)
- extent:(width @ height)
- minExtent:nil
- maxExtent:nil
- borderWidth:borderWidth
- subViewOf:superView
- onTop:(self isPopUpView)
- inputOnly:(self inputOnly)
- label:nil
- cursor:cursor
- icon:nil
- iconView:nil.
+ createWindowFor:self
+ origin:(left @ top)
+ extent:(width @ height)
+ minExtent:nil
+ maxExtent:nil
+ borderWidth:borderWidth
+ subViewOf:superView
+ onTop:(self isPopUpView)
+ inputOnly:(self isInputOnly)
+ label:nil
+ cursor:cursor
+ icon:nil
+ iconView:nil.
Lobby registerChange:self.
extentChanged := false.
@@ -4966,26 +4958,28 @@
(borderColor notNil and:[borderColor ~~ Black]) ifTrue:[
"/ borderColor := borderColor on:device.
- self setBorderColor
+ self setBorderColor
].
(viewGravity notNil "and:[viewGravity ~~ #NorthWest]") ifTrue:[
- device setWindowGravity:viewGravity in:drawableId
+ device setWindowGravity:viewGravity in:drawableId
].
(bitGravity notNil "and:[bitGravity ~~ #NorthWest]") ifTrue:[
- device setBitGravity:bitGravity in:drawableId
+ device setBitGravity:bitGravity in:drawableId
].
borderShape notNil ifTrue:[
- device setWindowBorderShape:(borderShape id) in:drawableId
+ device setWindowBorderShape:(borderShape id) in:drawableId
].
viewShape notNil ifTrue:[
- device setWindowShape:(viewShape id) in:drawableId
+ device setWindowShape:(viewShape id) in:drawableId
].
(backed notNil and:[backed ~~ false]) ifTrue:[
- device setBackingStore:backed in:drawableId
+ device setBackingStore:backed in:drawableId
].
saveUnder ifTrue:[
- device setSaveUnder:true in:drawableId
+ device setSaveUnder:true in:drawableId
].
+
+ "Modified: 1.6.1996 / 13:22:39 / cg"
!
realize
@@ -6238,6 +6232,6 @@
!SimpleView class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libview/SimpleView.st,v 1.117 1996-05-30 09:42:25 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libview/SimpleView.st,v 1.118 1996-06-01 11:24:50 cg Exp $'
! !
SimpleView initialize!
--- a/StandardSystemView.st Sat Jun 01 12:38:56 1996 +0200
+++ b/StandardSystemView.st Sat Jun 01 13:25:32 1996 +0200
@@ -1088,7 +1088,7 @@
borderWidth:borderWidth
subViewOf:nil
onTop:(self isPopUpView)
- inputOnly:(self inputOnly)
+ inputOnly:(self isInputOnly)
label:l
cursor:cursor
icon:icon
@@ -1125,6 +1125,7 @@
].
"Modified: 3.5.1996 / 15:55:13 / stefan"
+ "Modified: 1.6.1996 / 13:22:44 / cg"
!
realize
@@ -1179,5 +1180,5 @@
!StandardSystemView class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libview/StandardSystemView.st,v 1.52 1996-05-18 15:34:58 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libview/StandardSystemView.st,v 1.53 1996-06-01 11:25:32 cg Exp $'
! !
--- a/StdSysV.st Sat Jun 01 12:38:56 1996 +0200
+++ b/StdSysV.st Sat Jun 01 13:25:32 1996 +0200
@@ -1088,7 +1088,7 @@
borderWidth:borderWidth
subViewOf:nil
onTop:(self isPopUpView)
- inputOnly:(self inputOnly)
+ inputOnly:(self isInputOnly)
label:l
cursor:cursor
icon:icon
@@ -1125,6 +1125,7 @@
].
"Modified: 3.5.1996 / 15:55:13 / stefan"
+ "Modified: 1.6.1996 / 13:22:44 / cg"
!
realize
@@ -1179,5 +1180,5 @@
!StandardSystemView class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libview/Attic/StdSysV.st,v 1.52 1996-05-18 15:34:58 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libview/Attic/StdSysV.st,v 1.53 1996-06-01 11:25:32 cg Exp $'
! !