Squeak-dev June 2011

squeak-dev@lists.squeakfoundation.org

77 participants
236 discussions

The Trunk: KernelTests-bf.195.mcz
by commits＠source.squeak.org 23 Jun '11

23 Jun '11

Bert Freudenberg uploaded a new version of KernelTests to project The Trunk: http://source.squeak.org/trunk/KernelTests-bf.195.mcz ==================== Summary ==================== Name: KernelTests-bf.195 Author: bf Time: 23 June 2011, 3:37:50.083 pm UUID: dea36a88-1300-4169-a2b1-3b6c8468a4a7 Ancestors: KernelTests-nice.194 test user-defined ZeroDivide behavior =============== Diff against KernelTests-nice.194 =============== Item was added: + ----- Method: NumberTest>>testZeroDivideHandler (in category 'tests') ----- + testZeroDivideHandler + "Test for user-defined ZeroDivide behavior" + + [ + self assert: 1 / 0 = Float infinity. + self assert: -1 / 0 = Float infinity negated. + self assert: 1.0 / 0 = Float infinity. + self assert: -1.0 / 0 = Float infinity negated. + self assert: 1 / 0.0 = Float infinity. + self assert: -1 / 0.0 = Float infinity negated. + self assert: 1.0 / 0.0 = Float infinity. + self assert: -1.0 / 0.0 = Float infinity negated. + ] on: ZeroDivide + do: [:ex | ex resume: ex dividend sign * Float infinity ] + !

1 0

new Cog linux VM available
by Eliot Miranda 23 Jun '11

23 Jun '11

Hi All, a new Cog linux VM is available at http://www.mirandabanda.org/files/Cog/VM/VM.r2437/ which fixes a lack of correct stack alignment in Alien callouts. -- best, Eliot

2 1

Re: [squeak-dev] The Inbox: ButtonForIt-yo.1.mcz
by Bert Freudenberg 23 Jun '11

23 Jun '11

On 23.06.2011, at 08:43, commits(a)source.squeak.org wrote: > A new version of ButtonForIt was added to project The Inbox: > http://source.squeak.org/inbox/ButtonForIt-yo.1.mcz > > ==================== Summary ==================== > > Name: ButtonForIt-yo.1 > Author: yo > Time: 23 June 2011, 1:43:27.834 am > UUID: 2a0e0bf3-0a14-4230-a214-6eab6e569b26 > Ancestors: > > Adapt Scott Wallace's 'button for it' feature to trunk. That's a nice addition. But please submit properly patched packages, not a new one overriding the system packages. - Bert - > ==================== Snapshot ==================== > > ----- Method: StringHolder class>>yellowButtonMenuItems (in category '*buttonForIt-overrides') ----- > yellowButtonMenuItems > "Returns the standard yellow button menu items" > ^{ > {'set font... (k)' translated. #offerFontMenu}. > {'set style... (K)' translated. #changeStyle}. > {'set alignment... (u)' translated. #chooseAlignment}. > #-. > {'make project link (P)' translated. #makeProjectLink}. > #-. > {'find...(f)' translated. #find}. > {'find again (g)' translated. #findAgain}. > {'set search string (h)' translated. #setSearchString}. > #-. > {'do again (j)' translated. #again}. > {'undo (z)' translated. #undo}. > #-. > {'copy (c)' translated. #copySelection}. > {'cut (x)' translated. #cut}. > {'paste (v)' translated. #paste}. > {'paste...' translated. #pasteRecent}. > #-. > {'do it (d)' translated. #doIt}. > {'print it (p)' translated. #printIt}. > {'inspect it (i)' translated. #inspectIt}. > {'explore it (I)' translated. #exploreIt}. > {'debug it' translated. #debugIt}. > {'button for it' translated. #buttonForIt}. > {'tally it' translated. #tallyIt}. > #-. > {'accept (s)' translated. #accept}. > {'cancel (l)' translated. #cancel}. > #-. > {'show bytecodes' translated. #showBytecodes}. > #-. > {'copy html' translated. #copyHtml}. > #-. > {'more...' translated. #shiftedTextPaneMenuRequest}. > }! > > ----- Method: PluggableTextMorph>>buttonForIt (in category '*buttonForIt') ----- > buttonForIt > self handleEdit: [textMorph editor buttonForIt]! > > ----- Method: SmalltalkEditor>>buttonForIt (in category '*buttonForIt') ----- > buttonForIt > > ^ self doItButtonFromSelection openInHand! > > ----- Method: SmalltalkEditor>>doItButtonFromSelection (in category '*buttonForIt') ----- > doItButtonFromSelection > > | button string | > self lineSelectAndEmptyCheck: [^ '']. > button := SimpleButtonMorph new. > string := self selection. > (model respondsTo: #doItReceiver) > ifTrue: [ > button setProperty: #rcvr toValue: model doItReceiver. > button setProperty: #ctxt toValue: model doItContext]. > > button target: [:b | > [(b valueOfProperty: #rcvr) class evaluatorClass new > evaluate: string > in: (b valueOfProperty: #ctxt) > to: (b valueOfProperty: #rcvr) > notifying: nil > ifFail: [^ b valueOfProperty: #rcvr] > logged: false] > > on: OutOfScopeNotification > do: [ :ex | ex resume: true]]; > actionSelector: #value:; > arguments: {button}. > button label: string. > ^ button. > ! > >

1 0

The Inbox: ButtonForIt-yo.1.mcz
by commits＠source.squeak.org 23 Jun '11

23 Jun '11

A new version of ButtonForIt was added to project The Inbox: http://source.squeak.org/inbox/ButtonForIt-yo.1.mcz ==================== Summary ==================== Name: ButtonForIt-yo.1 Author: yo Time: 23 June 2011, 1:43:27.834 am UUID: 2a0e0bf3-0a14-4230-a214-6eab6e569b26 Ancestors: Adapt Scott Wallace's 'button for it' feature to trunk. ==================== Snapshot ==================== ----- Method: StringHolder class>>yellowButtonMenuItems (in category '*buttonForIt-overrides') ----- yellowButtonMenuItems "Returns the standard yellow button menu items" ^{ {'set font... (k)' translated. #offerFontMenu}. {'set style... (K)' translated. #changeStyle}. {'set alignment... (u)' translated. #chooseAlignment}. #-. {'make project link (P)' translated. #makeProjectLink}. #-. {'find...(f)' translated. #find}. {'find again (g)' translated. #findAgain}. {'set search string (h)' translated. #setSearchString}. #-. {'do again (j)' translated. #again}. {'undo (z)' translated. #undo}. #-. {'copy (c)' translated. #copySelection}. {'cut (x)' translated. #cut}. {'paste (v)' translated. #paste}. {'paste...' translated. #pasteRecent}. #-. {'do it (d)' translated. #doIt}. {'print it (p)' translated. #printIt}. {'inspect it (i)' translated. #inspectIt}. {'explore it (I)' translated. #exploreIt}. {'debug it' translated. #debugIt}. {'button for it' translated. #buttonForIt}. {'tally it' translated. #tallyIt}. #-. {'accept (s)' translated. #accept}. {'cancel (l)' translated. #cancel}. #-. {'show bytecodes' translated. #showBytecodes}. #-. {'copy html' translated. #copyHtml}. #-. {'more...' translated. #shiftedTextPaneMenuRequest}. }! ----- Method: PluggableTextMorph>>buttonForIt (in category '*buttonForIt') ----- buttonForIt self handleEdit: [textMorph editor buttonForIt]! ----- Method: SmalltalkEditor>>buttonForIt (in category '*buttonForIt') ----- buttonForIt ^ self doItButtonFromSelection openInHand! ----- Method: SmalltalkEditor>>doItButtonFromSelection (in category '*buttonForIt') ----- doItButtonFromSelection | button string | self lineSelectAndEmptyCheck: [^ '']. button := SimpleButtonMorph new. string := self selection. (model respondsTo: #doItReceiver) ifTrue: [ button setProperty: #rcvr toValue: model doItReceiver. button setProperty: #ctxt toValue: model doItContext]. button target: [:b | [(b valueOfProperty: #rcvr) class evaluatorClass new evaluate: string in: (b valueOfProperty: #ctxt) to: (b valueOfProperty: #rcvr) notifying: nil ifFail: [^ b valueOfProperty: #rcvr] logged: false] on: OutOfScopeNotification do: [ :ex | ex resume: true]]; actionSelector: #value:; arguments: {button}. button label: string. ^ button. !

1 0

Daily Commit Log
by commits＠source.squeak.org 23 Jun '11

23 Jun '11

Changes to Trunk (http://source.squeak.org/trunk.html) in the last 24 hours: http://lists.squeakfoundation.org/pipermail/packages/2011-June/004826.html Name: Morphic-cmm.551 Ancestors: Morphic-cmm.550 - Reverted LineMorph class>>from:to:color:width: - PolygonMorph can cover all kinds of polygons, including lines.. - Full-screen toggle option has been moved out from the menu (from multiple places) and onto the bar directly, just to the right of the clock. For one-click access (instead of two). - Changed balloon-help nomenclature of +expand to remove "full-screen", since it is not truly full-screen, just expanded from its current state. ============================================= http://lists.squeakfoundation.org/pipermail/packages/2011-June/004827.html Name: System-cmm.444 Ancestors: System-cmm.443 Removed sound options that were in Preferences since they have been moved to SoundPlayer and SoundService. =============================================

1 0

[CI] Motivic Material
by Casey Ransberger 23 Jun '11

23 Jun '11

I usually like to talk a little about why I'm doing what I'm doing. This is that. Testing is the most responsible discipline that I've yet identified in the world of software... well, unless it's documentation, or peer review. This said, asking volunteers to run these tests manually is like asking a stranger to climb over a fence before making a commitment. It isn't economical, in my view. It's a testament to the passion and dedication of this community that we have the great gift of so many wonderful tests. I think it's a tragedy that these tests are not run more often. I put some effort into relicensing this system; not so much, though, as others. I feel a deep desire to protect it, and this is the best way that I know how. This is why I want to make myself available to drive continuous integration home. Or maybe not. Maybe this is just my way of saying, "Thank you." -- Casey Ransberger

1 0

[Ann] Cuis 3.3 released - You must see it!
by Juan Vuletich 22 Jun '11

22 Jun '11

Hi Folks, Cuis 3.3 is available at http://www.jvuletich.org/Cuis/Index.html . This release includes more cool new stuff than any other since Cuis 3.0. The look and feel has been greatly enhanced and there have been many important improvements under the hood too. Thanks Casey Ransberger for your wonderful contributions to this release! Please, download and take a look. And browse a bit the code too. If you ever felt that in some part of Squeak or Pharo, code quality or complexity could be better, compare with Cuis and share your comments. Remember that Cuis is MIT and you're welcome to integrate any code from it into Squeak or any derivative. Or better yet, Cuis could serve as a great base to build the next generation Squeak or Pharo on top. From the release notes: New in Cuis 3.3 ------------------- * New nice Icon set from Tango (Casey) - Most menu options have now a nice icon * ContentPack - A clean solution for a problem Squeak had for over a decade! (Casey) - Manages internal/external resources - Allows import / export to enable use of use existing stuff and external tools - Does not depend on external files for image update - Updates done with code (enabling change sets of Monticello packages) - Avoids cruft accumulation, code for resources is removed after update * Taskbar for better access to minimized windows (Casey) * Multiple selection on text morphs (Thanks Bernhard Pieber and Software Generation!) - Use ctrl + mouse for multiple selection - Do 'Preferences disable: #commandClickOpensHalo' to enable the standard Mac gesture for multi-selection (command + mouse) - Enhanced senders view: all occurrences of sent message are highlighted * Cosmetic tweaks in menus and Themes * NewTranscript fixes and enhancements (right click menu) * New hierarchy of Morphic Windows for tools, builds and handles UI and menus; handles keystrokes - View / Model separation is now complete - Models are now GUI agnostic: they have 25% less methods and no references to Morphs - Eases having alternate GUI frameworks such as Morphic 3, or adapted versions of MVC, Tweak or EToys * Object level events cleanup - Gone is Model and the DependentsFields classVar in Object - Only object event system mechanism is #when:send:to: * Deep Models cleanup * Big cleanup of copy and friends. - #deepCopy eliminated - #veryDeepCopy, DeepCopier, #veryDeepInner:, #veryDeepFixupWith: eliminated. - Use of ReferenceStream for copying object graphs such as Morphs - Clients don't need to know object internals to get a good copy - copying details in most classes greatly simplified * Editor tweaks and enhancements. Code simplification, removed several ivars * New image shrinking tools: #reduceCuis for building reduced images * Support for gigabyte changes and sources files - not activated by default, as it needs new Sources file, i.e. major version number change - Easy to activate if you need it * BlockClosure>>#isClean, BlockClosure serialization (for clean blocks), enabling use of ReferenceStream for copying objects * Many minor Morphic fixes * Morphic cleanup. Morph selectors size reduced by 17%, several ivars removed, code simplified. * Cleanup in Object and other basic classes. Object selectos size reduced by 10% * FileList refactor As usual, comments, discussion, bug reports, kudos and donations are all welcome! Cheers, Juan Vuletich

4 5

Re: [squeak-dev] The Trunk: Monticello-bf.474.mcz
by Chris Muller 22 Jun '11

22 Jun '11

Great enhancement Bert! We should not only not submit "noise" (methods which differ only by timestamp and/or author), but also care to keep the original accounting info as much as possible. That's why, when recategorizing a method, we should use the *drag-and-drop* rather than cut-and-paste, so that the original accounting information for the methods _implementation_, is preserved, which is much more meaningful than only the category. - Chris On Tue, Jun 21, 2011 at 6:51 AM, <commits(a)source.squeak.org> wrote: > Bert Freudenberg uploaded a new version of Monticello to project The Trunk: > http://source.squeak.org/trunk/Monticello-bf.474.mcz > > ==================== Summary ==================== > > Name: Monticello-bf.474 > Author: bf > Time: 21 June 2011, 1:51:43.377 pm > UUID: 174ed5e0-0903-4e69-8484-1fe3d0eb2527 > Ancestors: Monticello-ul.473 > > Add "revert unchanged methods..." item to Changes list, allowing to bulk-revert methods that only differ in timestamp > > =============== Diff against Monticello-ul.473 =============== > > Item was added: > + ----- Method: MCModification>>isUnchangedMethod (in category 'as yet unclassified') ----- > + isUnchangedMethod > + "true if this is a modification of a method where only the timestamp changed" > + ^ obsoletion isMethodDefinition > + and: [obsoletion source = modification source > + and: [obsoletion category = modification category] ]! > > Item was changed: > ----- Method: MCPatchBrowser>>methodListMenu: (in category 'menus') ----- > methodListMenu: aMenu > selection ifNotNil: > [aMenu addList:#( > ('install' installSelection) > ('revert' revertSelection) > -)]. > + self unchangedMethods ifNotEmpty: > + [aMenu addList:#( > + ('revert unchanged methods...' revertUnchangedMethods) > + -)]. > super methodListMenu: aMenu. > ^ aMenu > ! > > Item was added: > + ----- Method: MCPatchBrowser>>revertUnchangedMethods (in category 'actions') ----- > + revertUnchangedMethods > + "revert methods that only have changed timestamps" > + | loader unchangedMethods | > + unchangedMethods := items select: [:op | op isUnchangedMethod]. > + (self confirm: ('Revert {1} methods that only differ in timestamp?' translated format: {unchangedMethods size})) > + ifTrue: [ > + loader := MCPackageLoader new. > + unchangedMethods do: [:op | op inverse applyTo: loader]. > + loader loadWithName: self changeSetNameForInstall]. > + ! > > Item was added: > + ----- Method: MCPatchBrowser>>unchangedMethods (in category 'as yet unclassified') ----- > + unchangedMethods > + ^ items select: [:op | op isUnchangedMethod]! > > Item was added: > + ----- Method: MCPatchOperation>>isUnchangedMethod (in category 'as yet unclassified') ----- > + isUnchangedMethod > + "true if this is a modification of a method where only the timestamp changed" > + ^false! > > >

1 0

The Trunk: System-cmm.444.mcz
by commits＠source.squeak.org 22 Jun '11

22 Jun '11

Chris Muller uploaded a new version of System to project The Trunk: http://source.squeak.org/trunk/System-cmm.444.mcz ==================== Summary ==================== Name: System-cmm.444 Author: cmm Time: 21 June 2011, 8:23:11.442 pm UUID: 9a6e9e27-c71c-44fd-b8a9-f2c2c5e2eb0c Ancestors: System-cmm.443 Removed sound options that were in Preferences since they have been moved to SoundPlayer and SoundService. =============== Diff against System-cmm.443 =============== Item was removed: - ----- Method: Preferences class>>canRecordWhilePlaying (in category 'sound') ----- - canRecordWhilePlaying - self deprecated: 'Ask the sound recorder for this info'. - ^SoundRecorder canRecordWhilePlaying! Item was removed: - ----- Method: Preferences class>>soundQuickStart (in category 'sound') ----- - soundQuickStart - self deprecated: 'Ask the sound player for this info'. - ^SoundPlayer soundQuickStart! Item was removed: - ----- Method: Preferences class>>soundStopWhenDone (in category 'sound') ----- - soundStopWhenDone - self deprecated: 'Ask the sound player for this info'. - ^SoundPlayer stopSoundWhenDone! Item was removed: - ----- Method: Preferences class>>soundsEnabled (in category 'sound') ----- - soundsEnabled - self deprecated: 'Sound now uses now preference pragmas. - Setting available directly in SoundService'. - ^SoundService soundEnabled!

1 0

The Trunk: Morphic-cmm.551.mcz
by commits＠source.squeak.org 22 Jun '11

22 Jun '11

Chris Muller uploaded a new version of Morphic to project The Trunk: http://source.squeak.org/trunk/Morphic-cmm.551.mcz ==================== Summary ==================== Name: Morphic-cmm.551 Author: cmm Time: 21 June 2011, 8:20:55.16 pm UUID: b16faf40-0f35-435b-aa1b-ac5eadc6661b Ancestors: Morphic-cmm.550 - Reverted LineMorph class>>from:to:color:width: - PolygonMorph can cover all kinds of polygons, including lines.. - Full-screen toggle option has been moved out from the menu (from multiple places) and onto the bar directly, just to the right of the clock. For one-click access (instead of two). - Changed balloon-help nomenclature of +expand to remove "full-screen", since it is not truly full-screen, just expanded from its current state. =============== Diff against Morphic-cmm.550 =============== Item was changed: ----- Method: LineMorph class>>from:to:color:width: (in category 'instance creation') ----- from: startPoint to: endPoint color: lineColor width: lineWidth + ^ PolygonMorph vertices: {startPoint. endPoint} - ^ self vertices: {startPoint. endPoint} color: Color black borderWidth: lineWidth borderColor: lineColor! Item was changed: ----- Method: SystemWindow>>collapseOrExpand (in category 'resize/collapse') ----- collapseOrExpand "Collapse or expand the window, depending on existing state" | cf | isCollapsed ifTrue: ["Expand -- restore panes to morphics structure" isCollapsed := false. self activate. "Bring to frint first" Preferences collapseWindowsInPlace ifTrue: [fullFrame := fullFrame align: fullFrame topLeft with: self getBoundsWithFlex topLeft] ifFalse: [collapsedFrame := self getBoundsWithFlex]. + collapseBox ifNotNil: [collapseBox setBalloonText: 'collapse this window' translated]. - collapseBox ifNotNil: [collapseBox setBalloonText: 'collapse this window']. self setBoundsWithFlex: fullFrame. paneMorphs reverseDo: [:m | self addMorph: m unlock. self world startSteppingSubmorphsOf: m]. self addPaneSplitters] ifFalse: ["Collapse -- remove panes from morphics structure" isCollapsed := true. fullFrame := self getBoundsWithFlex. "First save latest fullFrame" paneMorphs do: [:m | m delete; releaseCachedState]. self removePaneSplitters. self removeCornerGrips. model modelSleep. cf := self getCollapsedFrame. (collapsedFrame isNil and: [Preferences collapseWindowsInPlace not]) ifTrue: [collapsedFrame := cf]. self setBoundsWithFlex: cf. + collapseBox ifNotNil: [collapseBox setBalloonText: 'expand this window' translated ]. + expandBox ifNotNil: [expandBox setBalloonText: 'expand this window' translated ]. - collapseBox ifNotNil: [collapseBox setBalloonText: 'expand this window']. - expandBox ifNotNil: [expandBox setBalloonText: 'expand to full screen']. self sendToBack]. self layoutChanged! Item was changed: ----- Method: SystemWindow>>contractToOriginalSize (in category 'resize/collapse') ----- contractToOriginalSize self bounds: self unexpandedFrame. self unexpandedFrame: nil. + expandBox ifNotNil: [expandBox setBalloonText: 'expand this window' translated].! - expandBox ifNotNil: [expandBox setBalloonText: 'expand to full screen' translated].! Item was changed: ----- Method: SystemWindow>>createExpandBox (in category 'initialization') ----- createExpandBox ^ (self createBox: self class expandBoxImage) actionSelector: #expandBoxHit; + setBalloonText: 'expand this window' translated! - setBalloonText: 'expand to full screen' translated! Item was changed: ----- Method: TheWorldMainDockingBar>>extrasMenuOn: (in category 'submenu - extras') ----- extrasMenuOn: aDockingBar aDockingBar addItem: [ :it| it contents: 'Extras' translated; addSubMenu: [:menu| menu addItem:[:item| item contents: 'Recover Changes' translated; help: 'Recover changes after a crash' translated; icon: MenuIcons smallHelpIcon; target: ChangeList; selector: #browseRecentLog]. menu addLine. menu addItem:[:item| item contents: 'Window Colors' translated; help: 'Changes the window color scheme' translated; addSubMenu:[:submenu| self windowColorsOn: submenu]]. menu addItem:[:item| item contents: 'Set Author Initials' translated; help: 'Sets the author initials' translated; target: Utilities; selector: #setAuthorInitials]. menu addItem:[:item| item contents: 'Restore Display (r)' translated; help: 'Redraws the entire display' translated; target: World; selector: #restoreMorphicDisplay]. menu addItem:[:item| item contents: 'Rebuild Menus' translated; help: 'Rebuilds the menu bar' translated; target: TheWorldMainDockingBar; selector: #updateInstances]. - menu addItem:[:item| - item - contents: 'Toggle Fullscreen' translated; - help: 'Switches fullscreen mode on and off' translated; - target: Project current; - selector: #toggleFullScreen]. menu addLine. menu addItem:[:item| item contents: 'Start Profiler' translated; help: 'Starts the profiler' translated; target: self; selector: #startMessageTally]. menu addItem:[:item| item contents: 'Collect Garbage' translated; help: 'Run the garbage collector and report space usage' translated; target: Utilities; selector: #garbageCollectAndReport]. menu addItem:[:item| item contents: 'Purge Undo Records' translated; help: 'Save space by removing all the undo information remembered in all projects' translated; target: CommandHistory; selector: #resetAllHistory]. menu addItem:[:item| item contents: 'VM statistics' translated; help: 'Virtual Machine information' translated; target: self; selector: #vmStatistics]. menu addLine. menu addItem:[:item| item contents: 'Graphical Imports' translated; help: 'View the global repository called ImageImports; you can easily import external graphics into ImageImports via the FileList' translated; target: (Imports default); selector: #viewImages]. menu addItem:[:item| item contents: 'Standard Graphics Library' translated; help: 'Lets you view and change the system''s standard library of graphics' translated; target: ScriptingSystem; selector: #inspectFormDictionary]. menu addItem:[:item| item contents: 'Annotation Setup' translated; help: 'Click here to get a little window that will allow you to specify which types of annotations, in which order, you wish to see in the annotation panes of browsers and other tools' translated; target: Preferences; selector: #editAnnotations]. menu addItem:[:item| item contents: 'Browse My Changes' translated; help: 'Browse all of my changes since the last time #condenseSources was run.' translated; target: SystemNavigation new; selector: #browseMyChanges]. ] ]! Item was changed: ----- Method: TheWorldMainDockingBar>>projectsMenuOn: (in category 'construction') ----- projectsMenuOn: aDockingBar aDockingBar addItem: [ :item | item contents: 'Projects' translated; addSubMenu: [ :menu | self newProjectMenuItemOn: menu; saveProjectMenuItemOn: menu; loadProjectMenuItemOn: menu; previousProjectMenuItemOn: menu; + jumpToProjectMenuItemOn: menu ] ] - jumpToProjectMenuItemOn: menu; - toggleFullScreenMenuItemOn: menu ] ] ! Item was removed: - ----- Method: TheWorldMainDockingBar>>toggleFullScreenMenuItemOn: (in category 'submenu - projects') ----- - toggleFullScreenMenuItemOn: menu - - menu addItem: [ :item | - item - contents: 'Toggle Full Screen' translated; - help: 'Switch back and forth from full screen mode' translated; - icon: MenuIcons smallFullscreenOnIcon; - target: Project current; - selector: #toggleFullScreen ]! Item was changed: ----- Method: TheWorldMainDockingBar>>toggleFullScreenOn: (in category 'right side') ----- + toggleFullScreenOn: aDockingBar + | toggleMorph | + toggleMorph := (SketchMorph withForm: MenuIcons smallFullscreenOffIcon) setBalloonText: 'toggle full screen mode' translated; + + on: #mouseDown + send: #value + to: + [ Project current toggleFullScreen. + toggleMorph form: MenuIcons smallFullscreenOffIcon ] ; - toggleFullScreenOn: aDockingBar + on: #mouseEnter + send: #value + to: [toggleMorph form: MenuIcons smallFullscreenOnIcon]; + + on: #mouseLeave + send: #value + to: [toggleMorph form: MenuIcons smallFullscreenOffIcon]; + yourself. + aDockingBar addMorphBack: toggleMorph! - | toggleMorph toggleColor toggleColorOver | - toggleColor := Color "transparent" lightOrange. - toggleColorOver := Color orange. - (toggleMorph := Morph new) - extent: 18 @ 18; flag: #rhi; "*** 18 = MAGIC NUMBER? ***" - borderWidth: 0; - color: toggleColor; - setBalloonText: 'toggle full screen mode'; - on: #mouseDown send: #value to: [Project current toggleFullScreen]; - on: #mouseEnter send: #value to: [toggleMorph color: toggleColorOver]; - on: #mouseLeave send: #value to: [toggleMorph color: toggleColor]. - aDockingBar addMorphBack: toggleMorph.! Item was changed: ----- Method: TheWorldMainDockingBar>>windowMenuFor:on: (in category 'submenu - windows') ----- windowMenuFor: window on: menu - menu addItem: [ :item | item + contents: 'Close' translated ; - contents: 'Close'; target: window; selector: #delete ]; addItem: [ :item | item + contents: 'Close all like this' translated ; - contents: 'Close all like this'; target: self; selector: #closeAllWindowsLike:; arguments: { window } ]; addItem: [ :item | item + contents: 'Close all but this' translated ; - contents: 'Close all but this'; target: self; selector: #closeAllWindowsBut:; arguments: { window } ]; addItem: [ :item | item + contents: 'Expand or Contract' translated ; - contents: 'Toggle Full Screen'; target: window; selector: #expandBoxHit ]!

1 0

← Newer
1
2
3
4
5
6
7
8
9
...
24
Older →

Jump to page: