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.
replaced ColoredListEntry by Text
authorClaus Gittinger <cg@exept.de>
Sun, 12 May 1996 17:09:00 +0200
changeset 539 33b603dd30ba
parent 538 43effd124313
child 540 4c3c76a1af92
replaced ColoredListEntry by Text
FBrowser.st file | annotate | diff | comparison | revisions
FileBrowser.st file | annotate | diff | comparison | revisions 
--- a/FBrowser.st	Sun May 12 15:37:12 1996 +0200
+++ b/FBrowser.st	Sun May 12 17:09:00 1996 +0200
@@ -949,9 +949,13 @@
         key == #Return ifTrue:[
             cmd := commandView contents.
 
-            subView insertLine:(ColoredListEntry string:('>> ' , cmd) color:Color blue)
+            subView insertLine:(
+                                Text string:('>> ' , cmd)
+                                     emphasis:(Array with:#bold with:(#color->Color blue))
+"/                                ColoredListEntry string:('>> ' , cmd) color:Color blue
+                                )
                     before:(subView cursorLine).
-            subView cursorDown.
+            subView cursorDown:1.
 
 "/            subView insertStringAtCursor:cmd.
 "/            subView insertCharAtCursor:(Character cr).
@@ -971,7 +975,7 @@
     ].
 
     "Modified: 7.9.1995 / 15:48:45 / claus"
-    "Modified: 21.2.1996 / 01:39:48 / cg"
+    "Modified: 12.5.1996 / 16:55:06 / cg"
 !
 
 initializeFilterPattern
@@ -1554,15 +1558,16 @@
                                     replace ifTrue:[
                                         lines do:[:line |
                                             codeView at:lnr put:line withTabsExpanded.
-                                            codeView cursorToBottom; cursorDown.
+                                            codeView cursorToBottom; cursorDown:1.
                                             lnr := lnr + 1.
                                         ].
                                     ] ifFalse:[
 codeView insertLines:lines before:codeView cursorLine.
 codeView cursorDown:lines size.
+
 "/ lines do:[:line |
 "/     codeView insertLine:line withTabsExpanded before:codeView cursorLine.
-"/     codeView cursorDown.
+"/     codeView cursorDown:1.
 "/ ]
 "/                                        codeView insertStringAtCursor:line.
 "/                                        codeView insertCharAtCursor:(Character cr).
@@ -1627,7 +1632,7 @@
     ]
 
     "Modified: 21.9.1995 / 11:18:46 / claus"
-    "Modified: 9.2.1996 / 00:26:07 / cg"
+    "Modified: 12.5.1996 / 16:56:06 / cg"
 !
 
 doFileGet
@@ -2584,5 +2589,5 @@
 !FileBrowser class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/Attic/FBrowser.st,v 1.85 1996-04-30 23:27:50 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Attic/FBrowser.st,v 1.86 1996-05-12 15:09:00 cg Exp $'
 ! !
--- a/FileBrowser.st	Sun May 12 15:37:12 1996 +0200
+++ b/FileBrowser.st	Sun May 12 17:09:00 1996 +0200
@@ -949,9 +949,13 @@
         key == #Return ifTrue:[
             cmd := commandView contents.
 
-            subView insertLine:(ColoredListEntry string:('>> ' , cmd) color:Color blue)
+            subView insertLine:(
+                                Text string:('>> ' , cmd)
+                                     emphasis:(Array with:#bold with:(#color->Color blue))
+"/                                ColoredListEntry string:('>> ' , cmd) color:Color blue
+                                )
                     before:(subView cursorLine).
-            subView cursorDown.
+            subView cursorDown:1.
 
 "/            subView insertStringAtCursor:cmd.
 "/            subView insertCharAtCursor:(Character cr).
@@ -971,7 +975,7 @@
     ].
 
     "Modified: 7.9.1995 / 15:48:45 / claus"
-    "Modified: 21.2.1996 / 01:39:48 / cg"
+    "Modified: 12.5.1996 / 16:55:06 / cg"
 !
 
 initializeFilterPattern
@@ -1554,15 +1558,16 @@
                                     replace ifTrue:[
                                         lines do:[:line |
                                             codeView at:lnr put:line withTabsExpanded.
-                                            codeView cursorToBottom; cursorDown.
+                                            codeView cursorToBottom; cursorDown:1.
                                             lnr := lnr + 1.
                                         ].
                                     ] ifFalse:[
 codeView insertLines:lines before:codeView cursorLine.
 codeView cursorDown:lines size.
+
 "/ lines do:[:line |
 "/     codeView insertLine:line withTabsExpanded before:codeView cursorLine.
-"/     codeView cursorDown.
+"/     codeView cursorDown:1.
 "/ ]
 "/                                        codeView insertStringAtCursor:line.
 "/                                        codeView insertCharAtCursor:(Character cr).
@@ -1627,7 +1632,7 @@
     ]
 
     "Modified: 21.9.1995 / 11:18:46 / claus"
-    "Modified: 9.2.1996 / 00:26:07 / cg"
+    "Modified: 12.5.1996 / 16:56:06 / cg"
 !
 
 doFileGet
@@ -2584,5 +2589,5 @@
 !FileBrowser class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/FileBrowser.st,v 1.85 1996-04-30 23:27:50 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/FileBrowser.st,v 1.86 1996-05-12 15:09:00 cg Exp $'
 ! !
hg/stx-libtool