[squeak-dev] The Trunk: Morphic-mt.1179.mcz
David T. Lewis
lewis at mail.msen.com
Thu Jun 16 00:05:33 UTC 2016
Wouldn't the new Do-menu fit naturally under the exising Extras category?
This is a collection of useful menu entries that do not fit under Tools or
Apps. If we add the new Do menu as a sub-menu under Extras, then it would be
easy to find, and no preference would be needed.
Dave
On Wed, Jun 15, 2016 at 08:36:07AM -0700, Chris Cunningham wrote:
> 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].'!
> > >
> > >
> >
> >
>
More information about the Squeak-dev
mailing list
|