Marcel Taeumel uploaded a new version of Tools to project The Trunk:
http://source.squeak.org/trunk/Tools-kfr.1161.mcz
==================== Summary ====================
Name: Tools-kfr.1161
Author: kfr
Time: 4 June 2022, 8:13:54.520458 pm
UUID: 8880e2ae-b1d5-ad46-8d3b-27d99549220a
Ancestors: Tools-ct.1160
Open a HelpBrowser with TextLink.
Example:
TerseGuideHelp Help
Select text, press Alt+5 (CMD on Mac) and select 'Link to help on class'
(A link of this format: 'My Link<TerseGuideHelp Help>' will hide the part between < & > )
Dependent on Collections-kfr.1011
=============== Diff against Tools-ct.1160 ===============
Item was changed:
----- Method: Model>>addItem: (in category '*Tools') -----
addItem: classAndMethod
"Open a browser directly on the given class and method
Model new addItem: 'Model addItem:'
Model new addItem: 'Model>>addItem:'
"
self flag: #mref. "classAndMethod is a String"
MessageSet
parse: classAndMethod
toClassAndSelector: [ :class :sel |
class ifNil: [^self].
sel = #Comment ifTrue: [^ Browser fullOnClassComment: class].
sel = #Definition ifTrue: [^ Browser newOnClass: class].
sel = #Hierarchy ifTrue: [^ HierarchyBrowser fullOnClass: class].
+ sel = #Help ifTrue: [^HelpBrowser openOn: class].
Browser newOnClass: class selector: sel
]
!
Marcel Taeumel uploaded a new version of Tools to project The Trunk:
http://source.squeak.org/trunk/Tools-mt.1166.mcz
==================== Summary ====================
Name: Tools-mt.1166
Author: mt
Time: 22 June 2022, 3:14:20.916264 pm
UUID: 44b8ab83-2847-7b42-86ae-a774a407c7f2
Ancestors: Tools-mt.1165, Tools-kfr.1161, Tools-ct.1147
Merges Tools-kfr.1161, Tools-ct.1147.
Tools-kfr.1161:
Open a HelpBrowser with TextLink. [...]
Tools-ct.1147:
Updates workspace styles after toggling #shouldStyle preference. This also improves the liveness in the preference wizard.
=============== Diff against Tools-mt.1165 ===============
Item was changed:
----- Method: Model>>addItem: (in category '*Tools') -----
addItem: classAndMethod
"Open a browser directly on the given class and method
Model new addItem: 'Model addItem:'
Model new addItem: 'Model>>addItem:'
"
self flag: #mref. "classAndMethod is a String"
MessageSet
parse: classAndMethod
toClassAndSelector: [ :class :sel |
class ifNil: [^self].
sel = #Comment ifTrue: [^ Browser fullOnClassComment: class].
sel = #Definition ifTrue: [^ Browser newOnClass: class].
sel = #Hierarchy ifTrue: [^ HierarchyBrowser fullOnClass: class].
+ sel = #Help ifTrue: [^HelpBrowser openOn: class].
Browser newOnClass: class selector: sel
]
!
Item was changed:
----- Method: Workspace class>>shouldStyle: (in category 'preferences') -----
shouldStyle: aBoolean
+ ShouldStyle := aBoolean.
+
+ self allSubInstancesDo: [:workspace | workspace changed: #style].!
- ShouldStyle := aBoolean!
Marcel Taeumel uploaded a new version of Morphic to project The Treated Inbox:
http://source.squeak.org/treated/Morphic-kfr.1998.mcz
==================== Summary ====================
Name: Morphic-kfr.1998
Author: kfr
Time: 21 May 2022, 10:24:48.108027 am
UUID: 803c8911-08bd-6a46-8efe-ace95d981e27
Ancestors: Morphic-kfr.1997
When ColorPicker is triggered from halo, remove the halo. Otherwise it will sometimes obscure the ColorPicker.
=============== Diff against Morphic-ct.1996 ===============
Item was changed:
----- Method: ColorPickerMorph>>modalBalloonHelpAtPoint: (in category 'private') -----
modalBalloonHelpAtPoint: cursorPoint
self flag: #arNote. "Throw this away. There needs to be another way."
self submorphsDo:
[:m |
m wantsBalloon
ifTrue:
[(m valueOfProperty: #balloon) isNil
ifTrue:
+ [(m containsPoint: cursorPoint) ifTrue: [m showBalloon: m balloonText.
+ m setProperty: #balloon toValue: true]]
+ ifFalse: [(m containsPoint: cursorPoint) ifFalse: [self deleteBalloon.
+ m setProperty: #balloon toValue:nil]]]]!
- [(m containsPoint: cursorPoint) ifTrue: [m showBalloon: m balloonText]]
- ifFalse: [(m containsPoint: cursorPoint) ifFalse: [m deleteBalloon]]]]!
Item was changed:
----- Method: Morph>>changeColor (in category 'menus') -----
changeColor
"Change the color of the receiver -- triggered, e.g. from a menu"
NewColorPickerMorph useIt
ifTrue: [ (NewColorPickerMorph on: self) openNear: self fullBoundsInWorld ]
ifFalse:
+ [ self removeHalo."Halo can obscure the color picker"
+ ColorPickerMorph new
- [ ColorPickerMorph new
choseModalityFromPreference ;
sourceHand: self activeHand ;
target: self ;
selector: #fillStyle: ;
originalColor: self color ;
putUpFor: self
near: self fullBoundsInWorld ]!