--- a/DisplaySurface.st Fri Jul 22 18:20:42 2005 +0200
+++ b/DisplaySurface.st Tue Jul 26 10:51:26 2005 +0200
@@ -1994,9 +1994,7 @@
keyCommands notNil ifTrue:[
action := keyCommands at:key ifAbsent:[nil].
- action notNil ifTrue:[
- action value
- ]
+ action value
].
key isSymbol ifTrue:[
@@ -2485,7 +2483,7 @@
!DisplaySurface class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libview/DisplaySurface.st,v 1.124 2005-06-13 18:19:43 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libview/DisplaySurface.st,v 1.125 2005-07-26 08:51:26 cg Exp $'
! !
DisplaySurface initialize!
--- a/ModalBox.st Fri Jul 22 18:20:42 2005 +0200
+++ b/ModalBox.st Tue Jul 26 10:51:26 2005 +0200
@@ -563,11 +563,11 @@
"the implementation is simple: just fork of a process
to hide me."
[
- Delay waitForSeconds:seconds.
- self shown ifTrue:[
- self hide.
- anAction notNil ifTrue:[anAction value]
- ]
+ Delay waitForSeconds:seconds.
+ self shown ifTrue:[
+ self hide.
+ anAction value
+ ]
] forkAt:4.
"
@@ -913,7 +913,7 @@
!ModalBox class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libview/ModalBox.st,v 1.91 2005-01-12 11:06:12 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libview/ModalBox.st,v 1.92 2005-07-26 08:51:12 cg Exp $'
! !
ModalBox initialize!
--- a/WindowGroup.st Fri Jul 22 18:20:42 2005 +0200
+++ b/WindowGroup.st Tue Jul 26 10:51:26 2005 +0200
@@ -1450,7 +1450,7 @@
"/
"/ perform any cleanupActions
"/
- cleanupActions notNil ifTrue:[cleanupActions value]
+ cleanupActions value
]
"Modified: / 14.12.1995 / 11:12:24 / stefan"
@@ -2784,7 +2784,7 @@
!WindowGroup class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libview/WindowGroup.st,v 1.276 2005-07-20 08:11:52 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libview/WindowGroup.st,v 1.277 2005-07-26 08:50:27 cg Exp $'
! !
WindowGroup initialize!