#REFACTORING
class: UIPainter
changed:
#askForSectionModification (send #allBold instead of #asBoldText)
#askForUnsavedModifications (send #allBold instead of #asBoldText)
#checkClassAndSelector (send #allBold instead of #asBoldText)
#withSpecClassAndSelectorDo: (send #allBold instead of #asBoldText)
use asBold instead of asBoldText
--- 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.
].
!