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.
showCr: -> showCR:
authorClaus Gittinger <cg@exept.de>
Sat, 18 May 1996 16:13:36 +0200
changeset 653 fdab88d1205f
parent 652 bc99d03f7c19
child 654 d621e63baaa5
showCr: -> showCR:
TextColl.st file | annotate | diff | comparison | revisions
TextCollector.st file | annotate | diff | comparison | revisions 
--- a/TextColl.st	Sat May 18 14:06:05 1996 +0200
+++ b/TextColl.st	Sat May 18 16:13:36 1996 +0200
@@ -153,10 +153,10 @@
     |nLines lines|
 
     shown ifFalse:[
-	flushPending ifFalse:[
-	    self installDelayedUpdate.
-	].
-	^ self
+        flushPending ifFalse:[
+            self installDelayedUpdate.
+        ].
+        ^ self
     ].
     inFlush ifTrue:[^ self].
 
@@ -164,37 +164,39 @@
     flushPending ifFalse:[^ self].
 
     access critical:[
-	inFlush := true.
-	flushPending := false.
-	outstandingLines size ~~ 0 ifTrue:[
-	    "insert the bunch of lines - if any"
-	    lines := outstandingLines.
-	    outstandingLines := OrderedCollection new.
+        inFlush := true.
+        flushPending := false.
+        outstandingLines size ~~ 0 ifTrue:[
+            "insert the bunch of lines - if any"
+            lines := outstandingLines.
+            outstandingLines := OrderedCollection new.
 
-	    nLines := lines size.
-	    (nLines ~~ 0) ifTrue:[
-		self insertLines:lines withCr:true.
-		self cursorToEnd.
-		self withCursorOffDo:[
-		    (cursorLine >= (firstLineShown + nFullLinesShown)) ifTrue:[
-			self scrollDown:nLines
-		    ]
-		].
-	    ].
-	].
-	"and the last partial line - if any"
-	outstandingLine notNil ifTrue:[
-	    self insertStringAtCursor:outstandingLine.
-	    outstandingLine := ''.
-	].
-	self checkLineLimit.
-	inFlush := false.
-	device flush.
+            nLines := lines size.
+            (nLines ~~ 0) ifTrue:[
+                self insertLines:lines withCR:true.
+                self cursorToEnd.
+                self withCursorOffDo:[
+                    (cursorLine >= (firstLineShown + nFullLinesShown)) ifTrue:[
+                        self scrollDown:nLines
+                    ]
+                ].
+            ].
+        ].
+        "and the last partial line - if any"
+        outstandingLine notNil ifTrue:[
+            self insertStringAtCursor:outstandingLine.
+            outstandingLine := ''.
+        ].
+        self checkLineLimit.
+        inFlush := false.
+        device flush.
     ].
     flushPending ifTrue:[
-	flushPending := false.
-	self installDelayedUpdate
+        flushPending := false.
+        self installDelayedUpdate
     ]
+
+    "Modified: 18.5.1996 / 15:33:26 / cg"
 !
 
 lineLimit:aNumber
@@ -404,42 +406,36 @@
 
     aString := anObject printString.
     (aString includes:(Character cr)) ifTrue:[
-	lines := aString asStringCollection.
-	lines keysAndValuesDo:[:nr :line |
-	    nr == lines size ifTrue:[
-		"/ the last one.
-		self show:line
-	    ] ifFalse:[
-		self showCr:line
-	    ].
-	].
-	^ self.
+        lines := aString asStringCollection.
+        lines keysAndValuesDo:[:nr :line |
+            nr == lines size ifTrue:[
+                "/ the last one.
+                self show:line
+            ] ifFalse:[
+                self showCR:line
+            ].
+        ].
+        ^ self.
     ].
 
     collecting ifTrue:[
-	access critical:[
-	    outstandingLine notNil ifTrue:[
-		outstandingLine := outstandingLine , aString
-	    ] ifFalse:[
-		outstandingLine := aString
-	    ].
-	].
-	flushPending ifFalse:[
-	    self installDelayedUpdate
-	]
+        access critical:[
+            outstandingLine notNil ifTrue:[
+                outstandingLine := outstandingLine , aString
+            ] ifFalse:[
+                outstandingLine := aString
+            ].
+        ].
+        flushPending ifFalse:[
+            self installDelayedUpdate
+        ]
     ] ifFalse:[
-	access critical:[
-	    self nextPut:aString.
-	].
+        access critical:[
+            self nextPut:aString.
+        ].
     ]
-!
 
-showCr:aString
-    "insert the argument aString followed by a newline
-     at current cursor position"
-
-    self show:aString.
-    self cr
+    "Modified: 18.5.1996 / 15:45:00 / cg"
 ! !
 
 !TextCollector methodsFor:'transcript specials'!
@@ -469,5 +465,5 @@
 !TextCollector class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/Attic/TextColl.st,v 1.28 1996-04-25 17:33:16 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/Attic/TextColl.st,v 1.29 1996-05-18 14:13:36 cg Exp $'
 ! !
--- a/TextCollector.st	Sat May 18 14:06:05 1996 +0200
+++ b/TextCollector.st	Sat May 18 16:13:36 1996 +0200
@@ -153,10 +153,10 @@
     |nLines lines|
 
     shown ifFalse:[
-	flushPending ifFalse:[
-	    self installDelayedUpdate.
-	].
-	^ self
+        flushPending ifFalse:[
+            self installDelayedUpdate.
+        ].
+        ^ self
     ].
     inFlush ifTrue:[^ self].
 
@@ -164,37 +164,39 @@
     flushPending ifFalse:[^ self].
 
     access critical:[
-	inFlush := true.
-	flushPending := false.
-	outstandingLines size ~~ 0 ifTrue:[
-	    "insert the bunch of lines - if any"
-	    lines := outstandingLines.
-	    outstandingLines := OrderedCollection new.
+        inFlush := true.
+        flushPending := false.
+        outstandingLines size ~~ 0 ifTrue:[
+            "insert the bunch of lines - if any"
+            lines := outstandingLines.
+            outstandingLines := OrderedCollection new.
 
-	    nLines := lines size.
-	    (nLines ~~ 0) ifTrue:[
-		self insertLines:lines withCr:true.
-		self cursorToEnd.
-		self withCursorOffDo:[
-		    (cursorLine >= (firstLineShown + nFullLinesShown)) ifTrue:[
-			self scrollDown:nLines
-		    ]
-		].
-	    ].
-	].
-	"and the last partial line - if any"
-	outstandingLine notNil ifTrue:[
-	    self insertStringAtCursor:outstandingLine.
-	    outstandingLine := ''.
-	].
-	self checkLineLimit.
-	inFlush := false.
-	device flush.
+            nLines := lines size.
+            (nLines ~~ 0) ifTrue:[
+                self insertLines:lines withCR:true.
+                self cursorToEnd.
+                self withCursorOffDo:[
+                    (cursorLine >= (firstLineShown + nFullLinesShown)) ifTrue:[
+                        self scrollDown:nLines
+                    ]
+                ].
+            ].
+        ].
+        "and the last partial line - if any"
+        outstandingLine notNil ifTrue:[
+            self insertStringAtCursor:outstandingLine.
+            outstandingLine := ''.
+        ].
+        self checkLineLimit.
+        inFlush := false.
+        device flush.
     ].
     flushPending ifTrue:[
-	flushPending := false.
-	self installDelayedUpdate
+        flushPending := false.
+        self installDelayedUpdate
     ]
+
+    "Modified: 18.5.1996 / 15:33:26 / cg"
 !
 
 lineLimit:aNumber
@@ -404,42 +406,36 @@
 
     aString := anObject printString.
     (aString includes:(Character cr)) ifTrue:[
-	lines := aString asStringCollection.
-	lines keysAndValuesDo:[:nr :line |
-	    nr == lines size ifTrue:[
-		"/ the last one.
-		self show:line
-	    ] ifFalse:[
-		self showCr:line
-	    ].
-	].
-	^ self.
+        lines := aString asStringCollection.
+        lines keysAndValuesDo:[:nr :line |
+            nr == lines size ifTrue:[
+                "/ the last one.
+                self show:line
+            ] ifFalse:[
+                self showCR:line
+            ].
+        ].
+        ^ self.
     ].
 
     collecting ifTrue:[
-	access critical:[
-	    outstandingLine notNil ifTrue:[
-		outstandingLine := outstandingLine , aString
-	    ] ifFalse:[
-		outstandingLine := aString
-	    ].
-	].
-	flushPending ifFalse:[
-	    self installDelayedUpdate
-	]
+        access critical:[
+            outstandingLine notNil ifTrue:[
+                outstandingLine := outstandingLine , aString
+            ] ifFalse:[
+                outstandingLine := aString
+            ].
+        ].
+        flushPending ifFalse:[
+            self installDelayedUpdate
+        ]
     ] ifFalse:[
-	access critical:[
-	    self nextPut:aString.
-	].
+        access critical:[
+            self nextPut:aString.
+        ].
     ]
-!
 
-showCr:aString
-    "insert the argument aString followed by a newline
-     at current cursor position"
-
-    self show:aString.
-    self cr
+    "Modified: 18.5.1996 / 15:45:00 / cg"
 ! !
 
 !TextCollector methodsFor:'transcript specials'!
@@ -469,5 +465,5 @@
 !TextCollector class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/TextCollector.st,v 1.28 1996-04-25 17:33:16 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/TextCollector.st,v 1.29 1996-05-18 14:13:36 cg Exp $'
 ! !
hg/stx-libwidg