equal
deleted
inserted
replaced
1164 |
1164 |
1165 "Modified: / 30-05-2017 / 09:37:26 / cg" |
1165 "Modified: / 30-05-2017 / 09:37:26 / cg" |
1166 ! |
1166 ! |
1167 |
1167 |
1168 italic |
1168 italic |
1169 currentEmphasis := Text addEmphasis:#italic to:currentEmphasis |
1169 currentEmphasis := Text addEmphasis:(Text italicEmphasis) to:currentEmphasis |
|
1170 |
|
1171 "Modified: / 20-06-2017 / 08:35:20 / cg" |
1170 ! |
1172 ! |
1171 |
1173 |
1172 normal |
1174 normal |
1173 currentEmphasis := nil |
1175 currentEmphasis := nil |
1174 ! |
1176 ! |
1182 |
1184 |
1183 notItalic |
1185 notItalic |
1184 "switch to non-italic - followup text sent via show/nextPutAll: will be inserted in |
1186 "switch to non-italic - followup text sent via show/nextPutAll: will be inserted in |
1185 a non-italic font." |
1187 a non-italic font." |
1186 |
1188 |
1187 currentEmphasis := Text removeEmphasis:#italic from:currentEmphasis |
1189 currentEmphasis := Text removeEmphasis:(Text italicEmphasis) from:currentEmphasis |
|
1190 |
|
1191 "Modified: / 20-06-2017 / 08:35:26 / cg" |
1188 ! |
1192 ! |
1189 |
1193 |
1190 notReverse |
1194 notReverse |
1191 currentEmphasis := Text removeEmphasis:#color from:currentEmphasis. |
1195 currentEmphasis := Text removeEmphasis:#color from:currentEmphasis. |
1192 currentEmphasis := Text removeEmphasis:#backgroundColor from:currentEmphasis. |
1196 currentEmphasis := Text removeEmphasis:#backgroundColor from:currentEmphasis. |