changed request-focus-with-Button press
authorClaus Gittinger <cg@exept.de>
Thu, 25 Mar 1999 15:56:07 +0100
changeset 1821 b57cc9dc2c08
parent 1820 4069e1ed5d3f
child 1822 9abf58839e67
changed request-focus-with-Button press behavior. (now, all request it, except those which ecplicitely say: 'NO'; used to be vice versa)
ArrButton.st
ArrowButton.st
PanelView.st
ScrollBar.st
Scroller.st
VarPanel.st
VariablePanel.st
--- a/ArrButton.st	Thu Mar 25 15:33:52 1999 +0100
+++ b/ArrButton.st	Thu Mar 25 15:56:07 1999 +0100
@@ -718,6 +718,18 @@
     "Modified: 24.2.1997 / 21:19:59 / cg"
 ! !
 
+!ArrowButton methodsFor:'focus handling'!
+
+wantsFocusWithButtonPress
+    "no, do not catch the keyboard focus on button click"
+
+    ^ false
+
+
+
+
+! !
+
 !ArrowButton methodsFor:'initialization'!
 
 initStyle
@@ -888,5 +900,5 @@
 !ArrowButton class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/Attic/ArrButton.st,v 1.49 1998-02-25 22:36:56 tz Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/Attic/ArrButton.st,v 1.50 1999-03-25 14:55:53 cg Exp $'
 ! !
--- a/ArrowButton.st	Thu Mar 25 15:33:52 1999 +0100
+++ b/ArrowButton.st	Thu Mar 25 15:56:07 1999 +0100
@@ -718,6 +718,18 @@
     "Modified: 24.2.1997 / 21:19:59 / cg"
 ! !
 
+!ArrowButton methodsFor:'focus handling'!
+
+wantsFocusWithButtonPress
+    "no, do not catch the keyboard focus on button click"
+
+    ^ false
+
+
+
+
+! !
+
 !ArrowButton methodsFor:'initialization'!
 
 initStyle
@@ -888,5 +900,5 @@
 !ArrowButton class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/ArrowButton.st,v 1.49 1998-02-25 22:36:56 tz Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/ArrowButton.st,v 1.50 1999-03-25 14:55:53 cg Exp $'
 ! !
--- a/PanelView.st	Thu Mar 25 15:33:52 1999 +0100
+++ b/PanelView.st	Thu Mar 25 15:56:07 1999 +0100
@@ -363,6 +363,16 @@
     "Modified: 28.1.1997 / 17:52:44 / cg"
 ! !
 
+!PanelView methodsFor:'focus handling'!
+
+wantsFocusWithButtonPress
+    "no, do not catch the keyboard focus on button click"
+
+    ^ false
+
+
+! !
+
 !PanelView methodsFor:'initialization'!
 
 initialize
@@ -522,5 +532,5 @@
 !PanelView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/PanelView.st,v 1.28 1998-07-20 12:13:36 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/PanelView.st,v 1.29 1999-03-25 14:55:42 cg Exp $'
 ! !
--- a/ScrollBar.st	Thu Mar 25 15:33:52 1999 +0100
+++ b/ScrollBar.st	Thu Mar 25 15:56:07 1999 +0100
@@ -669,6 +669,16 @@
     "Modified: / 2.12.1998 / 00:02:14 / cg"
 ! !
 
+!ScrollBar methodsFor:'focus handling'!
+
+wantsFocusWithButtonPress
+    "no, do not catch the keyboard focus on button click"
+
+    ^ false
+
+
+! !
+
 !ScrollBar methodsFor:'forced scroll'!
 
 pageDown
@@ -1032,5 +1042,5 @@
 !ScrollBar class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/ScrollBar.st,v 1.56 1998-12-02 16:57:50 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/ScrollBar.st,v 1.57 1999-03-25 14:56:00 cg Exp $'
 ! !
--- a/Scroller.st	Thu Mar 25 15:33:52 1999 +0100
+++ b/Scroller.st	Thu Mar 25 15:56:07 1999 +0100
@@ -1663,6 +1663,16 @@
     super update:something with:aParameter from:changedObject
 ! !
 
+!Scroller methodsFor:'focus handling'!
+
+wantsFocusWithButtonPress
+    "no, do not catch the keyboard focus on button click"
+
+    ^ false
+
+
+! !
+
 !Scroller methodsFor:'forced scroll'!
 
 pageDown
@@ -2325,5 +2335,5 @@
 !Scroller class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/Scroller.st,v 1.120 1999-03-19 21:10:00 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/Scroller.st,v 1.121 1999-03-25 14:56:07 cg Exp $'
 ! !
--- a/VarPanel.st	Thu Mar 25 15:33:52 1999 +0100
+++ b/VarPanel.st	Thu Mar 25 15:56:07 1999 +0100
@@ -1221,6 +1221,16 @@
     "Modified: 28.1.1997 / 17:56:30 / cg"
 ! !
 
+!VariablePanel methodsFor:'focus handling'!
+
+wantsFocusWithButtonPress
+    "no, do not catch the keyboard focus on button click"
+
+    ^ false
+
+
+! !
+
 !VariablePanel methodsFor:'initializing'!
 
 computeBarHeight
@@ -1657,5 +1667,5 @@
 !VariablePanel class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/Attic/VarPanel.st,v 1.44 1998-09-30 17:06:38 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/Attic/VarPanel.st,v 1.45 1999-03-25 14:55:33 cg Exp $'
 ! !
--- a/VariablePanel.st	Thu Mar 25 15:33:52 1999 +0100
+++ b/VariablePanel.st	Thu Mar 25 15:56:07 1999 +0100
@@ -1221,6 +1221,16 @@
     "Modified: 28.1.1997 / 17:56:30 / cg"
 ! !
 
+!VariablePanel methodsFor:'focus handling'!
+
+wantsFocusWithButtonPress
+    "no, do not catch the keyboard focus on button click"
+
+    ^ false
+
+
+! !
+
 !VariablePanel methodsFor:'initializing'!
 
 computeBarHeight
@@ -1657,5 +1667,5 @@
 !VariablePanel class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/VariablePanel.st,v 1.44 1998-09-30 17:06:38 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/VariablePanel.st,v 1.45 1999-03-25 14:55:33 cg Exp $'
 ! !