Mercurial Mercurial > hg > stx-libtool / 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.
*** empty log message ***
authorClaus Gittinger <cg@exept.de>
Tue, 01 Feb 2000 19:18:12 +0100
changeset 2569 8d5bff054544
parent 2568 24854141205c
child 2570 2f15ecfd80de
*** empty log message ***
AbstractLauncherApplication.st file | annotate | diff | comparison | revisions 
--- a/AbstractLauncherApplication.st	Tue Feb 01 13:18:41 2000 +0100
+++ b/AbstractLauncherApplication.st	Tue Feb 01 19:18:12 2000 +0100
@@ -4923,15 +4923,18 @@
     syntaxEmphasises 
         onChangeSend:#value 
         to:[ |em|
-            em := syntaxEmphasises selection asSymbol.
-            em == #'red underline' ifTrue:[ em := Array with:#underline with:(#underlineColor->Color red)].
-            em == #'red underwave' ifTrue:[ em := Array with:#underwave with:(#underlineColor->Color red)].
-            em == #'bold+red underline' ifTrue:[ em := Array with:#bold with:#underline with:(#underlineColor->Color red)].
-            em == #'bold+red underwave' ifTrue:[ em := Array with:#bold with:#underwave with:(#underlineColor->Color red)].
-            em == #'italic+red underline' ifTrue:[ em := Array with:#italic with:#underline with:(#underlineColor->Color red)].
-            em == #'italic+red underwave' ifTrue:[ em := Array with:#italic with:#underwave with:(#underlineColor->Color red)].
-
-            currentUserPrefs at: syntaxEmphasisSelector value put:em.
+            em := syntaxEmphasises selection.
+            em notNil ifTrue:[
+                em := em asSymbol.
+                em == #'red underline' ifTrue:[ em := Array with:#underline with:(#underlineColor->Color red)].
+                em == #'red underwave' ifTrue:[ em := Array with:#underwave with:(#underlineColor->Color red)].
+                em == #'bold+red underline' ifTrue:[ em := Array with:#bold with:#underline with:(#underlineColor->Color red)].
+                em == #'bold+red underwave' ifTrue:[ em := Array with:#bold with:#underwave with:(#underlineColor->Color red)].
+                em == #'italic+red underline' ifTrue:[ em := Array with:#italic with:#underline with:(#underlineColor->Color red)].
+                em == #'italic+red underwave' ifTrue:[ em := Array with:#italic with:#underwave with:(#underlineColor->Color red)].
+
+                currentUserPrefs at: syntaxEmphasisSelector value put:em.
+            ].
             recolorAction value
         ].
     syntaxColors changed:#value. "/ to force initial update of emphasis
@@ -5006,5 +5009,5 @@
 !AbstractLauncherApplication class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/AbstractLauncherApplication.st,v 1.96 2000-01-21 17:16:57 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/AbstractLauncherApplication.st,v 1.97 2000-02-01 18:18:12 cg Exp $'
 ! !
hg/stx-libtool