Squeak-dev June 2011

squeak-dev@lists.squeakfoundation.org

77 participants
236 discussions

Re: [squeak-dev] The Trunk: Morphic-spd.469.mcz
by Levente Uzonyi 22 Jun '11

22 Jun '11

On Tue, 21 Jun 2011, commits(a)source.squeak.org wrote: > 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 This change should be reverted IMHO. According to the class comment of LineMorph, it shouldn't have instances in the image. Levente > > =============== 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! > > >

2 3

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

22 Jun '11

Changes to Trunk (http://source.squeak.org/trunk.html) in the last 24 hours: http://lists.squeakfoundation.org/pipermail/packages/2011-June/004801.html Name: Monticello-bf.474 Ancestors: Monticello-ul.473 Add "revert unchanged methods..." item to Changes list, allowing to bulk-revert methods that only differ in timestamp ============================================= http://lists.squeakfoundation.org/pipermail/packages/2011-June/004802.html Name: Monticello-bf.475 Ancestors: Monticello-bf.474 Fix the problem that sometimes a re-organization is listed as an addition and a removal instead of a modification. ============================================= http://lists.squeakfoundation.org/pipermail/packages/2011-June/004803.html Name: Tools-fbs.363 Ancestors: Tools-ul.362 Lexicon>>openOnClass:showingSelector fails (like when you alt-p on a class in a Browser) because messageList isn't initialised. This seems like the best place to initialise the instvar. ============================================= http://lists.squeakfoundation.org/pipermail/packages/2011-June/004804.html Name: Sound-cmm.30 Ancestors: Sound-ul.29, Sound-HenrikSperreJohansen.28 Merge Sound-HenrikSperreJohansen.28. ============================================= http://lists.squeakfoundation.org/pipermail/packages/2011-June/004805.html Name: System-cmm.443 Ancestors: System-ul.442, System-HenrikSperreJohansen.416 Merged System-HenrikSperreJohansen.416, support for moving Sound preferences out of Preferences. ============================================= http://lists.squeakfoundation.org/pipermail/packages/2011-June/004806.html Name: MorphicExtras-cmm.101 Ancestors: MorphicExtras-ul.100, MorphicExtras-HenrikSperreJohansen.100 Merged MorphicExtras-HenrikSperreJohansen.100. ============================================= http://lists.squeakfoundation.org/pipermail/packages/2011-June/004807.html Name: Sound-HenrikSperreJohansen.28 Ancestors: Sound-ul.26 Update to use pragma-based sound preferences ============================================= http://lists.squeakfoundation.org/pipermail/packages/2011-June/004808.html Name: MorphicExtras-HenrikSperreJohansen.100 Ancestors: MorphicExtras-nice.98 Update to use pragma-based sound preferences ============================================= http://lists.squeakfoundation.org/pipermail/packages/2011-June/004809.html Name: System-HenrikSperreJohansen.416 Ancestors: System-dtl.414 Update to use pragma-based sound preferences ============================================= http://lists.squeakfoundation.org/pipermail/packages/2011-June/004810.html Name: Morphic-cmm.548 Ancestors: Morphic-ul.547, Morphic-HenrikSperreJohansen.518 Merged Morphic-HenrikSperreJohansen.518. ============================================= http://lists.squeakfoundation.org/pipermail/packages/2011-June/004811.html Name: Morphic-HenrikSperreJohansen.518 Ancestors: Morphic-dtl.516 Update to use pragma-based sound preferences ============================================= http://lists.squeakfoundation.org/pipermail/packages/2011-June/004812.html Name: EToys-cmm.84 Ancestors: EToys-ul.83, EToys-HenrikSperreJohansen.81 Merged EToys-HenrikSperreJohansen.81 to move Sound preferences to pragma. ============================================= http://lists.squeakfoundation.org/pipermail/packages/2011-June/004813.html Name: EToys-HenrikSperreJohansen.81 Ancestors: EToys-nice.79 Update to use pragma-based sound preferences ============================================= http://lists.squeakfoundation.org/pipermail/packages/2011-June/004814.html Name: ST80-cmm.130 Ancestors: ST80-ul.129, ST80-HenrikSperreJohansen.124 Merged ST80-HenrikSperreJohansen.124 for pragma-based Sound preferences. ============================================= http://lists.squeakfoundation.org/pipermail/packages/2011-June/004815.html Name: ST80-HenrikSperreJohansen.124 Ancestors: ST80-nice.122 Update to use pragma-based sound preferences ============================================= http://lists.squeakfoundation.org/pipermail/packages/2011-June/004816.html Name: Network-cmm.116 Ancestors: Network-ul.115, Network-cmm.100 Merged Network-cmm.100. ============================================= http://lists.squeakfoundation.org/pipermail/packages/2011-June/004817.html Name: Network-cmm.100 Ancestors: Network-ul.99 When shouldSignal is true, we should pass the exception, not ignore it! ============================================= http://lists.squeakfoundation.org/pipermail/packages/2011-June/004818.html Name: Kernel-cmm.600 Ancestors: Kernel-nice.569, Kernel-ul.599 merged Kernel-nice.569. ============================================= http://lists.squeakfoundation.org/pipermail/packages/2011-June/004819.html Name: Kernel-nice.569 Ancestors: Kernel-cmm.568 A bit faster bitReverse: for LargePositiveInteger ============================================= http://lists.squeakfoundation.org/pipermail/packages/2011-June/004820.html Name: Morphic-cmm.549 Ancestors: Morphic-cmm.548, Morphic-rhi.439 Integrated Morphic-rhi.439, full-screen toggle button on the tool-bar. ============================================= http://lists.squeakfoundation.org/pipermail/packages/2011-June/004821.html Name: Morphic-rhi.439 Ancestors: Morphic-cmm.438 Adds toggle-full-screen button to tool bar... ============================================= http://lists.squeakfoundation.org/pipermail/packages/2011-June/004822.html Name: Morphic-cmm.550 Ancestors: Morphic-cmm.549, Morphic-cbr.458, Morphic-spd.469, Morphic-spd.507 Integrated Morphic-cbr.458, Morphic-spd.469, and Morphic-spd.507. ============================================= http://lists.squeakfoundation.org/pipermail/packages/2011-June/004823.html Name: Morphic-spd.507 Ancestors: Morphic-cmm.506 Added comments for TextMorph's #autoFit: and #wrapFlag:, which I find horrendously confusing. They are probably badly named, but at minimum deserve better comments. ============================================= http://lists.squeakfoundation.org/pipermail/packages/2011-June/004824.html Name: Morphic-spd.469 Ancestors: Morphic-laza.468 LineMorph class>>from:to:color:width: changed to return a LineMorph ============================================= http://lists.squeakfoundation.org/pipermail/packages/2011-June/004825.html Name: Morphic-cbr.458 Ancestors: Morphic-cmm.457 Added a menu item each to the world menu and the docking bar which refer to SystemNavigation>>browseMyChanges. =============================================

1 0

Re: [squeak-dev] The Trunk: Morphic-rhi.439.mcz
by Levente Uzonyi 22 Jun '11

22 Jun '11

On Tue, 21 Jun 2011, commits(a)source.squeak.org wrote: > Chris Muller uploaded a new version of Morphic to project The Trunk: > http://source.squeak.org/trunk/Morphic-rhi.439.mcz > > ==================== Summary ==================== > > Name: Morphic-rhi.439 > Author: rhi > Time: 6 June 2010, 12:52:31.213 pm > UUID: 2b5a8d5e-913d-4eee-a1ee-0db20ced46d2 > Ancestors: Morphic-cmm.438 > > Adds toggle-full-screen button to tool bar... We have to clean up the docking bar a bit, because now there are two ways to toggle fullscreen mode. Levente > > =============== Diff against Morphic-cmm.438 =============== > > Item was changed: > ----- Method: TheWorldMainDockingBar>>fillDockingBar: (in category 'construction') ----- > fillDockingBar: aDockingBar > "Private - fill the given docking bar" > > aDockingBar addSpace: 6. > self menusOn: aDockingBar. > + aDockingBar addSpacer. > + self rightSideOn: aDockingBar. > aDockingBar > setProperty: #mainDockingBarTimeStamp > + toValue: self class timeStamp.! > - toValue: self class timeStamp! > > Item was changed: > ----- Method: TheWorldMainDockingBar>>menusOn: (in category 'construction') ----- > + menusOn: aDockingBar > - menusOn: aDockingBar > > + self > - self > squeakMenuOn: aDockingBar; > projectsMenuOn: aDockingBar; > toolsMenuOn: aDockingBar; > extrasMenuOn: aDockingBar; > windowsMenuOn: aDockingBar; > + helpMenuOn: aDockingBar.! > - helpMenuOn: aDockingBar. > - aDockingBar addSpacer. > - self > - searchBarOn: aDockingBar; > - clockOn: aDockingBar! > > Item was added: > + ----- Method: TheWorldMainDockingBar>>rightSideOn: (in category 'construction') ----- > + rightSideOn: aDockingBar > + > + self > + searchBarOn: aDockingBar; > + clockOn: aDockingBar; > + toggleFullScreenOn: aDockingBar.! > > Item was added: > + ----- Method: TheWorldMainDockingBar>>toggleFullScreenOn: (in category 'right side') ----- > + toggleFullScreenOn: aDockingBar > + > + | 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.! > > >

2 1

Smalltalks 2011 --- Call for papers
by Andres Valloud 22 Jun '11

22 Jun '11

CALL FOR PAPERS SMALLTALKS 2011 5th International Conference on Smalltalk Technologies Research Track: Call for Papers November 3th - 5th, 2011 Important dates: Submission (Hard Deadline): August 22th, 2011 (Argentinian time: UTC/GMT -3 hours). Notification of acceptance: September 23th, 2011. Camera Ready Submission: October 7th, 2011. --------------------------------------------------------------------------------- Conference Location: Universidad Nacional de Quilmes (Argentina) The Smalltalks series of conferences (www.fast.org.ar) is a lively forum on Smalltalk-based software technologies that brings together more than 200 people from both academia and industry for a period of three days. Past editions of Smalltalks have included many high-quality presentations from industry and research. These contributions have shown interesting applications of Smalltalk, advances in the Smalltalk language, didactic uses of Smalltalk and so on. Similar to last year, Smalltalks 2011 will include a dedicated research track. We welcome submissions to this research track presenting original scientific contributions to, or using, Smalltalk in general. Topics of interest include, but are not restricted to: - Aspects, Aspect Languages and Applications. - Ambient Intelligence, Ubiquitous / Pervasive Computing and Embedded Systems. - Compilation Technology, Optimization, Virtual Machines. - Educational Material. - Language Engineering, Extensions. - Model Driven Engineering / Development. - Meta-Modeling, Reflection and Meta-programming. - Programming in the Large, Design, Architectures and Components. - Programming Environments, Browsers, User Interfaces, UI Frameworks. - Source-code analysis and manipulation (Static analysis, refactoring, type inference, metrics). - Team Management. - Testing, Extreme Programming / Practices. - Web Services, Internet Applications, Event-driven Programming. - Experience Reports. Important dates: Submission (Hard Deadline): August 22th, 2011 (Argentinian time: UTC/GMT -3 hours). Notification of acceptance: September 23th, 2011. Camera Ready Submission: October 7th, 2011. Papers: Papers should be written in English, in PDF-format and should not exceed 15 pages (including references and figures), using the Elsevier journal format. Templates for LaTeX formats can be found at http://www.elsevier.com/wps/find/authorsview.authors/elsart Papers must be submitted through the EasyChair submission web site at https://www.easychair.org/conferences/?conf=smalltalks2011 The accepted papers will be digitally available on the conference website. We are currently negotiating a special edition of a journal for which the best papers will get invited. Papers submitted must not have been previously published and must not be under review for publication elsewhere. Papers must strictly adhere to submission guidelines. If you have questions, please send an e-mail to Jannik Laval and Andy Kellens to smalltalks2011-chair(a)fast.org.ar. Program Committee -------------------------- - Gonzalo Zabala (Universidad Abierta Interamericana, Argentina) - Hernan Wilkinson (Universidad de Buenos Aires, Argentina) - Serge Stinckwich (Institut de recherche pour le developppement, France) - Mircea Lungu (University of Bern, Switzerland) - Tudor Girba (Sw-eng. Software Engineering GmbH, Switzerland) - Johan Fabry (DCC, Universidad de Chile, Chile) - Luc Fabresse (Ecole des Mines Douai, France) - Marcus Denker (INRIA Lille, France) - Coen De Roover (Vrije Universiteit Brussel, Belgium) - Damien Cassou (Hasso-Plattner-Institut, Potsdam, Germany) - Gilad Bracha (SAP Labs, Palo Alto, USA) - Noury Bouraqadi (Ecole des Mines Douai, France) - Alexandre Bergel (DCC, Universidad de Chile, Chile) - Gabriela Arevalo (Universidad Nacional de Quilmes, Argentina) Program Chairs -------------------- Andy Kellens (Vrije Universiteit Brussel, Belgium) Jannik Laval (INRIA Lille/LABRI Bordeaux, France)

1 0

Inbox, and helping the reviewers
by Frank Shearar 21 Jun '11

21 Jun '11

The Inbox has quite a few little fixes in it (full disclosure: a fair number are mine). What can we do to help the reviewers review the changes, with an eye to moving things from Inbox to Trunk? frank

2 2

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-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

The Trunk: Morphic-spd.507.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.507.mcz ==================== Summary ==================== Name: Morphic-spd.507 Author: spd Time: 4 January 2011, 5:54:07.209 pm UUID: c5d862d6-b70d-4ef2-b9e5-8018b9949701 Ancestors: Morphic-cmm.506 Added comments for TextMorph's #autoFit: and #wrapFlag:, which I find horrendously confusing. They are probably badly named, but at minimum deserve better comments. =============== Diff against Morphic-cmm.506 =============== Item was changed: ----- Method: TextMorph>>autoFit: (in category 'accessing') ----- autoFit: trueOrFalse + "Whether I automatically adjust my size to fit text as it changes" + self isAutoFit = trueOrFalse ifTrue: [^ self]. + self autoFitOnOff.! - self autoFitOnOff! Item was changed: ----- Method: TextMorph>>wrapFlag: (in category 'accessing') ----- wrapFlag: aBoolean + "Whether contained text will adjust its bounds as I change shape: + | wrapFlag | TextMorph grows | TextMorph shrinks | + | true | wrapped lines fill new space | long lines wrap to fit | + | false | wrapped lines stay same | long lines are cut off |" - "Change whether contents are wrapped to the container." aBoolean == wrapFlag ifTrue: [^ self]. wrapFlag := aBoolean. self composeToBounds!

1 0

The Trunk: Morphic-cmm.550.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-cmm.550.mcz ==================== Summary ==================== Name: Morphic-cmm.550 Author: cmm Time: 21 June 2011, 4:48:23.406 pm UUID: f355eac5-f4b3-4324-b2c9-c6571e6e348c Ancestors: Morphic-cmm.549, Morphic-cbr.458, Morphic-spd.469, Morphic-spd.507 Integrated Morphic-cbr.458, Morphic-spd.469, and Morphic-spd.507. =============== Diff against Morphic-cmm.549 =============== 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! Item was changed: ----- Method: TextMorph>>autoFit: (in category 'accessing') ----- autoFit: trueOrFalse + "Whether I automatically adjust my size to fit text as it changes" + self isAutoFit = trueOrFalse ifTrue: [^ self]. + self autoFitOnOff.! - self autoFitOnOff! Item was changed: ----- Method: TextMorph>>wrapFlag: (in category 'accessing') ----- wrapFlag: aBoolean + "Whether contained text will adjust its bounds as I change shape: + | wrapFlag | TextMorph grows | TextMorph shrinks | + | true | wrapped lines fill new space | long lines wrap to fit | + | false | wrapped lines stay same | long lines are cut off |" - "Change whether contents are wrapped to the container." aBoolean == wrapFlag ifTrue: [^ self]. wrapFlag := aBoolean. self composeToBounds! 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: 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-rhi.439.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-rhi.439.mcz ==================== Summary ==================== Name: Morphic-rhi.439 Author: rhi Time: 6 June 2010, 12:52:31.213 pm UUID: 2b5a8d5e-913d-4eee-a1ee-0db20ced46d2 Ancestors: Morphic-cmm.438 Adds toggle-full-screen button to tool bar... =============== Diff against Morphic-cmm.438 =============== Item was changed: ----- Method: TheWorldMainDockingBar>>fillDockingBar: (in category 'construction') ----- fillDockingBar: aDockingBar "Private - fill the given docking bar" aDockingBar addSpace: 6. self menusOn: aDockingBar. + aDockingBar addSpacer. + self rightSideOn: aDockingBar. aDockingBar setProperty: #mainDockingBarTimeStamp + toValue: self class timeStamp.! - toValue: self class timeStamp! Item was changed: ----- Method: TheWorldMainDockingBar>>menusOn: (in category 'construction') ----- + menusOn: aDockingBar - menusOn: aDockingBar + self - self squeakMenuOn: aDockingBar; projectsMenuOn: aDockingBar; toolsMenuOn: aDockingBar; extrasMenuOn: aDockingBar; windowsMenuOn: aDockingBar; + helpMenuOn: aDockingBar.! - helpMenuOn: aDockingBar. - aDockingBar addSpacer. - self - searchBarOn: aDockingBar; - clockOn: aDockingBar! Item was added: + ----- Method: TheWorldMainDockingBar>>rightSideOn: (in category 'construction') ----- + rightSideOn: aDockingBar + + self + searchBarOn: aDockingBar; + clockOn: aDockingBar; + toggleFullScreenOn: aDockingBar.! Item was added: + ----- Method: TheWorldMainDockingBar>>toggleFullScreenOn: (in category 'right side') ----- + toggleFullScreenOn: aDockingBar + + | 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.!

1 0

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

Jump to page: