Chris Muller uploaded a new version of Tools to project The Trunk:
http://source.squeak.org/trunk/Tools-cmm.231.mcz
==================== Summary ====================
Name: Tools-cmm.231
Author: cmm
Time: 22 April 2010, 12:23:43.234 pm
UUID: bbca9c17-2eab-4dfa-888c-031a276042c3
Ancestors: Tools-ar.230
- Removed generation of meaningless comments when generating inst-var accessors.
=============== Diff against Tools-ar.230 ===============
Item was changed:
----- Method: Browser>>createInstVarAccessors (in category 'class functions') -----
createInstVarAccessors
"Create getters and setters for all inst vars defined at the level of the current class selection, except do NOT clobber or override any selectors already understood by the instances of the selected class"
| aClass |
(aClass := self selectedClassOrMetaClass) ifNotNil:
[aClass instVarNames do:
[:aName |
| newMessage setter |
(aClass canUnderstand: aName asSymbol)
ifFalse:
[newMessage := aName, '
- "Answer the value of ', aName, '"
-
^ ', aName.
aClass compile: newMessage classified: 'accessing' notifying: nil].
(aClass canUnderstand: (setter := aName, ':') asSymbol)
ifFalse:
[newMessage := setter, ' anObject
- "Set the value of ', aName, '"
-
', aName, ' := anObject'.
aClass compile: newMessage classified: 'accessing' notifying: nil]]]!
Chris Muller uploaded a new version of Tools to project The Trunk:
http://source.squeak.org/trunk/Tools-cmm.231.mcz
==================== Summary ====================
Name: Tools-cmm.231
Author: cmm
Time: 22 April 2010, 12:23:43.234 pm
UUID: bbca9c17-2eab-4dfa-888c-031a276042c3
Ancestors: Tools-ar.230
- Removed generation of meaningless comments when generating inst-var accessors.
=============== Diff against Tools-ar.230 ===============
Item was changed:
----- Method: Browser>>createInstVarAccessors (in category 'class functions') -----
createInstVarAccessors
"Create getters and setters for all inst vars defined at the level of the current class selection, except do NOT clobber or override any selectors already understood by the instances of the selected class"
| aClass |
(aClass := self selectedClassOrMetaClass) ifNotNil:
[aClass instVarNames do:
[:aName |
| newMessage setter |
(aClass canUnderstand: aName asSymbol)
ifFalse:
[newMessage := aName, '
- "Answer the value of ', aName, '"
-
^ ', aName.
aClass compile: newMessage classified: 'accessing' notifying: nil].
(aClass canUnderstand: (setter := aName, ':') asSymbol)
ifFalse:
[newMessage := setter, ' anObject
- "Set the value of ', aName, '"
-
', aName, ' := anObject'.
aClass compile: newMessage classified: 'accessing' notifying: nil]]]!
Chris Muller uploaded a new version of Tools to project The Trunk:
http://source.squeak.org/trunk/Tools-cmm.231.mcz
==================== Summary ====================
Name: Tools-cmm.231
Author: cmm
Time: 22 April 2010, 12:23:43.234 pm
UUID: bbca9c17-2eab-4dfa-888c-031a276042c3
Ancestors: Tools-ar.230
- Removed generation of meaningless comments when generating inst-var accessors.
=============== Diff against Tools-ar.230 ===============
Item was changed:
----- Method: Browser>>createInstVarAccessors (in category 'class functions') -----
createInstVarAccessors
"Create getters and setters for all inst vars defined at the level of the current class selection, except do NOT clobber or override any selectors already understood by the instances of the selected class"
| aClass |
(aClass := self selectedClassOrMetaClass) ifNotNil:
[aClass instVarNames do:
[:aName |
| newMessage setter |
(aClass canUnderstand: aName asSymbol)
ifFalse:
[newMessage := aName, '
- "Answer the value of ', aName, '"
-
^ ', aName.
aClass compile: newMessage classified: 'accessing' notifying: nil].
(aClass canUnderstand: (setter := aName, ':') asSymbol)
ifFalse:
[newMessage := setter, ' anObject
- "Set the value of ', aName, '"
-
', aName, ' := anObject'.
aClass compile: newMessage classified: 'accessing' notifying: nil]]]!
Andreas Raab uploaded a new version of ToolBuilder-Morphic to project The Trunk:
http://source.squeak.org/trunk/ToolBuilder-Morphic-ar.57.mcz
==================== Summary ====================
Name: ToolBuilder-Morphic-ar.57
Author: ar
Time: 21 April 2010, 9:38:46.991 pm
UUID: 816ab07d-c643-c14f-ace6-f8d22b086a4f
Ancestors: ToolBuilder-Morphic-ar.56
Fix syntax highlighting in UIManager's use of edit:label:accept:. It should allow syntax highlighting but turn it off by default, yet it didn't allow it but had it turned on. This fixes it, allowing workspaces created that way to be styled, if and only if, enabled by the user.
=============== Diff against ToolBuilder-Morphic-ar.56 ===============
Item was changed:
----- Method: MorphicUIManager>>edit:label:accept: (in category 'ui requests') -----
edit: aText label: labelString accept: anAction
"Open an editor on the given string/text"
| window holder text |
holder := Workspace new.
holder contents: aText.
+ holder shouldStyle: false.
text := PluggableTextMorphPlus
on: holder
text: #contents
accept: #acceptContents:
readSelection: nil
menu: nil.
+ text useDefaultStyler.
text acceptAction: anAction.
window := SystemWindow new.
labelString ifNotNil:[window setLabel: labelString].
window model: holder .
window addMorph: text frame: (0@0 extent: 1@1).
window openInWorld.
^window!
Andreas Raab uploaded a new version of ToolBuilder-Morphic to project The Trunk:
http://source.squeak.org/trunk/ToolBuilder-Morphic-ar.57.mcz
==================== Summary ====================
Name: ToolBuilder-Morphic-ar.57
Author: ar
Time: 21 April 2010, 9:38:46.991 pm
UUID: 816ab07d-c643-c14f-ace6-f8d22b086a4f
Ancestors: ToolBuilder-Morphic-ar.56
Fix syntax highlighting in UIManager's use of edit:label:accept:. It should allow syntax highlighting but turn it off by default, yet it didn't allow it but had it turned on. This fixes it, allowing workspaces created that way to be styled, if and only if, enabled by the user.
=============== Diff against ToolBuilder-Morphic-ar.56 ===============
Item was changed:
----- Method: MorphicUIManager>>edit:label:accept: (in category 'ui requests') -----
edit: aText label: labelString accept: anAction
"Open an editor on the given string/text"
| window holder text |
holder := Workspace new.
holder contents: aText.
+ holder shouldStyle: false.
text := PluggableTextMorphPlus
on: holder
text: #contents
accept: #acceptContents:
readSelection: nil
menu: nil.
+ text useDefaultStyler.
text acceptAction: anAction.
window := SystemWindow new.
labelString ifNotNil:[window setLabel: labelString].
window model: holder .
window addMorph: text frame: (0@0 extent: 1@1).
window openInWorld.
^window!
Andreas Raab uploaded a new version of ToolBuilder-Morphic to project The Trunk:
http://source.squeak.org/trunk/ToolBuilder-Morphic-ar.57.mcz
==================== Summary ====================
Name: ToolBuilder-Morphic-ar.57
Author: ar
Time: 21 April 2010, 9:38:46.991 pm
UUID: 816ab07d-c643-c14f-ace6-f8d22b086a4f
Ancestors: ToolBuilder-Morphic-ar.56
Fix syntax highlighting in UIManager's use of edit:label:accept:. It should allow syntax highlighting but turn it off by default, yet it didn't allow it but had it turned on. This fixes it, allowing workspaces created that way to be styled, if and only if, enabled by the user.
=============== Diff against ToolBuilder-Morphic-ar.56 ===============
Item was changed:
----- Method: MorphicUIManager>>edit:label:accept: (in category 'ui requests') -----
edit: aText label: labelString accept: anAction
"Open an editor on the given string/text"
| window holder text |
holder := Workspace new.
holder contents: aText.
+ holder shouldStyle: false.
text := PluggableTextMorphPlus
on: holder
text: #contents
accept: #acceptContents:
readSelection: nil
menu: nil.
+ text useDefaultStyler.
text acceptAction: anAction.
window := SystemWindow new.
labelString ifNotNil:[window setLabel: labelString].
window model: holder .
window addMorph: text frame: (0@0 extent: 1@1).
window openInWorld.
^window!
Andreas Raab uploaded a new version of Tools to project The Trunk:
http://source.squeak.org/trunk/Tools-ar.230.mcz
==================== Summary ====================
Name: Tools-ar.230
Author: ar
Time: 21 April 2010, 9:35:46.46 pm
UUID: 925f0f45-8fc9-5e45-96e2-44f9232744ab
Ancestors: Tools-ar.229
Add missing setter for syntax highlighting.
=============== Diff against Tools-ar.229 ===============
Item was added:
+ ----- Method: Workspace>>shouldStyle: (in category 'code pane menu') -----
+ shouldStyle: aBool
+ "If true, contents will by rendered w/ syntax-highlighting"
+
+ shouldStyle := aBool!