[squeak-dev] The Inbox: Tools-cmm.826.mcz

Chris Muller asqueaker at gmail.com
Sun Jul 1 23:54:37 UTC 2018


Hi Tobias,

All I did was restore the original shortcut keys that had been in
Squeak since its earliest days.  I suppose I'm curious why you didn't
pose this question to the one who killed underline and strikeout
formatting but, for whatever reason, you seem to only "object" to MY
improvements.  But whatever, instead of questioning my friendliness,
how about talking about what's good for Squeak and the IDE?

Hot keys are for functions that are used *frequently*.  In a web
browser, zoom-in and out makes sense when every web page uses
different font sizes.  That's not the case for Squeak.  Setting
themes, colors, preferences and fonts is all part of initial
_configuration_, something typically done only once in the lifespan of
an image.  Most wares mature enough to worry about font sizes have
since developed their own configuration script which sets everything.
Nevertheless, it's now on the World menu, which can be activated by
mouse OR keyboard.

This provides desktop keys for the font size but do you really think
this is useful?   I can't think of any case where I'd want to be
frequently flipping back and forth between global font sizes once
they're set up.  We should spare hot keys for future USEFUL things, so
I vote we do NOT move it to trunk.

Best,
  Chris


On Sun, Jul 1, 2018 at 6:21 PM, Tobias Pape <Das.Linux at gmx.de> wrote:
> Do I parse that correctly that you just killed font size handling via shortcuts and introduced a new one?
>
> While this could all be justified, wouldn't it be friendlier to first talk about that?
> Eg, via inbox or so?
>
> Best regards
>         -Tobias

On Sun, Jul 1, 2018 at 6:35 PM,  <commits at source.squeak.org> wrote:
> Chris Muller uploaded a new version of Tools to project The Inbox:
> http://source.squeak.org/inbox/Tools-cmm.826.mcz
>
> ==================== Summary ====================
>
> Name: Tools-cmm.826
> Author: cmm
> Time: 1 July 2018, 6:35:14.376257 pm
> UUID: e7b1e100-7da9-48e8-b544-7a5035c0693e
> Ancestors: Tools-cmm.825
>
> Command++ and Command+- hot keys for increasing/decreasing the sizes of all fonts.
>
> =============== Diff against Tools-cmm.825 ===============
>
> Item was changed:
>   ----- Method: PasteUpMorph>>defaultDesktopCommandKeyTriplets (in category '*Tools') -----
>   defaultDesktopCommandKeyTriplets
>         "Answer a list of triplets of the form
>                 <key> <receiver> <selector>   [+ optional fourth element, a <description> for use in desktop-command-key-help]
>   that will provide the default desktop command key handlers.  If the selector takes an argument, that argument will be the command-key event"
>
>         | noviceKeys expertKeys |
>
>         noviceKeys := {
>                 { $o.   ActiveWorld.                                            #activateObjectsTool.                                           'Activate the "Objects Tool"'}.
>                 { $r.   ActiveWorld.                                            #restoreMorphicDisplay.                                 'Redraw the screen'}.
>                 { $z.   self.                                                           #undoOrRedoCommand.                                     'Undo or redo the last undoable command'}.
>                 { $F.   Project current.                                        #toggleFlapsSuppressed.                                 'Toggle the display of flaps'}.
>                 { $N.   self.                                                           #toggleClassicNavigatorIfAppropriate.   'Show/Hide the classic Navigator, if appropriate'}.
>                 { $M.   self.                                                           #toggleShowWorldMainDockingBar.         'Show/Hide the Main Docking Bar'}.
>                 { $].   Smalltalk.                                                      #saveSession.                                                           'Save the image.'}.
>         }.
>
>         Preferences noviceMode
>                         ifTrue:[^ noviceKeys].
>
>         expertKeys := {
>                 { $b.   SystemBrowser.                                  #defaultOpenBrowser.                                            'Open a new System Browser'}.
>                 { $k.   StringHolder.                                   #open.                                                                          'Open a new, blank Workspace'}.
>                 { $m.   self.                                                           #putUpNewMorphMenu.                                     'Put up the "New Morph" menu'}.
>                 { $O.   self.                                                           #findAMonticelloBrowser.                                        'Bring a Monticello window into focus.'}.
>                 { $t.   self.                                                           #findATranscript:.                                                      'Make a System Transcript visible'}.
>                 { $w.   SystemWindow.                                   #closeTopWindow.                                                        'Close the topmost window'}.
>                 { Character escape.     SystemWindow.   #closeTopWindow.                                                        'Close the topmost window'}.
>
>                 { $C.   self.                                                           #findAChangeSorter:.                                            'Make a Change Sorter visible'}.
>
>                 { $L.   self.                                                           #findAFileList:.                                                                'Make a File List visible'}.
>                 { $P.   self.                                                           #findAPreferencesPanel:.                                        'Activate the Preferences tool'}.
>                 { $R.   Utilities.                                                              #browseRecentSubmissions.               'Make a Recent Submissions browser visible'}.
>
>                 { $W.   self.                                                           #findAMessageNamesWindow:.                      'Make a MessageNames tool visible'}.
>                 { $Z.   ChangeList.                                             #browseRecentLog.                                                       'Browse recently-logged changes'}.
>
>                 { $\.   SystemWindow.                                   #sendTopWindowToBack.                                   'Send the top window to the back'}.
>                 { $_.   Smalltalk.                                                      #quitPrimitive.                                                         'Quit the image immediately.'}.
> +
> +               { $-.   Preferences.                                    #decreaseFontSize.                                      'Increase all font sizes'}.
> +               { $+.   Preferences.                                    #increaseFontSize.                                      'Decrease all font sizes'}.
>         }.
>
>         ^ noviceKeys, expertKeys
>   !
>
>


More information about the Squeak-dev mailing list