--- a/StandardSystemView.st Fri Sep 11 13:38:51 1998 +0200
+++ b/StandardSystemView.st Fri Sep 11 14:56:07 1998 +0200
@@ -13,8 +13,8 @@
TopView subclass:#StandardSystemView
instanceVariableNames:'label icon iconView iconLabel minExtent maxExtent sizeFixed
application windowEventsForApplication'
- classVariableNames:'DefaultIcon TakeFocusWhenMapped IncludeHostNameInLabel
- DefaultExtent WindowLabelFormat'
+ classVariableNames:'DefaultIcon IncludeHostNameInLabel DefaultExtent
+ WindowLabelFormat'
poolDictionaries:''
category:'Views-Basic'
!
@@ -874,20 +874,6 @@
"Modified: 25.2.1997 / 23:19:54 / cg"
!
-mapped
- "the view got mapped"
-
- super mapped.
- "
- ask for the focus - this avoids having to click on the
- view with WM's which need an explicit click.
- Q: is this a good idea ?
- "
- TakeFocusWhenMapped == true ifTrue:[
- self getKeyboardFocus.
- ]
-!
-
showActivity:someMessage
"some activityNotification shalt be communicated to
the user. Forward it to my application (if any).
@@ -1426,6 +1412,6 @@
!StandardSystemView class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libview/StandardSystemView.st,v 1.105 1998-09-08 10:02:25 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libview/StandardSystemView.st,v 1.106 1998-09-11 12:56:07 cg Exp $'
! !
StandardSystemView initialize!
--- a/StdSysV.st Fri Sep 11 13:38:51 1998 +0200
+++ b/StdSysV.st Fri Sep 11 14:56:07 1998 +0200
@@ -13,8 +13,8 @@
TopView subclass:#StandardSystemView
instanceVariableNames:'label icon iconView iconLabel minExtent maxExtent sizeFixed
application windowEventsForApplication'
- classVariableNames:'DefaultIcon TakeFocusWhenMapped IncludeHostNameInLabel
- DefaultExtent WindowLabelFormat'
+ classVariableNames:'DefaultIcon IncludeHostNameInLabel DefaultExtent
+ WindowLabelFormat'
poolDictionaries:''
category:'Views-Basic'
!
@@ -874,20 +874,6 @@
"Modified: 25.2.1997 / 23:19:54 / cg"
!
-mapped
- "the view got mapped"
-
- super mapped.
- "
- ask for the focus - this avoids having to click on the
- view with WM's which need an explicit click.
- Q: is this a good idea ?
- "
- TakeFocusWhenMapped == true ifTrue:[
- self getKeyboardFocus.
- ]
-!
-
showActivity:someMessage
"some activityNotification shalt be communicated to
the user. Forward it to my application (if any).
@@ -1426,6 +1412,6 @@
!StandardSystemView class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libview/Attic/StdSysV.st,v 1.105 1998-09-08 10:02:25 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libview/Attic/StdSysV.st,v 1.106 1998-09-11 12:56:07 cg Exp $'
! !
StandardSystemView initialize!
--- a/TopView.st Fri Sep 11 13:38:51 1998 +0200
+++ b/TopView.st Fri Sep 11 14:56:07 1998 +0200
@@ -12,7 +12,7 @@
View subclass:#TopView
instanceVariableNames:'type'
- classVariableNames:''
+ classVariableNames:'TakeFocusWhenMapped'
poolDictionaries:''
category:'Views-Basic'
!
@@ -207,6 +207,22 @@
"Modified: 9.1.1997 / 12:17:38 / cg"
!
+mapped
+ "the view got mapped"
+
+ super mapped.
+ "
+ ask for the focus - this avoids having to click on the
+ view with WM's which need an explicit click.
+ Q: is this a good idea ?
+ "
+ TakeFocusWhenMapped == true ifTrue:[
+ self getKeyboardFocus.
+ ]
+
+ "Modified: / 10.9.1998 / 22:02:52 / cg"
+!
+
showActivity:someMessage
"some activityNotification shalt be communicated to
the user.
@@ -547,21 +563,6 @@
"Modified: 20.3.1997 / 22:14:16 / cg"
!
-mapped
- "the receiver was mapped (i.e. deiconified or just created);
- look for partners and slaves."
-
- realized := true.
- super mapped.
-
- "/
- "/ remap slaves and partners
- "/
- self masterSlaveMessage:#remap inGroup:windowGroup
-
- "Modified: 31.5.1996 / 09:05:58 / cg"
-!
-
masterSlaveMessage:aSelector inGroup:aWindowGroup
"send aSelector to partners and/or slaves.
This is a private helper for destroy / mapped / unmapped"
@@ -599,5 +600,5 @@
!TopView class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libview/TopView.st,v 1.52 1998-05-20 16:05:35 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libview/TopView.st,v 1.53 1998-09-11 12:55:49 cg Exp $'
! !