Mercurial Mercurial > hg > stx-libwidg / changeset
summary | shortlog | changelog | graph | tags | bookmarks | branches | files | changeset | raw | zip | gz | bz2 | help
Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
code cleanup
authorClaus Gittinger <cg@exept.de>
Tue, 26 Jul 2005 10:51:05 +0200
changeset 3201 ce84e272c6bb
parent 3200 75936e57105f
child 3202 8217b0acc9f2
code cleanup
OptionBox.st file | annotate | diff | comparison | revisions
TextCollector.st file | annotate | diff | comparison | revisions
TextView.st file | annotate | diff | comparison | revisions 
--- a/OptionBox.st	Fri Jul 22 18:09:11 2005 +0200
+++ b/OptionBox.st	Tue Jul 26 10:51:05 2005 +0200
@@ -497,9 +497,7 @@
         (aKey == #Return) ifTrue:[
             self hide.
             action := actions at:defaultButtonIndex.
-            action notNil ifTrue:[
-                action value
-            ]
+            action value
         ]
     ].
     super keyPress:aKey x:x y:y
@@ -557,9 +555,7 @@
                        (buttons at:index) turnOffWithoutRedraw.
                        self hide.
                        action := actions at:index.
-                       action notNil ifTrue:[
-                           action value
-                       ]
+                       action value
                       ].
 "/        index == nButt ifTrue:[
 "/            button isReturnButton:true
@@ -615,5 +611,5 @@
 !OptionBox class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/OptionBox.st,v 1.59 2004-06-08 18:10:20 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/OptionBox.st,v 1.60 2005-07-26 08:51:05 cg Exp $'
 ! !
--- a/TextCollector.st	Fri Jul 22 18:09:11 2005 +0200
+++ b/TextCollector.st	Tue Jul 26 10:51:05 2005 +0200
@@ -329,9 +329,7 @@
 destroy
     "destroy this view"
 
-    destroyAction notNil ifTrue:[
-        destroyAction value
-    ].
+    destroyAction value.
     super destroy
 
     "Modified: / 9.11.1998 / 21:18:17 / cg"
@@ -800,7 +798,7 @@
 !TextCollector class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/TextCollector.st,v 1.85 2005-01-07 12:36:38 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/TextCollector.st,v 1.86 2005-07-26 08:50:40 cg Exp $'
 ! !
 
 TextCollector initialize!
--- a/TextView.st	Fri Jul 22 18:09:11 2005 +0200
+++ b/TextView.st	Tue Jul 26 10:51:05 2005 +0200
@@ -1825,9 +1825,7 @@
     "save contents into a file 
      - ask user for filename using a fileSelectionBox."
 
-    saveAction notNil ifTrue:[
-        saveAction value
-    ]
+    saveAction value
 !
 
 saveAs:fileName
@@ -3836,7 +3834,7 @@
 !TextView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/TextView.st,v 1.249 2005-07-13 15:44:20 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/TextView.st,v 1.250 2005-07-26 08:50:34 cg Exp $'
 ! !
 
 TextView initialize!
hg/stx-libwidg