<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<style type="text/css" style="display:none;"><!-- P {margin-top:0;margin-bottom:0;} --></style>
</head>
<body dir="ltr">
<div id="divtagdefaultwrapper" style="font-size: 12pt; color: rgb(0, 0, 0); font-family: Calibri, Helvetica, sans-serif, EmojiFont, "Apple Color Emoji", "Segoe UI Emoji", NotoColorEmoji, "Segoe UI Symbol", "Android Emoji", EmojiSymbols;" dir="ltr">
<p></p>
<img size="40786" contenttype="image/png" id="img202396" style="max-width: 99.9%; user-select: none;" contextid="img378469" tabindex="0" src="cid:42eea2cd-ff16-4f0b-a042-cb3e580f99ba">
<div><br>
</div>
<div>Note this is still a quite simple implementation. Further improvements could include:</div>
<div>- #editValue(:) that is called while the slider is moved, but before it is dropped</div>
<div>- Click left/above the slider to reduce its value, or right/below the slider to increase it.</div>
<div>- #orientation(:) to override default orientation behavior (i. e., "longer dimension wins")?</div>
<div>- This is how a slider in widgets looks:</div>
<div> <img size="439" contenttype="image/png" id="img971273" style="max-width: 99.9%; user-select: none;" contextid="img479844" tabindex="0" src="cid:1286b517-85cc-4106-8d59-95ebab8f4305"><br>
</div>
<div> Pretty cool appearance, this would be a nice-to-have for Morphic as well.</div>
<div><br>
</div>
<div>I wonder whether we would want to subclass Slider again (PluggableSliderMorph) or rather change the base class implementation?</div>
<div><br>
</div>
<div>Best,</div>
<div>Christoph</div>
<br>
<div style="color: rgb(0, 0, 0);">
<div>
<hr tabindex="-1" style="display:inline-block; width:98%">
<div id="x_divRplyFwdMsg" dir="ltr"><font face="Calibri, sans-serif" color="#000000" style="font-size:11pt"><b>Von:</b> Squeak-dev <squeak-dev-bounces@lists.squeakfoundation.org> im Auftrag von commits@source.squeak.org <commits@source.squeak.org><br>
<b>Gesendet:</b> Montag, 10. Februar 2020 11:15 Uhr<br>
<b>An:</b> squeak-dev@lists.squeakfoundation.org<br>
<b>Betreff:</b> [squeak-dev] The Inbox: ToolBuilder-Morphic-ct.254.mcz</font>
<div> </div>
</div>
</div>
<font size="2"><span style="font-size:10pt;">
<div class="PlainText">Christoph Thiede uploaded a new version of ToolBuilder-Morphic to project The Inbox:<br>
<a href="http://source.squeak.org/inbox/ToolBuilder-Morphic-ct.254.mcz" id="LPlnk652818" previewremoved="true">http://source.squeak.org/inbox/ToolBuilder-Morphic-ct.254.mcz</a><br>
<br>
==================== Summary ====================<br>
<br>
Name: ToolBuilder-Morphic-ct.254<br>
Author: ct<br>
Time: 10 February 2020, 11:15:15.198089 am<br>
UUID: e95e688c-632c-7b40-b6ca-4e481bbe57fd<br>
Ancestors: ToolBuilder-Morphic-mt.251<br>
<br>
Adds support for PluggableSliderSpec. Complements ToolBuilder-Kernel-ct.139.<br>
<br>
=============== Diff against ToolBuilder-Morphic-mt.251 ===============<br>
<br>
Item was added:<br>
+ ----- Method: MorphicToolBuilder>>buildPluggableSlider: (in category 'widgets optional') -----<br>
+ buildPluggableSlider: spec<br>
+ <br>
+ | widget |<br>
+ widget := self sliderClass<br>
+ on: spec model<br>
+ getValue: spec getValue<br>
+ setValue: spec setValue<br>
+ min: spec minValue<br>
+ max: spec maxValue<br>
+ quantum: spec quantum.<br>
+ self register: widget id: spec name.<br>
+ <br>
+ spec color ifNotNil: [:color | widget color: color].<br>
+ spec thumbColor ifNotNil: [:color | widget sliderColor: color].<br>
+ self setFrame: spec frame in: widget.<br>
+ self setLayoutHintsFor: widget spec: spec.<br>
+ parent ifNotNil: [self add: widget to: parent].<br>
+ ^ widget!<br>
<br>
Item was added:<br>
+ ----- Method: MorphicToolBuilder>>sliderClass (in category 'widget classes') -----<br>
+ sliderClass<br>
+ <br>
+ ^ Slider!<br>
<br>
<br>
</div>
</span></font></div>
</div>
</body>
</html>