[Cuis-dev] Tweaks to GUI elements size windows

[Mariano Montone]

Also, I've just realized that the simplest way to achieve the effect I 
want (being able to visualize the selected sizes), can be implemented by 
simply preventing the menu from closing, using #stayUp: true.

changeFontSizes

	(MenuMorph new defaultTarget: Preferences)
		addTitle: 'Make GUI elements';
		addStayUpIcons;
		add: 'Huge' action: #hugeFonts;
		add: 'Very Large' action: #veryLargeFonts;
		add: 'Large' action: #largeFonts;
		add: 'Regular Size' action: #standardFonts;
		add: 'Small' action: #smallFonts;
		add: 'Very Small'action: #verySmallFonts;
		add: 'Tiny'action: #tinyFonts;
		stayUp: true;
		popUpInWorld: self runningWorld

Ok. Those are my ideas :)

Cheers,

Mariano

El 24/2/22 a las 08:49, Mariano Montone escribió:
> Update: This is a more refined version that selects the appropriate menu 
> item when the user changes sizes with the buttons.
> 
> https://drive.google.com/file/d/1enY-lBozObrOe2HRDubNCvHTdfFuk1f9/view?usp=sharing 
> 
> 
> ---------------------------------
> 
> options _ #(tinyFonts verySmallFonts smallFonts standardFonts largeFonts 
> veryLargeFonts hugeFonts).
> currentSize _ #standardFonts.
> 
> wm _ (MenuMorph new defaultTarget: Preferences)
>          addTitle: 'Make GUI elements';
>          addStayUpIcons;
>          add: 'Huge' action: #hugeFonts;
>          add: 'Very Large' action: #veryLargeFonts;
>          add: 'Large' action: #largeFonts;
>          add: 'Regular Size' action: #standardFonts;
>          add: 'Small' action: #smallFonts;
>          add: 'Very Small'action: #verySmallFonts;
>          add: 'Tiny'action: #tinyFonts;
>          yourself.
> 
> incSize _ [|item idx    |
>      idx _ (((options indexOf: currentSize) + 1) min: options size).
>      currentSize _ options at: idx.
>      item _ wm items at: options size - idx + 1.
>      wm selectItem: item.
>      Preferences perform: currentSize].
> 
> decSize _ [|item idx|
>      idx _ (((options indexOf: currentSize) - 1) max: 1).
>      currentSize _ options at: idx.
>      item _ wm items at: options size - idx + 1.
>      wm selectItem: item.
>      Preferences perform: currentSize].
> 
> m _ LayoutMorph newRow
>          color: wm color;
>          borderWidth: 0;
>          axisEdgeWeight: #center;
>          separation: (20 at 0);
>          morphHeight: 20;
>          yourself.
> 
> m addMorph:
>      ((PluggableButtonMorph model: decSize action: #value)
>          icon: Theme current collapseIcon;
>          setBalloonText: 'Decrease sizes';
>          yourself)
>      layoutSpec: LayoutSpec keepMorphExtent.
> 
> El 24/2/22 a las 01:49, Mariano Montone escribió:
>> Hello,
>>
>> Ok. Let me try one more time.
>>
>> Demo: 
>> https://drive.google.com/file/d/1Py22nSJs7ja16-RzjtNWyj39K4l5uMWM/view?usp=sharing 
>>
>>
>> No problem at all if you don't want this included in Cuis, I can put 
>> in some "goodies" package in one of my repos ...
>>
>> I attach code at the end (that's not the important part, should be 
>> improved..)
>>
>> Cheers,
>>
>> Mariano
>>
>> -----------------------------
>>
>> options _ #(tinyFonts verySmallFonts smallFonts standardFonts 
>> largeFonts veryLargeFonts hugeFonts veryHugeFonts).
>> currentSize _ #standardFonts.
>>
>> wm _ (MenuMorph new defaultTarget: Preferences)
>>          addTitle: 'Make GUI elements';
>>          addStayUpIcons;
>>          add: 'Huge' action: #hugeFonts;
>>          add: 'Very Large' action: #veryLargeFonts;
>>          add: 'Large' action: #largeFonts;
>>          add: 'Regular Size' action: #standardFonts;
>>          add: 'Small' action: #smallFonts;
>>          add: 'Very Small'action: #verySmallFonts;
>>          add: 'Tiny'action: #tinyFonts;
>>          yourself.
>>
>> incSize _ [currentSize _ options at: (((options indexOf: currentSize) 
>> + 1) min: options size).
>>                  Preferences perform: currentSize].
>>
>> decSize _ [currentSize _ options at: (((options indexOf: currentSize) 
>> - 1) max: 1).
>>                  Preferences perform: currentSize].
>>
>> m _ LayoutMorph newRow
>>          color: wm color;
>>          borderWidth: 0;
>>          axisEdgeWeight: #center;
>>          separation: (20 at 0);
>>          morphHeight: 20;
>>          yourself.
>>
>> m addMorph:
>>      ((PluggableButtonMorph model: decSize action: #value)
>>          icon: Theme current collapseIcon;
>>          instVarNamed: #magnifiedIcon put: Theme current collapseIcon;
>>          yourself)
>>      layoutSpec: LayoutSpec keepMorphExtent.
>>
>> m addMorph:
>>      ((PluggableButtonMorph model: incSize action: #value)
>>          icon: Theme current expandIcon;
>>          instVarNamed: #magnifiedIcon put: Theme current expandIcon;
>>          yourself)
>>      layoutSpec: LayoutSpec keepMorphExtent.
>>
>> wm addMorphBack: m.
>>
>> wm popUpInWorld.
>>
>> El 22/2/22 a las 17:32, Juan Vuletich escribió:
>>> Nice idea. Still, I'd prefer to use this gesture for scaling the Word 
>>> (or any other morph) with Vector Graphics.
>>>
>>> Cheers,
>>>
>>> On 2/22/2022 11:44 AM, Mariano Montone via Cuis-dev wrote:
>>>> This version uses mouse scroll to set GUI sizes:
>>>>
>>>> options _ #(tinyFonts verySmallFonts smallFonts standardFonts 
>>>> largeFonts hugeFonts).
>>>> currentSize _ #standardFonts.
>>>>
>>>> UISupervisor whenUIinSafeState: [ |morph|
>>>>     morph _ (MVCMenuMorph from: (PopUpMenu labels: 'Done') title: 
>>>> 'Use mouse scroll to set GUI size').
>>>>     morph setProperty: #'handlesMouseScroll:' toValue: true.
>>>>     morph setProperty:  #mouseScroll:localPosition: toValue: [:ev 
>>>> :lpos |
>>>>      currentSize _ options at: (ev direction == #up ifTrue:
>>>>         [((options indexOf: currentSize) + 1) min: options size]
>>>>         ifFalse: [((options indexOf: currentSize) - 1) max: 1]).
>>>>     Transcript show: currentSize.
>>>>     Preferences perform: currentSize].
>>>>     morph
>>>>         invokeAt: self runningWorld activeHand morphPosition
>>>>         allowKeyboard: true]
>>>>
>>>> I think I like it, as an alternative option for setting sizes at least.
>>>>
>>>> Thoughts?
>>>>
>>>> Cheers,
>>>>
>>>> Mariano
>>>>
>>>> El 22/2/22 a las 10:57, Mariano Montone escribió:
>>>>> El 22/2/22 a las 09:37, Juan Vuletich via Cuis-dev escribió:
>>>>>> Hi Folks,
>>>>>>
>>>>>> I just pushed a change to tweak a bit the behavior of the "Size of 
>>>>>> GUI elements" menu. I felt that the difference between sizes was 
>>>>>> too large, so I made "tiny" larger, "huge" smaller, and adjusted 
>>>>>> the rest. I hope you find it pleasant and not annoying. In any 
>>>>>> case, now you can call #defaultFontSize: with any number, 
>>>>>> especially if using TrueType.
>>>>>
>>>>> It is fine for me.
>>>>>
>>>>> I think it could be cool to provide some widget for selecting the 
>>>>> size instead of a menu.
>>>>>
>>>>> Like a refined version of this:
>>>>>
>>>>> options _ #(tinyFonts verySmallFonts smallFonts standardFonts 
>>>>> largeFonts hugeFonts).
>>>>> sb := ScrollBar new.
>>>>> sb morphExtent: 100@(sb buttonExtent).
>>>>> sb scrollDelta: 1/(options size) pageDelta: 1/(options size).
>>>>> sb model: [:val | |sizeSelector|
>>>>>      Transcript show: val.
>>>>>      Transcript show: (val * options size - 1) rounded.
>>>>>
>>>>>      sizeSelector _ options at: (val * (options size - 1)) rounded 
>>>>> + 1 .
>>>>>      Transcript show: sizeSelector.
>>>>>      Preferences perform: sizeSelector] setValueSelector: #value:.
>>>>> sb    openInWorld
>>>>>
>>>>> I'll see if I can come up with something better, or better idea...
>>>>>
>>>>> Cheers,
>>>>>
>>>>> Mariano
>>>>
>>>
>>>
>>
>