Packages June 2011

packages@lists.squeakfoundation.org

1 participants
306 discussions

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: System-cmm.444.mcz
by commits＠source.squeak.org 22 Jun '11

22 Jun '11

1 0

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

22 Jun '11

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

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

22 Jun '11

1 0

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

22 Jun '11

1 0

The Trunk: Morphic-cbr.458.mcz
by commits＠source.squeak.org 21 Jun '11

21 Jun '11

Chris Muller uploaded a new version of Morphic to project The Trunk: http://source.squeak.org/trunk/Morphic-cbr.458.mcz ==================== Summary ==================== Name: Morphic-cbr.458 Author: cbr Time: 2 August 2010, 6:44:06.4 pm UUID: 5e9ae9d1-f50d-4ab6-907c-51a1a5e4debe Ancestors: Morphic-cmm.457 Added a menu item each to the world menu and the docking bar which refer to SystemNavigation>>browseMyChanges. =============== Diff against Morphic-cmm.457 =============== Item was changed: ----- Method: TheWorldMainDockingBar>>extrasMenuOn: (in category 'construction') ----- 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 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: TheWorldMenu>>changesMenu (in category 'construction') ----- changesMenu "Build the changes menu for the world." | menu | menu := self menu: 'changes...'. self fillIn: menu from: { { 'file out current change set' . { ChangeSet current . #verboseFileOut}. 'Write the current change set out to a file whose name reflects the change set name and the current date & time.'}. { 'create new change set...' . { ChangeSet . #newChangeSet}. 'Create a new change set and make it the current one.'}. { 'browse changed methods' . { ChangeSet . #browseChangedMessages}. 'Open a message-list browser showing all methods in the current change set'}. { 'check change set for slips' . { self . #lookForSlips}. 'Check the current change set for halts, references to the Transcript, etc., and if any such thing is found, open up a message-list browser detailing all possible slips.'}. nil. { 'simple change sorter' . {self. #openChangeSorter1}. 'Open a 3-paned changed-set viewing tool'}. { 'dual change sorter' . {self. #openChangeSorter2}. 'Open a change sorter that shows you two change sets at a time, making it easy to copy and move methods and classes between them.'}. { 'find a change sorter (C)' . { #myWorld . #findAChangeSorter: }. 'Brings an open change sorter to the front, creating one if necessary, and makes it the active window'}. nil. { 'browse recent submissions (R)' . { Utilities . #browseRecentSubmissions}. 'Open a new recent-submissions browser. A recent-submissions browser is a message-list browser that shows the most recent methods that have been submitted. If you submit changes within that browser, it will keep up-to-date, always showing the most recent submissions.'}. + { 'browse my changes' . { SystemNavigation new . #browseMyChanges }. + 'Browse all of my changes since the last time #condenseSources was run.'}. - nil. { 'recently logged changes...' . { self . #browseRecentLog}.'Open a change-list browser on the latter part of the changes log. You can use this browser to recover logged changes which were not saved in your image, in the event of a crash or other interruption.'}. { 'recent log file...' . { Smalltalk . #writeRecentToFile}. 'Create a file holding the logged changes (going as far back as you wish), and open a window on that file.'}. nil. { 'save world as morph file' . {self. #saveWorldInFile}. 'Save a file that, when reloaded, reconstitutes the current World.'}. nil. }. ^ menu!

1 0

The Trunk: Morphic-cbr.458.mcz
by commits＠source.squeak.org 21 Jun '11

21 Jun '11

1 0

The Trunk: Morphic-cbr.458.mcz
by commits＠source.squeak.org 21 Jun '11

21 Jun '11

1 0

The Trunk: Morphic-spd.469.mcz
by commits＠source.squeak.org 21 Jun '11

21 Jun '11

Chris Muller uploaded a new version of Morphic to project The Trunk: http://source.squeak.org/trunk/Morphic-spd.469.mcz ==================== Summary ==================== Name: Morphic-spd.469 Author: spd Time: 1 October 2010, 2:20:39.508 pm UUID: a68c21fa-d7d3-46da-82ea-53077512621a Ancestors: Morphic-laza.468 LineMorph class>>from:to:color:width: changed to return a LineMorph =============== Diff against Morphic-laza.468 =============== Item was changed: ----- Method: LineMorph class>>from:to:color:width: (in category 'instance creation') ----- from: startPoint to: endPoint color: lineColor width: lineWidth + ^ self vertices: {startPoint. endPoint} - ^ PolygonMorph vertices: {startPoint. endPoint} color: Color black borderWidth: lineWidth borderColor: lineColor!

1 0

← Newer
1
2
3
4
5
6
7
...
31
Older →

Jump to page:

2024

2023

2022

2021

2020

2019

2018

2017

2016

2015

2014

2013

2012

2011

2010

2009

2008

2007

2006

2005

Packages June 2011