Mercurial Mercurial > hg > stx-libbasic2 / 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.
+boldUnderwave +italicUnderwave
authorClaus Gittinger <cg@exept.de>
Tue, 06 Jul 1999 23:53:41 +0200
changeset 760 55659309577a
parent 759 3527d6b2fb6d
child 761 d77e2c17f2a1
+boldUnderwave +italicUnderwave
Text.st file | annotate | diff | comparison | revisions 
--- a/Text.st	Tue Jul 06 23:49:35 1999 +0200
+++ b/Text.st	Tue Jul 06 23:53:41 1999 +0200
@@ -674,8 +674,10 @@
             ifFalse:[emphasis == #strikeout ifTrue:[strikeout := true]
             ifFalse:[emphasis == #reverse ifTrue:[reverse := true]
             ifFalse:[emphasis == #boldUnderline ifTrue:[bold := underline := true]
+            ifFalse:[emphasis == #boldUnderwave ifTrue:[bold := underwave := true]
             ifFalse:[emphasis == #italicUnderline ifTrue:[italic := underline := true]
-            ]]]]]]]
+            ifFalse:[emphasis == #italicUnderwave ifTrue:[italic := underwave := true]
+            ]]]]]]]]]
         ] ifFalse:[
             (emphasis isMemberOf:Association) ifTrue:[
                 value := emphasis value.
@@ -705,7 +707,9 @@
                         ifFalse:[entry == #strikeout ifTrue:[strikeout := true]
                         ifFalse:[entry == #reverse ifTrue:[reverse := true]
                         ifFalse:[entry == #boldUnderline ifTrue:[bold := underline := true]
+                        ifFalse:[emphasis == #boldUnderwave ifTrue:[bold := underwave := true]
                         ifFalse:[entry == #italicUnderline ifTrue:[italic := underline := true]
+                        ifFalse:[emphasis == #italicUnderwave ifTrue:[italic := underwave := true]
                         ifFalse:[
                             (entry isMemberOf:Association) ifTrue:[
                                 value := entry value.
@@ -724,7 +728,7 @@
                                     entry value:ulPaint.
                                 ]]]]
                             ]
-                        ]]]]]]]]
+                        ]]]]]]]]]]
                     ]
                 ]
             ]
@@ -790,7 +794,7 @@
     aGC paint:savedPaint on:savedBgPaint.
 
     "Created: / 12.5.1996 / 11:14:30 / cg"
-    "Modified: / 6.7.1999 / 23:49:15 / cg"
+    "Modified: / 6.7.1999 / 23:54:54 / cg"
 ! !
 
 !Text methodsFor:'emphasis'!
@@ -1263,6 +1267,6 @@
 !Text class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic2/Text.st,v 1.54 1999-07-06 21:49:35 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic2/Text.st,v 1.55 1999-07-06 21:53:41 cg Exp $'
 ! !
 Text initialize!
hg/stx-libbasic2