[Pkg] The Trunk: Morphic-dtl.334.mcz
commits at source.squeak.org
commits at source.squeak.org
Wed Feb 10 16:29:20 UTC 2010
David T. Lewis uploaded a new version of Morphic to project The Trunk:
http://source.squeak.org/trunk/Morphic-dtl.334.mcz
==================== Summary ====================
Name: Morphic-dtl.334
Author: dtl
Time: 10 February 2010, 11:25:47.795 am
UUID: f0b9854a-4b38-4e4d-b82e-c900b188567f
Ancestors: Morphic-dtl.333
Change TheWorldMenu to use Project current rather than an MVC ScreenController.
=============== Diff against Morphic-dtl.333 ===============
Item was changed:
----- Method: TheWorldMenu>>appearanceMenu (in category 'construction') -----
appearanceMenu
"Build the appearance menu for the world."
- | screenCtrl |
- screenCtrl := ScreenController new.
^self fillIn: (self menu: 'appearance...') from: {
{'preferences...' . { self . #openPreferencesBrowser} . 'Opens a "Preferences Browser" which allows you to alter many settings' } .
{'choose theme...' . { Preferences . #offerThemesMenu} . 'Presents you with a menu of themes; each item''s balloon-help will tell you about the theme. If you choose a theme, many different preferences that come along with that theme are set at the same time; you can subsequently change any settings by using a Preferences Panel'} .
nil .
{'system fonts...' . { self . #standardFontDo} . 'Choose the standard fonts to use for code, lists, menus, window titles, etc.'}.
{'text highlight color...' . { Preferences . #chooseTextHighlightColor} . 'Choose which color should be used for text highlighting in Morphic.'}.
{'insertion point color...' . { Preferences . #chooseInsertionPointColor} . 'Choose which color to use for the text insertion point in Morphic.'}.
{'keyboard focus color' . { Preferences . #chooseKeyboardFocusColor} . 'Choose which color to use for highlighting which pane has the keyboard focus'}.
nil.
{#menuColorString . { Preferences . #toggleMenuColorPolicy} . 'Governs whether menu colors should be derived from the desktop color.'}.
{#roundedCornersString . { Preferences . #toggleRoundedCorners} . 'Governs whether morphic windows and menus should have rounded corners.'}.
nil.
+ {'full screen on' . { Project current . #fullScreenOn} . 'puts you in full-screen mode, if not already there.'}.
+ {'full screen off' . { Project current . #fullScreenOff} . 'if in full-screen mode, takes you out of it.'}.
- {'full screen on' . { screenCtrl . #fullScreenOn} . 'puts you in full-screen mode, if not already there.'}.
- {'full screen off' . { screenCtrl . #fullScreenOff} . 'if in full-screen mode, takes you out of it.'}.
nil.
{'set display depth...' . {self. #setDisplayDepth} . 'choose how many bits per pixel.'}.
{'set desktop color...' . {self. #changeBackgroundColor} . 'choose a uniform color to use as desktop background.'}.
{'set gradient color...' . {self. #setGradientColor} . 'choose second color to use as gradient for desktop background.'}.
{'use texture background' . { #myWorld . #setStandardTexture} . 'apply a graph-paper-like texture background to the desktop.'}.
nil.
{'clear turtle trails from desktop' . { #myWorld . #clearTurtleTrails} . 'remove any pigment laid down on the desktop by objects moving with their pens down.'}.
{'pen-trail arrowhead size...' . { Preferences. #setArrowheads} . 'choose the shape to be used in arrowheads on pen trails.'}.
}!
More information about the Packages
mailing list