[squeak-dev] The Trunk: Morphic-mt.1179.mcz

Chris Cunningham cunningham.cb at gmail.com
Wed Jun 15 15:36:07 UTC 2016


Hmm.  Direct manipulation.
What if we had a spot in the halo menu to 'remove from DockingBar forever'
which then set the preference?  One time direct manipulation without having
to redo it later.
Of course, it would be added back in later via the preferences.
-cbc

On Wed, Jun 15, 2016 at 8:28 AM, Chris Muller <asqueaker at gmail.com> wrote:

> I was wondering whether Preferences are the best way to control these
> or whether the user could simply remove the ones they don't want by
> blue-clicking and then clicking the close halo (X)...
>
> I know when the DockingBar is regenerated they would have to re-remove
> them, but still...  we do have a live, direct-manuipulation system,
> sometimes we should be able to fall back on it..?
>
> On Wed, Jun 15, 2016 at 1:29 AM,  <commits at source.squeak.org> wrote:
> > Marcel Taeumel uploaded a new version of Morphic to project The Trunk:
> > http://source.squeak.org/trunk/Morphic-mt.1179.mcz
> >
> > ==================== Summary ====================
> >
> > Name: Morphic-mt.1179
> > Author: mt
> > Time: 15 June 2016, 8:28:59.901896 am
> > UUID: 798fffba-733f-3444-840e-84baabd04da4
> > Ancestors: Morphic-mt.1178
> >
> > Add the world's Do-menu to the world main docking bar. Can be hidden via
> preferences.
> >
> > =============== Diff against Morphic-mt.1178 ===============
> >
> > Item was added:
> > + ----- Method: TheWorldMainDockingBar
> class>>showDoMenuInWorldMainDockingBar (in category 'preferences') -----
> > + showDoMenuInWorldMainDockingBar
> > +
> > +       <preference: 'Show ''Do'' menu in world main docking bar'
> > +               category: 'docking bars'
> > +               description: 'Whether world''s main docking bar should
> show the ''Do'' menu.'
> > +               type: #Boolean>
> > +       ^ self getMenuPreference: #showDoMenuInWorldMainDockingBar
> ifAbsent: [true]
> > + !
> >
> > Item was added:
> > + ----- Method: TheWorldMainDockingBar
> class>>showDoMenuInWorldMainDockingBar: (in category 'preferences') -----
> > + showDoMenuInWorldMainDockingBar: aBoolean
> > +
> > +       self
> > +               setMenuPreference: #showDoMenuInWorldMainDockingBar
> > +               to: aBoolean.
> > + !
> >
> > Item was added:
> > + ----- Method: TheWorldMainDockingBar>>doMenuOn: (in category
> 'construction') -----
> > + doMenuOn: aDockingBar
> > +
> > +       aDockingBar addItem: [ :item |
> > +               item
> > +                       contents: 'Do' translated;
> > +                       subMenuUpdater: self
> > +                       selector: #listCommonRequestsOn: ]!
> >
> > Item was added:
> > + ----- Method: TheWorldMainDockingBar>>listCommonRequestsOn: (in
> category 'submenu - do') -----
> > + listCommonRequestsOn: aMenu
> > +
> > +       | strings |
> > +       strings := Utilities commonRequestStrings contents.
> > +
> > +       strings asString linesDo: [:aString |
> > +               aString = '-'
> > +                       ifTrue: [aMenu addLine]
> > +                       ifFalse: [aMenu add: (aString ifEmpty: [' '])
> target: Utilities selector: #eval: argument: aString]].
> > +
> > +       aMenu addLine.
> > +       aMenu add: 'edit this list' translated target: Utilities action:
> #editCommonRequestStrings.!
> >
> > Item was changed:
> >   ----- Method: TheWorldMainDockingBar>>menusOn: (in category
> 'construction') -----
> >   menusOn: aDockingBar
> >
> >         self class showMainMenuInWorldMainDockingBar ifTrue: [
> >                 self squeakMenuOn: aDockingBar].
> >
> >         self class showProjectsMenuInWorldMainDockingBar ifTrue: [
> >                 self projectsMenuOn: aDockingBar].
> >
> >         self class showToolsMenuInWorldMainDockingBar ifTrue: [
> >                 self toolsMenuOn: aDockingBar].
> >
> >         self class showAppsMenuInWorldMainDockingBar ifTrue: [
> >                 self appsMenuOn: aDockingBar].
> >
> > +       self class showDoMenuInWorldMainDockingBar ifTrue: [
> > +               self doMenuOn: aDockingBar].
> > +
> >         self class showExtrasMenuInWorldMainDockingBar ifTrue: [
> >                 self extrasMenuOn: aDockingBar].
> >
> >         self class showWindowsMenuInWorldMainDockingBar ifTrue: [
> >                 self windowsMenuOn: aDockingBar].
> >
> >         self class showHelpMenuInWorldMainDockingBar ifTrue: [
> >                 self helpMenuOn: aDockingBar].!
> >
> > Item was changed:
> >   (PackageInfo named: 'Morphic') postscript: '"Fixes the event handling
> that occurs in the same control flow after loading this code."
> >   HandMorph allInstancesDo: [:ea | ea initForEvents].
> >
> >   "Deploy mouse-wheel event handling to existing scrollpanes and hands."
> >   Project allMorphicProjects do: [:morphicProject |
> >         morphicProject world handsDo: [:hand |
> >                 hand addKeyboardCaptureFilter: hand]].
> >   ScrollPane allSubInstancesDo: [:ea |
> > +       ea addKeyboardCaptureFilter: ea].
> > +
> > + "Add Do-menu."
> > + TheWorldMainDockingBar updateInstances.'!
> > -       ea addKeyboardCaptureFilter: ea].'!
> >
> >
>
>
-------------- next part --------------
An HTML attachment was scrubbed...
URL: http://lists.squeakfoundation.org/pipermail/squeak-dev/attachments/20160615/06deffb0/attachment.htm


More information about the Squeak-dev mailing list