diff -r 48b1dfb0b16f -r b5188e3ab24f UIPainter.st
--- a/UIPainter.st	Wed Jan 27 17:01:30 2016 +0100
+++ b/UIPainter.st	Thu Feb 11 14:47:28 2016 +0100
@@ -1,5 +1,3 @@
-"{ Encoding: utf8 }"
-
 "
  COPYRIGHT (c) 1995-1998 by eXept Software AG
               All Rights Reserved
@@ -3850,12 +3848,12 @@
         spec majorKey isNil ifTrue:[
             ^ self warn:'Cannot find class (no majorKey specified).'.
         ].
-        ^ self warn:('Cannot find class ', spec majorKey asBoldText, '.').
+        ^ self warn:('Cannot find class ', spec majorKey allBold, '.').
     ].
     sel := spec minorKey.
     meta := cls class whichClassIncludesSelector:sel.
     meta isNil ifTrue:[
-        ^ self warn:'Cannot find selector #', (sel ? '') asBoldText, ' in class ', cls name asBoldText, '!!'
+        ^ self warn:'Cannot find selector #', (sel ? '') allBold, ' in class ', cls name allBold, '!!'
     ].
 
     aTwoArgBlock value:meta value:spec minorKey.
@@ -4300,7 +4298,7 @@
     "asks for section modification in the notebook"
 
     self isModified ifTrue:[
-        (self confirm:'Accept modifications in section ' , tabSelection printString asBoldText, '?') ifTrue:[
+        (self confirm:'Accept modifications in section ' , tabSelection printString allBold, '?') ifTrue:[
             self accept
         ] ifFalse: [
             self cancel
@@ -4325,7 +4323,7 @@
             ^ false.
         ].
 
-        (self confirm:'Create class ' , specClassName asBoldText, '?') ifTrue:[
+        (self confirm:'Create class ' , specClassName allBold, '?') ifTrue:[
             cls := superclass 
                         subclass:(specClassName asSymbol)
                         instanceVariableNames:''
@@ -4653,7 +4651,7 @@
     self isModified ifFalse:[^ true].
 
     whatToDo := DialogBox 
-                    confirmWithCancel:'Accept modifications in section ' , tabSelection printString asBoldText, ' ?'
+                    confirmWithCancel:'Accept modifications in section ' , tabSelection printString allBold, ' ?'
                     labels:#('Cancel' 'Ignore' 'Accept')
                     default:3.
     whatToDo isNil ifTrue:[^ false].
@@ -6526,7 +6524,7 @@
     props view:aCanvas.
 
     model root:(TreeItem 
-                    name:(nameOfSpec ? painter defaultNameOfCanvas) asBoldText 
+                    name:(nameOfSpec ? painter defaultNameOfCanvas) allBold 
                     contents:props).
 
     model root expand.
@@ -6710,7 +6708,7 @@
         "/ care to not destroy the transparent input view
         (aView isInputOnly) ifFalse:[aView destroy]
     ].
-    model root name: painter defaultNameOfCanvas asBoldText.
+    model root name: painter defaultNameOfCanvas allBold.
     model removeAllOtherThanRoot.
 !
 
@@ -6857,7 +6855,7 @@
      and:[(self propertyDetect:[:p| p name = name]) isNil
      and:[node name ~= name]]]
     ) ifTrue:[
-        node name: name asBoldText.
+        node name: name allBold.
         node changed.   
     ].
 !