Packages April 2010

packages@lists.squeakfoundation.org

1 participants
459 discussions

The Trunk: Tools-fbs.224.mcz
by commits＠source.squeak.org 05 Apr '10

05 Apr '10

Andreas Raab uploaded a new version of Tools to project The Trunk: http://source.squeak.org/trunk/Tools-fbs.224.mcz ==================== Summary ==================== Name: Tools-fbs.224 Author: fbs Time: 5 April 2010, 12:15:06.808 am UUID: 2c35ecbd-6dc6-a740-a277-35fc659def4e Ancestors: Tools-fbs.223 Constant height buttons for the "predebug" Debugger dialog. =============== Diff against Tools-fbs.223 =============== Item was changed: ----- Method: Debugger>>buildNotifierWith:label:message: (in category 'toolbuilder') ----- buildNotifierWith: builder label: label message: messageString | windowSpec listSpec textSpec panelSpec quads | windowSpec := builder pluggableWindowSpec new. windowSpec model: self. windowSpec extent: 450 @ 156. "nice and wide to show plenty of the error msg" windowSpec label: label. windowSpec children: OrderedCollection new. panelSpec := builder pluggablePanelSpec new. panelSpec children: OrderedCollection new. quads := self preDebugButtonQuads. (self interruptedContext selector == #doesNotUnderstand:) ifTrue: [ quads := quads copyWith: { 'Create'. #createMethod. #magenta. 'create the missing method' } ]. quads do:[:spec| | buttonSpec | buttonSpec := builder pluggableButtonSpec new. buttonSpec model: self. buttonSpec label: spec first. buttonSpec action: spec second. buttonSpec help: spec fourth. + buttonSpec frame: self preDebugButtonQuadFrame. panelSpec children add: buttonSpec. ]. panelSpec layout: #horizontal. "buttons" + panelSpec frame: self preDebugButtonQuadFrame. - panelSpec frame: (0@0 corner: 1(a)0.2). windowSpec children add: panelSpec. Preferences eToyFriendly | messageString notNil ifFalse:[ listSpec := builder pluggableListSpec new. listSpec model: self; list: #contextStackList; getIndex: #contextStackIndex; setIndex: #debugAt:; + frame: self contextStackFrame. - frame: (0(a)0.2 corner: 1@1). windowSpec children add: listSpec. ] ifTrue:[ message := messageString. textSpec := builder pluggableTextSpec new. textSpec model: self; getText: #preDebugMessageString; setText: nil; selection: nil; menu: #debugProceedMenu:; + frame: self contextStackFrame. - frame: (0(a)0.2corner: 1@1). windowSpec children add: textSpec. ]. ^windowSpec! Item was added: + ----- Method: Debugger>>preDebugButtonQuadFrame (in category 'toolbuilder') ----- + preDebugButtonQuadFrame + ^LayoutFrame new + leftFraction: 0 offset: 0; + topFraction: 0 offset: 0; + rightFraction: 1 offset: 0; + bottomFraction: 0 offset: self buttonHeight.! Item was added: + ----- Method: Debugger>>contextStackFrame (in category 'toolbuilder') ----- + contextStackFrame + | spacing topOffset | + spacing := 3. + topOffset := self wantsOptionalButtons + ifTrue: [self buttonHeight + spacing] + ifFalse: [spacing]. + + ^LayoutFrame new + leftFraction: 0 offset: 0; + topFraction: 0 offset: topOffset; + rightFraction: 1 offset: 0; + bottomFraction: 1 offset: 0!

1 0

The Trunk: Tools-fbs.224.mcz
by commits＠source.squeak.org 05 Apr '10

05 Apr '10

1 0

The Trunk: Morphic-ar.408.mcz
by commits＠source.squeak.org 05 Apr '10

05 Apr '10

Andreas Raab uploaded a new version of Morphic to project The Trunk: http://source.squeak.org/trunk/Morphic-ar.408.mcz ==================== Summary ==================== Name: Morphic-ar.408 Author: ar Time: 4 April 2010, 3:57:52.676 pm UUID: 907c9304-3b3b-8e40-928b-5cd7e7dded71 Ancestors: Morphic-cmm.407 Restore methods in PopUpMenu that went AWOL in some prior update. =============== Diff against Morphic-cmm.407 =============== Item was added: + ----- Method: PopUpMenu>>morphicStartUpLeftFlush (in category '*Morphic-Menus') ----- + morphicStartUpLeftFlush + "Build and invoke this menu with no initial selection. By Jerry Archibald, 4/01. + If in MVC, align menus items with the left margin. + Answer the selection associated with the menu item chosen by the user or nil if none is chosen. + The mechanism for getting left-flush appearance in mvc leaves a tiny possibility for misadventure: if the user, in mvc, puts up the jump-to-project menu, then hits cmd period while it is up, then puts up a second jump-to-project menu before dismissing or proceeding through the debugger, it's possible for mvc popup-menus thereafter to appear left-aligned rather than centered; this very unlikely condition can be cleared by evaluating 'PopUpMenu alignment: 2'" + + ^self startUp! Item was added: + ----- Method: PopUpMenu>>morphicStartUpWithCaption:icon:at:allowKeyboard: (in category '*Morphic-Menus') ----- + morphicStartUpWithCaption: captionOrNil icon: aForm at: location allowKeyboard: aBoolean + "Display the menu, with caption if supplied. Wait for the mouse button to go down, then track the selection as long as the button is pressed. When the button is released, + Answer the index of the current selection, or zero if the mouse is not released over any menu item. Location specifies the desired topLeft of the menu body rectangle. The final argument indicates whether the menu should seize the keyboard focus in order to allow the user to navigate it via the keyboard." + + selection := Cursor normal + showWhile: [| menuMorph | + menuMorph := MVCMenuMorph from: self title: nil. + (captionOrNil notNil + or: [aForm notNil]) + ifTrue: [menuMorph addTitle: captionOrNil icon: aForm]. + MenuIcons decorateMenu: menuMorph. + menuMorph + invokeAt: location + in: ActiveWorld + allowKeyboard: aBoolean]. + ^ selection!

1 0

The Trunk: Morphic-ar.408.mcz
by commits＠source.squeak.org 05 Apr '10

05 Apr '10

1 0

The Trunk: Morphic-ar.408.mcz
by commits＠source.squeak.org 05 Apr '10

05 Apr '10

1 0

The Trunk: Morphic-cbr.392.mcz
by commits＠source.squeak.org 05 Apr '10

05 Apr '10

Chris Muller uploaded a new version of Morphic to project The Trunk: http://source.squeak.org/trunk/Morphic-cbr.392.mcz ==================== Summary ==================== Name: Morphic-cbr.392 Author: cbr Time: 26 March 2010, 1:38:37.423 am UUID: d2ec5332-d31e-40e5-a5b4-f896cea50f20 Ancestors: Morphic-mha.391 I find it irksome that we have two help menus (one in the main docking bar, one in the world menu.) I also find it irksome that there's so much stuff in the help menu that's in the world menu that's not really help-related. I moved the stuff that's actually help (except for "world menu help" which really isn't that helpful) out of the world menu and into the docking bar. I took everything else that wasn't already exposed somewhere and put it in the Extras menu on the docking bar. I moved telemorphic up to the top of the world menu because I don't know what it's for, because it pops a submenu that wants self to be an instance of TheWorldMenu, and because I didn't really care to mess with transplanting it. =============== Diff against Morphic-mha.391 =============== Item was changed: ----- Method: TheWorldMenu>>buildWorldMenu (in category 'construction') ----- buildWorldMenu "Build the menu that is put up when the screen-desktop is clicked on" | menu | menu := MenuMorph new defaultTarget: self. menu commandKeyHandler: self. self colorForDebugging: menu. menu addStayUpItem. self makeConvenient: menu. Smalltalk at: #ServiceGUI ifPresent:[:sgui| sgui worldMenu: menu. sgui onlyServices ifTrue: [^ menu]. ]. self addProjectEntries: menu. myWorld addUndoItemsTo: menu. self addRestoreDisplay: menu. self addUtilities: menu. self addObjectsAndTools: menu. self addPrintAndDebug: menu. self addSaveAndQuit: menu. ^ menu! 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]. ] ]! Item was changed: ----- Method: TheWorldMenu>>addUtilities: (in category 'construction') ----- addUtilities: menu Preferences simpleMenus ifFalse: [ self fillIn: menu from: { { 'open...'. { self. #openWindow } }. { 'windows...'. { self. #windowsDo } }. { 'changes...'. { self. #changesDo } } } ]. self fillIn: menu from: { + " { 'help...'. { self. #helpDo }. 'puts up a menu of useful items for updating the system, determining what version you are running, and much else' }." - { 'help...'. { self. #helpDo }. 'puts up a menu of useful items for updating the system, determining what version you are running, and much else' }. { 'appearance...'. { self. #appearanceDo }. 'put up a menu offering many controls over appearance.' } }. Preferences simpleMenus ifFalse: [ self fillIn: menu from: { { 'do...'. { Utilities. #offerCommonRequests }. 'put up an editible list of convenient expressions, and evaluate the one selected.' } } ]! Item was changed: ----- Method: TheWorldMainDockingBar>>helpMenuOn: (in category 'construction') ----- helpMenuOn: aDockingBar aDockingBar addItem: [ :it | it contents: 'Help' translated; addSubMenu: [ :menu | 'Todo'. menu addItem:[:item| item contents: 'Online Resources' translated; help: 'Online resources for Squeak' translated; target: self; selector: #showSqueakResources ]. menu addItem:[:item| item contents: 'Keyboard Shortcuts' translated; help: 'Keyboard bindings used in Squeak' translated; target: Utilities; selector: #openCommandKeyHelp ]. + menu addItem:[:item| + item + contents: 'Font Size Summary' translated; + help: 'Font size summary from the old Squeak 3.10.2 help menu.' translated; + target: TextStyle; + selector: #fontSizeSummary ]. + menu addItem:[:item| + item + contents: 'Useful Expressions' translated; + help: 'Useful expressions from the old Squeak 3.10.2 help menu.' translated; + target: Utilities; + selector: #openStandardWorkspace ]. ]].! Item was changed: ----- Method: TheWorldMenu>>addObjectsAndTools: (in category 'construction') ----- addObjectsAndTools: menu self fillIn: menu from: { nil. { 'objects (o)'. { #myWorld. #activateObjectsTool }. 'A tool for finding and obtaining many kinds of objects' }. { 'new morph...'. { self. #newMorph }. 'Offers a variety of ways to create new objects' }. nil. { 'authoring tools...'. { self. #scriptingDo }. 'A menu of choices useful for authoring' }. { 'playfield options...'. { self. #playfieldDo }. 'A menu of options pertaining to this object as viewed as a playfield' }. { 'flaps...'. { self. #flapsDo }. 'A menu relating to use of flaps. For best results, use "keep this menu up"' }. { 'projects...'. { self. #projectDo }. 'A menu of commands relating to use of projects' }. + { 'telemorphic...' . {self. #remoteDo}. 'commands for doing multi-machine "telemorphic" experiments'}. nil }!

1 0

The Trunk: Morphic-cbr.392.mcz
by commits＠source.squeak.org 05 Apr '10

05 Apr '10

1 0

The Trunk: Morphic-cbr.392.mcz
by commits＠source.squeak.org 05 Apr '10

05 Apr '10

1 0

The Trunk: Tools-fbs.223.mcz
by commits＠source.squeak.org 04 Apr '10

04 Apr '10

Andreas Raab uploaded a new version of Tools to project The Trunk: http://source.squeak.org/trunk/Tools-fbs.223.mcz ==================== Summary ==================== Name: Tools-fbs.223 Author: fbs Time: 3 April 2010, 9:02:45.34 pm UUID: 89bca4a6-2d01-be41-bfe7-379f1bb06371 Ancestors: Tools-bp.220 Update Hierarchy Browser with fixed button height. =============== Diff against Tools-bp.220 =============== Item was changed: ----- Method: Browser>>switchesFrame: (in category 'initialize-release') ----- switchesFrame: bottomFraction + ^self switchesFrame: bottomFraction fromLeft: 0.25 width: 0.25.! - ^LayoutFrame new - leftFraction: 0.25 offset: 0; - topFraction: bottomFraction offset: self buttonHeight negated - 4; - rightFraction: 0.5 offset: 0; - bottomFraction: bottomFraction offset: 0! Item was added: + ----- Method: Browser>>classListFrame:fromLeft:width: (in category 'initialize-release') ----- + classListFrame: bottomFraction fromLeft: leftFraction width: rightFraction + ^LayoutFrame new + leftFraction: leftFraction offset: 0; + topFraction: 0 offset: 0; + rightFraction: (leftFraction + rightFraction) offset: 0; + bottomFraction: bottomFraction offset: self buttonHeight negated - 3! Item was changed: ----- Method: Browser>>classListFrame: (in category 'initialize-release') ----- classListFrame: bottomFraction + ^self classListFrame: bottomFraction fromLeft: 0.25 width: 0.25.! - ^LayoutFrame new - leftFraction: 0.25 offset: 0; - topFraction: 0 offset: 0; - rightFraction: 0.5 offset: 0; - bottomFraction: bottomFraction offset: self buttonHeight negated - 3! Item was changed: ----- Method: Browser>>openSystemCatEditString: (in category 'initialize-release') ----- openSystemCatEditString: aString "Create a pluggable version of all the views for a Browser, including views and controllers. The top list view is of the currently selected system class category--a single item list." "Example: Browser new browseAllClasses. " | builder max | builder := ToolBuilder default. max := self wantsOptionalButtons ifTrue:[0.32] ifFalse:[0.4]. ^self buildWindowWith: builder specs: { (0@0 corner: 1.0(a)0.08) -> [self buildSystemCatListSingletonWith: builder]. + (self classListFrame: max fromLeft: 0 width: 0.333) -> [self buildClassListWith: builder]. + (self switchesFrame: max fromLeft: 0 width: 0.333) -> [self buildSwitchesWith: builder]. - (0.0(a)0.08 corner: 0.333(a)(max-0.1)) -> [self buildClassListWith: builder]. - (0.0(a)(max-0.1) corner: 0.333@max) -> [self buildSwitchesWith: builder]. (0.333(a)0.08 corner: 0.666@max) -> [self buildMessageCategoryListWith: builder]. (0.666(a)0.08 corner: 1@max) -> [self buildMessageListWith: builder]. (0@max corner: 1@1) -> [self buildCodePaneWith: builder]. }! Item was added: + ----- Method: Browser>>switchesFrame:fromLeft:width: (in category 'initialize-release') ----- + switchesFrame: bottomFraction fromLeft: leftFraction width: rightFraction + ^LayoutFrame new + leftFraction: leftFraction offset: 0; + topFraction: bottomFraction offset: self buttonHeight negated - 4; + rightFraction: (leftFraction + rightFraction) offset: 0; + bottomFraction: bottomFraction offset: 0!

1 0

The Trunk: Tools-fbs.223.mcz
by commits＠source.squeak.org 04 Apr '10

04 Apr '10

1 0

← Newer
1
...
38
39
40
41
42
43
44
45
46
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 April 2010