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.
checkin from browser
authorClaus Gittinger <cg@exept.de>
Tue, 29 Jun 1999 20:38:08 +0200
changeset 2219 82563237e8a8
parent 2218 e8b16573104f
child 2220 1ec72aa513c8
checkin from browser
BrowserView.st file | annotate | diff | comparison | revisions
BrwsrView.st file | annotate | diff | comparison | revisions 
--- a/BrowserView.st	Tue Jun 29 13:48:02 1999 +0200
+++ b/BrowserView.st	Tue Jun 29 20:38:08 1999 +0200
@@ -12539,46 +12539,47 @@
     |oldCodeList highlighter t|
 
     coloringProcess notNil ifTrue:[
-	coloringProcess terminate.
-	coloringProcess := nil.
+        coloringProcess terminate.
+        coloringProcess := nil.
     ].
 
     currentMethod isNil ifTrue:[^ self].
-    UserPreferences current syntaxColoring ifFalse:[^ self].
+    UserPreferences current syntaxColoring == true ifFalse:[^ self].
+
     highlighter := actualClass syntaxHighlighterClass.
     highlighter isNil ifTrue:[^ self].
 
     coloringProcess := [
-	|oldCode newCode cls|
-
-	codeView modified ifFalse:[
-	    oldCodeList := codeView list copy.
-	    codeView modified ifFalse:[
-		oldCodeList isNil ifFalse:[
-		    oldCode := oldCodeList asStringWithoutEmphasis.
-		    codeView modified ifFalse:[
-			"/ oldCode := oldCodeList asStringWithoutEmphasis.
-			cls := actualClass.
-
-			codeView modified ifFalse:[
-			    newCode := highlighter formatMethod:oldCode in:cls.
-			    "/ must add this event - and not been interrupted
-			    "/ by any arriving key-event.
-			    codeView modified ifFalse:[
-				newCode := newCode asStringCollection.
-				codeView modified ifFalse:[
-				    coloringProcess := nil.
-				    self sensor
-					pushUserEvent:#syntaxHighlightedCode: for:self
-					withArguments:(Array with:newCode).
-				]
-			    ]
-			].
-		    ].
-		].
-	    ].
-	].
-	coloringProcess := nil.
+        |oldCode newCode cls|
+
+        codeView modified ifFalse:[
+            oldCodeList := codeView list copy.
+            codeView modified ifFalse:[
+                oldCodeList isNil ifFalse:[
+                    oldCode := oldCodeList asStringWithoutEmphasis.
+                    codeView modified ifFalse:[
+                        "/ oldCode := oldCodeList asStringWithoutEmphasis.
+                        cls := actualClass.
+
+                        codeView modified ifFalse:[
+                            newCode := highlighter formatMethod:oldCode in:cls.
+                            "/ must add this event - and not been interrupted
+                            "/ by any arriving key-event.
+                            codeView modified ifFalse:[
+                                newCode := newCode asStringCollection.
+                                codeView modified ifFalse:[
+                                    coloringProcess := nil.
+                                    self sensor
+                                        pushUserEvent:#syntaxHighlightedCode: for:self
+                                        withArguments:(Array with:newCode).
+                                ]
+                            ]
+                        ].
+                    ].
+                ].
+            ].
+        ].
+        coloringProcess := nil.
     ] forkAt:(Processor activePriority - 1).
 
     codeView modified:false.
@@ -13551,6 +13552,6 @@
 !BrowserView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/BrowserView.st,v 1.510 1999-06-29 10:20:08 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/BrowserView.st,v 1.511 1999-06-29 18:38:08 cg Exp $'
 ! !
 BrowserView initialize!
--- a/BrwsrView.st	Tue Jun 29 13:48:02 1999 +0200
+++ b/BrwsrView.st	Tue Jun 29 20:38:08 1999 +0200
@@ -12539,46 +12539,47 @@
     |oldCodeList highlighter t|
 
     coloringProcess notNil ifTrue:[
-	coloringProcess terminate.
-	coloringProcess := nil.
+        coloringProcess terminate.
+        coloringProcess := nil.
     ].
 
     currentMethod isNil ifTrue:[^ self].
-    UserPreferences current syntaxColoring ifFalse:[^ self].
+    UserPreferences current syntaxColoring == true ifFalse:[^ self].
+
     highlighter := actualClass syntaxHighlighterClass.
     highlighter isNil ifTrue:[^ self].
 
     coloringProcess := [
-	|oldCode newCode cls|
-
-	codeView modified ifFalse:[
-	    oldCodeList := codeView list copy.
-	    codeView modified ifFalse:[
-		oldCodeList isNil ifFalse:[
-		    oldCode := oldCodeList asStringWithoutEmphasis.
-		    codeView modified ifFalse:[
-			"/ oldCode := oldCodeList asStringWithoutEmphasis.
-			cls := actualClass.
-
-			codeView modified ifFalse:[
-			    newCode := highlighter formatMethod:oldCode in:cls.
-			    "/ must add this event - and not been interrupted
-			    "/ by any arriving key-event.
-			    codeView modified ifFalse:[
-				newCode := newCode asStringCollection.
-				codeView modified ifFalse:[
-				    coloringProcess := nil.
-				    self sensor
-					pushUserEvent:#syntaxHighlightedCode: for:self
-					withArguments:(Array with:newCode).
-				]
-			    ]
-			].
-		    ].
-		].
-	    ].
-	].
-	coloringProcess := nil.
+        |oldCode newCode cls|
+
+        codeView modified ifFalse:[
+            oldCodeList := codeView list copy.
+            codeView modified ifFalse:[
+                oldCodeList isNil ifFalse:[
+                    oldCode := oldCodeList asStringWithoutEmphasis.
+                    codeView modified ifFalse:[
+                        "/ oldCode := oldCodeList asStringWithoutEmphasis.
+                        cls := actualClass.
+
+                        codeView modified ifFalse:[
+                            newCode := highlighter formatMethod:oldCode in:cls.
+                            "/ must add this event - and not been interrupted
+                            "/ by any arriving key-event.
+                            codeView modified ifFalse:[
+                                newCode := newCode asStringCollection.
+                                codeView modified ifFalse:[
+                                    coloringProcess := nil.
+                                    self sensor
+                                        pushUserEvent:#syntaxHighlightedCode: for:self
+                                        withArguments:(Array with:newCode).
+                                ]
+                            ]
+                        ].
+                    ].
+                ].
+            ].
+        ].
+        coloringProcess := nil.
     ] forkAt:(Processor activePriority - 1).
 
     codeView modified:false.
@@ -13551,6 +13552,6 @@
 !BrowserView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/Attic/BrwsrView.st,v 1.510 1999-06-29 10:20:08 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Attic/BrwsrView.st,v 1.511 1999-06-29 18:38:08 cg Exp $'
 ! !
 BrowserView initialize!
hg/stx-libtool