--- a/ClrListEntry.st Fri May 10 12:48:59 1996 +0200
+++ b/ClrListEntry.st Sun May 12 17:07:05 1996 +0200
@@ -38,13 +38,15 @@
Instances of ColoredListEntry can be used in place of strings
as entries of the list in a ListView or SelectionInListView.
- Notice: this is a temporary kludge class which will be made obsolete,
- once full-attributed strings are available.
+ Notice: this is a historic leftOver from times when the Text class
+ was not available. Please do no longer use it (use Text right away).
+ However: Text does not (currently) handle background color settings.
[author:]
Claus Gittinger
[see also:]
+ Text
ListView
ListEntry
String Color
@@ -98,7 +100,12 @@
!ColoredListEntry class methodsFor:'instance creation'!
string:aString color:aColor
- ^ self new string:aString color:aColor
+ self obsoleteMethodWarning:'use Text>>string:color:'.
+
+ ^ Text string:aString color:aColor
+"/ ^ self new string:aString color:aColor
+
+ "Modified: 12.5.1996 / 17:06:12 / cg"
!
string:aString foregroundColor:fgColor backgroundColor:bgColor
@@ -167,5 +174,5 @@
!ColoredListEntry class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libwidg2/Attic/ClrListEntry.st,v 1.11 1996-04-27 18:22:28 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libwidg2/Attic/ClrListEntry.st,v 1.12 1996-05-12 15:07:05 cg Exp $'
! !
--- a/ColoredListEntry.st Fri May 10 12:48:59 1996 +0200
+++ b/ColoredListEntry.st Sun May 12 17:07:05 1996 +0200
@@ -38,13 +38,15 @@
Instances of ColoredListEntry can be used in place of strings
as entries of the list in a ListView or SelectionInListView.
- Notice: this is a temporary kludge class which will be made obsolete,
- once full-attributed strings are available.
+ Notice: this is a historic leftOver from times when the Text class
+ was not available. Please do no longer use it (use Text right away).
+ However: Text does not (currently) handle background color settings.
[author:]
Claus Gittinger
[see also:]
+ Text
ListView
ListEntry
String Color
@@ -98,7 +100,12 @@
!ColoredListEntry class methodsFor:'instance creation'!
string:aString color:aColor
- ^ self new string:aString color:aColor
+ self obsoleteMethodWarning:'use Text>>string:color:'.
+
+ ^ Text string:aString color:aColor
+"/ ^ self new string:aString color:aColor
+
+ "Modified: 12.5.1996 / 17:06:12 / cg"
!
string:aString foregroundColor:fgColor backgroundColor:bgColor
@@ -167,5 +174,5 @@
!ColoredListEntry class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libwidg2/ColoredListEntry.st,v 1.11 1996-04-27 18:22:28 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libwidg2/ColoredListEntry.st,v 1.12 1996-05-12 15:07:05 cg Exp $'
! !