Packages July 2010

packages@lists.squeakfoundation.org

1 participants
240 discussions

The Trunk: ToolBuilder-Kernel-eem.36.mcz
by commits＠source.squeak.org 01 Jul '10

01 Jul '10

Eliot Miranda uploaded a new version of ToolBuilder-Kernel to project The Trunk: http://source.squeak.org/trunk/ToolBuilder-Kernel-eem.36.mcz ==================== Summary ==================== Name: ToolBuilder-Kernel-eem.36 Author: eem Time: 1 July 2010, 11:51:06.882 am UUID: 0eabb89d-7ae2-45a8-808d-8bc867f71b5a Ancestors: ToolBuilder-Kernel-ar.35 ToolBuilder support for browser multi-windows. 2 of 4 (Morphic, ToolBuilder-Kernel, ToolBuilder-Morphic, Tools). =============== Diff against ToolBuilder-Kernel-ar.35 =============== Item was added: + ----- Method: PluggableWindowSpec>>multiWindowStyle (in category 'accessing') ----- + multiWindowStyle + "Answer the value of multiWindowStyle, a Symbol or nil" + ^multiWindowStyle! Item was changed: ----- Method: PluggableWindowSpec>>isDialog (in category 'accessing') ----- isDialog + ^isDialog ifNil: [false] - ^isDialog ifNil: [^false]. - ! Item was added: + ----- Method: PluggableWindowSpec>>multiWindowStyle: (in category 'accessing') ----- + multiWindowStyle: aSymbol + "Set the value of multiWindowStyle, one of #labelButton or #tabbed" + + multiWindowStyle := aSymbol! Item was changed: PluggableCompositeSpec subclass: #PluggableWindowSpec + instanceVariableNames: 'label extent closeAction isDialog multiWindowStyle' - instanceVariableNames: 'label extent closeAction isDialog' classVariableNames: '' poolDictionaries: '' category: 'ToolBuilder-Kernel'! !PluggableWindowSpec commentStamp: '<historical>' prior: 0! A common window. Expects to see change/update notifications when the label should change. Instance variables: label <String|Symbol> The selector under which to retrieve the label or the label directly extent <Point> The (initial) extent of the window. closeAction <Symbol> The action to perform when the window is closed.!

1 0

The Trunk: Morphic-eem.451.mcz
by commits＠source.squeak.org 01 Jul '10

01 Jul '10

Eliot Miranda uploaded a new version of Morphic to project The Trunk: http://source.squeak.org/trunk/Morphic-eem.451.mcz ==================== Summary ==================== Name: Morphic-eem.451 Author: eem Time: 1 July 2010, 11:42:04.096 am UUID: 45cb6a21-abc6-44eb-8014-8f333bfe6359 Ancestors: Morphic-eem.450 Morphic support for browser multi-windows. 1 of 4 (Morphic, ToolBuilder-Kernel, ToolBuilder-Morphic, Tools). Also fix docking bar's Help menu for unload all packages images =============== Diff against Morphic-bf.449 =============== Item was added: + ----- Method: PluggableSystemWindowWithLabelButton>>savedMultiWindowState: (in category 'accessing') ----- + savedMultiWindowState: aSavedMultiWindowState + labelButton := MultiWindowLabelButtonMorph + on: aSavedMultiWindowState + getState: nil + action: #selectWindowsMenu. + labelButton + triggerOnMouseDown: true; + savedMultiWindowState: aSavedMultiWindowState. + labelButton + layoutFrame: (LayoutFrame "i.e. in the left 40% of the title bar" + fractions: (0@0 corner: 0.4@0) + offsets: (20@ -20 corner: 0@0)); + hResizing: #spaceFill; + vResizing: #spaceFill. + self addMorphFront: labelButton. + self adjustExtraButton! Item was changed: ----- Method: SystemWindow>>delete (in category 'open/close') ----- delete | thisWorld sketchEditor aPaintBox | + self mustNotClose ifTrue: [^self]. + model okToClose ifFalse: [^self]. - self mustNotClose ifTrue: [^ self]. - model okToChange ifFalse: [^ self]. thisWorld := self world. sketchEditor := self extantSketchEditor. self isFlexed ifTrue: [owner delete] ifFalse: [super delete]. model windowIsClosing; release. model := nil. sketchEditor ifNotNil: [sketchEditor deleteSelfAndSubordinates. + (thisWorld notNil + and: [(aPaintBox := thisWorld paintBoxOrNil) notNil]) ifTrue: + [aPaintBox delete]]. - thisWorld notNil ifTrue: - [(aPaintBox := thisWorld paintBoxOrNil) ifNotNil: [aPaintBox delete]]]. + SystemWindow noteTopWindowIn: thisWorld! - SystemWindow noteTopWindowIn: thisWorld. - ! Item was added: + ----- Method: MultiWindowLabelButtonMorph>>savedMultiWindowState: (in category 'accessing') ----- + savedMultiWindowState: anObject + "Set the value of savedMultiWindowState" + + savedMultiWindowState := anObject! Item was added: + PluggableSystemWindow subclass: #PluggableSystemWindowWithLabelButton + instanceVariableNames: 'labelButton' + classVariableNames: '' + poolDictionaries: '' + category: 'Morphic-Windows'! + + !PluggableSystemWindowWithLabelButton commentStamp: 'eem 6/29/2010 19:02' prior: 0! + A PluggableSystemWindowWithLabelButton provides the pull-down menu of browser panes in the multi-pane browser. + + Instance Variables + labelButton: <BrowserPaneButtonMorph> + + labelButton + - the labelButton is a hack to hold onto the panes of a multi-paned browser so that an inst var doesn't have to be added to the Browser hierarchy. + ! Item was added: + ----- Method: PluggableSystemWindowWithLabelButton>>passivate (in category 'top window') ----- + passivate + super passivate. + self removeProperty: #clickPoint! Item was added: + ----- Method: PluggableSystemWindowWithLabelButton>>adjustExtraButton (in category 'resize/collapse') ----- + adjustExtraButton + labelButton ifNil: [^self]. + labelButton + position: self innerBounds topLeft + (20 @ -3); + extent: self innerBounds extent * (0.4@1)! Item was added: + ----- Method: MultiWindowLabelButtonMorph>>drawOn: (in category 'drawing') ----- + drawOn: aCanvas + "Be invisible."! Item was changed: ----- Method: TheWorldMainDockingBar>>helpMenuOn: (in category 'submenu - help') ----- 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; icon: MenuIcons smallHelpIcon; selector: #showWelcomeText:label:in:; arguments: { #squeakOnlineResources. 'Squeak Online Resources'. (140@140 extent: 560@360) }]. 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 ]. menu addLine. menu addItem:[:item| item contents: 'Extending the system' translated; help: 'Includes code snippets to evaluate for extending the system' translated; target: self; icon: MenuIcons smallHelpIcon; selector: #showWelcomeText:label:in:; arguments: { #extendingTheSystem. 'How to extend the system'. (140@140 extent: 560@360) }]. menu addLine. menu addItem:[:item| item contents: 'Welcome Workspaces' translated; help: 'The Welcome Workspaces' translated; addSubMenu:[:submenu| self welcomeWorkspacesOn: submenu]]. + (Smalltalk classNamed: #HelpBrowser) ifNotNil: + [:classHelpBrowser| - (Smalltalk at: #HelpBrowser) ifNotNil: [ menu addLine. menu addItem: [ :item | item contents: 'Help Browser' translated; help: 'Integrated Help System' translated; + target: classHelpBrowser; - target: (Smalltalk at: #HelpBrowser); selector: #open ] ]. ]].! Item was added: + ----- Method: PluggableSystemWindowWithLabelButton>>mouseDown: (in category 'events') ----- + mouseDown: evt + | wasInactive | + wasInactive := TopWindow ~~ self. + self valueOfProperty: #clickPoint ifPresentDo: + [:firstClick | + (labelButton containsPoint: evt cursorPoint) ifTrue: + [^labelButton mouseDown: evt]]. + super mouseDown: evt. + (wasInactive + and: [model windowActiveOnFirstClick not + and: [labelButton containsPoint: evt cursorPoint]]) ifTrue: + [^labelButton mouseDown: evt]! Item was added: + ----- Method: MultiWindowLabelButtonMorph>>savedMultiWindowState (in category 'accessing') ----- + savedMultiWindowState + "Answer the value of savedMultiWindowState" + + ^ savedMultiWindowState! Item was added: + ----- Method: PluggableSystemWindowWithLabelButton>>extent: (in category 'geometry') ----- + extent: newExtent + super extent: newExtent. + self adjustExtraButton! Item was added: + PluggableButtonMorph subclass: #MultiWindowLabelButtonMorph + instanceVariableNames: 'savedMultiWindowState' + classVariableNames: '' + poolDictionaries: '' + category: 'Morphic-Windows'! + + !MultiWindowLabelButtonMorph commentStamp: 'eem 6/30/2010 16:13' prior: 0! + A MultiWindowLabelButtonMorph is a means of implementing tabbed windows. It cooperates with PluggableSystemWindowWithButton to provide a drop-down menu of windows when clicking in the window label. It requires the model to create a suitable sub-instance of SavedMultiWindowState for inactive windows. To specify multi-windows use the multiWindowStyle: setter to customize a PluggableWindowSpec. + + Instance Variables + savedMultiWindowState: <SavedMultiWindowState> + + savedMultiWindowState + - the sequence of models in a multi-window.! Item was added: + ----- Method: MultiWindowLabelButtonMorph>>performAction (in category 'accessing') ----- + performAction + "Override to interpret the actionSelector as a menu accessor and to activate that menu." + actionSelector ifNotNil: + [(model perform: actionSelector) ifNotNil: + [:menu| + menu + invokeModalAt: self position - (0@5) + in: ActiveWorld + allowKeyboard: Preferences menuKeyboardControl]]!

1 0

The Trunk: Morphic-eem.451.mcz
by commits＠source.squeak.org 01 Jul '10

01 Jul '10

1 0

The Trunk: Morphic-eem.451.mcz
by commits＠source.squeak.org 01 Jul '10

01 Jul '10

1 0

The Trunk: Kernel-eem.466.mcz
by commits＠source.squeak.org 01 Jul '10

01 Jul '10

Eliot Miranda uploaded a new version of Kernel to project The Trunk: http://source.squeak.org/trunk/Kernel-eem.466.mcz ==================== Summary ==================== Name: Kernel-eem.466 Author: eem Time: 1 July 2010, 11:39:37.515 am UUID: e7f77eee-fec2-441f-91ce-b505b87dd1db Ancestors: Kernel-ar.465 Add Object>>okToClose for multi-window browser support =============== Diff against Kernel-ar.465 =============== Item was added: + ----- Method: Object>>okToClose (in category 'updating') ----- + okToClose + "Allows a controller to ask this of any model" + ^self okToChange!

1 0

The Trunk: Kernel-eem.466.mcz
by commits＠source.squeak.org 01 Jul '10

01 Jul '10

1 0

The Trunk: Kernel-eem.466.mcz
by commits＠source.squeak.org 01 Jul '10

01 Jul '10

1 0

The Trunk: System-ul.346.mcz
by commits＠source.squeak.org 01 Jul '10

01 Jul '10

Levente Uzonyi uploaded a new version of System to project The Trunk: http://source.squeak.org/trunk/System-ul.346.mcz ==================== Summary ==================== Name: System-ul.346 Author: ul Time: 1 July 2010, 5:47:34.811 pm UUID: 24a3893a-af8a-d341-9211-5dc456369a43 Ancestors: System-eem.345 - ignore vm parameters with nil value in MessageTally, so it can be used in Cog =============== Diff against System-eem.345 =============== Item was changed: ----- Method: MessageTally>>spyEvery:onProcess:forMilliseconds: (in category 'initialize-release') ----- spyEvery: millisecs onProcess: aProcess forMilliseconds: msecDuration "Create a spy and spy on the given process at the specified rate." | myDelay time0 endTime observedProcess sem | (aProcess isKindOf: Process) ifFalse: [self error: 'spy needs a Process here']. self class: aProcess suspendedContext receiver class method: aProcess suspendedContext method. "set up the probe" observedProcess := aProcess. myDelay := Delay forMilliseconds: millisecs. time0 := Time millisecondClockValue. endTime := time0 + msecDuration. sem := Semaphore new. gcStats := SmalltalkImage current getVMParameters. Timer ifNotNil: [ self error: 'it seems a tally is already running' ]. Timer := [ [ | startTime | startTime := Time millisecondClockValue. myDelay wait. self tally: Processor preemptedProcess suspendedContext in: (observedProcess == Processor preemptedProcess ifTrue: [ observedProcess ] ifFalse: [ nil ]) "tally can be > 1 if ran a long primitive" by: (Time millisecondClockValue - startTime) // millisecs. startTime < endTime ] whileTrue. sem signal. ] newProcess. Timer priority: Processor timingPriority-1. "activate the probe and evaluate the block" Timer resume. "activate the probe and wait for it to finish" sem wait. "Collect gc statistics" + SmalltalkImage current getVMParameters keysAndValuesDo: [ :idx :gcVal | + gcVal ifNotNil: [ gcStats at: idx put: (gcVal - (gcStats at: idx)) ] ]. - SmalltalkImage current getVMParameters keysAndValuesDo: [ :idx :gcVal | - gcStats at: idx put: (gcVal - gcStats at: idx)]. time := Time millisecondClockValue - time0! Item was changed: ----- Method: MessageTally>>spyAllEvery:on: (in category 'initialize-release') ----- spyAllEvery: millisecs on: aBlock "Create a spy and spy on the given block at the specified rate." "Spy all the system processes" | myDelay time0 | aBlock isBlock ifFalse: [ self error: 'spy needs a block here' ]. self class: aBlock receiver class method: aBlock method. "set up the probe" myDelay := Delay forMilliseconds: millisecs. time0 := Time millisecondClockValue. gcStats := SmalltalkImage current getVMParameters. Timer ifNotNil: [ self error: 'it seems a tally is already running' ]. Timer := [ [true] whileTrue: [ | observedProcess startTime | startTime := Time millisecondClockValue. myDelay wait. observedProcess := Processor preemptedProcess. self tally: observedProcess suspendedContext in: observedProcess "tally can be > 1 if ran a long primitive" by: (Time millisecondClockValue - startTime) // millisecs]. nil] newProcess. Timer priority: Processor timingPriority-1. "activate the probe and evaluate the block" Timer resume. ^ aBlock ensure: [ "cancel the probe and return the value" "Could have already been terminated. See #terminateTimerProcess" Timer ifNotNil: [ Timer terminate. Timer := nil ]. "Collect gc statistics" + SmalltalkImage current getVMParameters keysAndValuesDo: [ :idx :gcVal | + gcVal ifNotNil: [ gcStats at: idx put: (gcVal - (gcStats at: idx)) ] ]. - SmalltalkImage current getVMParameters keysAndValuesDo: [ :idx :gcVal | - gcStats at: idx put: (gcVal - (gcStats at: idx))]. time := Time millisecondClockValue - time0]! Item was changed: ----- Method: MessageTally>>spyEvery:on: (in category 'initialize-release') ----- spyEvery: millisecs on: aBlock "Create a spy and spy on the given block at the specified rate." "Spy only on the active process (in which aBlock is run)" | myDelay time0 observedProcess | aBlock isBlock ifFalse: [ self error: 'spy needs a block here' ]. self class: aBlock receiver class method: aBlock method. "set up the probe" observedProcess := Processor activeProcess. myDelay := Delay forMilliseconds: millisecs. time0 := Time millisecondClockValue. gcStats := SmalltalkImage current getVMParameters. Timer ifNotNil: [ self error: 'it seems a tally is already running' ]. Timer := [ [ true ] whileTrue: [ | startTime | startTime := Time millisecondClockValue. myDelay wait. self tally: Processor preemptedProcess suspendedContext in: (observedProcess == Processor preemptedProcess ifTrue: [observedProcess] ifFalse: [nil]) "tally can be > 1 if ran a long primitive" by: (Time millisecondClockValue - startTime) // millisecs]. nil] newProcess. Timer priority: Processor timingPriority-1. "activate the probe and evaluate the block" Timer resume. ^ aBlock ensure: [ "cancel the probe and return the value" "Could have already been terminated. See #terminateTimerProcess" Timer ifNotNil: [ Timer terminate. Timer := nil ]. "Collect gc statistics" + SmalltalkImage current getVMParameters keysAndValuesDo: [ :idx :gcVal | + gcVal ifNotNil: [ gcStats at: idx put: (gcVal - (gcStats at: idx)) ] ]. + time := Time millisecondClockValue - time0 ]! - SmalltalkImage current getVMParameters keysAndValuesDo: [ :idx :gcVal | - gcStats at: idx put: (gcVal - (gcStats at: idx))]. - time := Time millisecondClockValue - time0]! Item was removed: - ----- Method: Preferences class>>lexiconWindowColor (in category 'standard queries') ----- - lexiconWindowColor - ^ self - valueOfFlag: #lexiconWindowColor - ifAbsent: [Color - r: 0.878 - g: 1.0 - b: 0.878]! Item was removed: - ----- Method: Preferences class>>instanceBrowserWindowColor (in category 'standard queries') ----- - instanceBrowserWindowColor - ^ self - valueOfFlag: #instanceBrowserWindowColor - ifAbsent: [Color - r: 0.806 - g: 1.0 - b: 1.0]! Item was removed: - ----- Method: Preferences class>>fileListWindowColor (in category 'standard queries') ----- - fileListWindowColor - ^ self - valueOfFlag: #fileListWindowColor - ifAbsent: [Color - r: 1.0 - g: 0.8 - b: 1.0]! Item was removed: - ----- Method: Preferences class>>debuggerWindowColor (in category 'standard queries') ----- - debuggerWindowColor - ^ self - valueOfFlag: #debuggerWindowColor - ifAbsent: [Color - r: 1.0 - g: 0.8 - b: 0.8]! Item was removed: - ----- Method: Preferences class>>defaultWindowColor (in category 'standard queries') ----- - defaultWindowColor - ^ self - valueOfFlag: #defaultWindowColor - ifAbsent: [Color - r: 1.0 - g: 1.0 - b: 1.0]! Item was removed: - ----- Method: Preferences class>>workspaceWindowColor (in category 'standard queries') ----- - workspaceWindowColor - ^ self - valueOfFlag: #workspaceWindowColor - ifAbsent: [Color - r: 1.0 - g: 1.0 - b: 0.8]! Item was removed: - ----- Method: Preferences class>>classCommentVersionsBrowserWindowColor (in category 'standard queries') ----- - classCommentVersionsBrowserWindowColor - ^ self - valueOfFlag: #classCommentVersionsBrowserWindowColor - ifAbsent: [Color - r: 0.769 - g: 0.653 - b: 1.0]! Item was removed: - ----- Method: Preferences class>>fileContentsBrowserWindowColor (in category 'standard queries') ----- - fileContentsBrowserWindowColor - ^ self - valueOfFlag: #fileContentsBrowserWindowColor - ifAbsent: [Color - r: 0.8 - g: 0.8 - b: 0.5]! Item was removed: - ----- Method: Preferences class>>versionsBrowserWindowColor (in category 'standard queries') ----- - versionsBrowserWindowColor - ^ self - valueOfFlag: #versionsBrowserWindowColor - ifAbsent: [Color - r: 0.869 - g: 0.753 - b: 1.0]! Item was removed: - ----- Method: Preferences class>>testRunnerWindowColor (in category 'standard queries') ----- - testRunnerWindowColor - ^ self - valueOfFlag: #testRunnerWindowColor - ifAbsent: [Color - r: 1.0 - g: 0.6 - b: 0.0]! Item was removed: - ----- Method: Preferences class>>dualChangeSorterWindowColor (in category 'standard queries') ----- - dualChangeSorterWindowColor - ^ self - valueOfFlag: #dualChangeSorterWindowColor - ifAbsent: [Color - r: 0.8 - g: 1.0 - b: 1.0]! Item was removed: - ----- Method: Preferences class>>messageListWindowColor (in category 'standard queries') ----- - messageListWindowColor - ^ self - valueOfFlag: #messageListWindowColor - ifAbsent: [Color - r: 0.8 - g: 1.0 - b: 1.0]! Item was removed: - ----- Method: Preferences class>>messageNamesWindowColor (in category 'standard queries') ----- - messageNamesWindowColor - ^ self - valueOfFlag: #messageNamesWindowColor - ifAbsent: [Color - r: 0.645 - g: 1.0 - b: 0.452]! Item was removed: - ----- Method: Preferences class>>browserWindowColor (in category 'standard queries') ----- - browserWindowColor - ^ self - valueOfFlag: #browserWindowColor - ifAbsent: [Color - r: 0.8 - g: 1.0 - b: 0.6]! Item was removed: - ----- Method: Preferences class>>packageLoaderWindowColor (in category 'standard queries') ----- - packageLoaderWindowColor - ^ self - valueOfFlag: #packageLoaderWindowColor - ifAbsent: [Color - r: 0.9 - g: 0.9 - b: 0.781]! Item was removed: - ----- Method: Preferences class>>transcriptWindowColor (in category 'standard queries') ----- - transcriptWindowColor - ^ self - valueOfFlag: #transcriptWindowColor - ifAbsent: [Color - r: 1.0 - g: 0.8 - b: 0.4]! Item was removed: - ----- Method: Preferences class>>changeSorterWindowColor (in category 'standard queries') ----- - changeSorterWindowColor - ^ self - valueOfFlag: #changeSorterWindowColor - ifAbsent: [Color - r: 0.8 - g: 1.0 - b: 1.0]! Item was removed: - ----- Method: Preferences class>>methodFinderWindowColor (in category 'standard queries') ----- - methodFinderWindowColor - ^ self - valueOfFlag: #methodFinderWindowColor - ifAbsent: [Color - r: 0.4 - g: 1.0 - b: 1.0]! Item was removed: - ----- Method: Preferences class>>changeListWindowColor (in category 'standard queries') ----- - changeListWindowColor - ^ self - valueOfFlag: #changeListWindowColor - ifAbsent: [Color - r: 0.8 - g: 1.0 - b: 1.0]! Item was removed: - ----- Method: Preferences class>>preferenceBrowserWindowColor (in category 'standard queries') ----- - preferenceBrowserWindowColor - ^ self - valueOfFlag: #preferenceBrowserWindowColor - ifAbsent: [Color - r: 0.645 - g: 1.0 - b: 1.0]! Item was removed: - ----- Method: Preferences class>>packageBrowserWindowColor (in category 'standard queries') ----- - packageBrowserWindowColor - ^ self - valueOfFlag: #packageBrowserWindowColor - ifAbsent: [Color - r: 1.0 - g: 1.0 - b: 0.6]! Item was removed: - ----- Method: Preferences class>>monticelloToolWindowColor (in category 'standard queries') ----- - monticelloToolWindowColor - ^ self - valueOfFlag: #monticelloToolWindowColor - ifAbsent: [Color - r: 0.627 - g: 0.69 - b: 0.976]!

1 0

The Trunk: System-ul.346.mcz
by commits＠source.squeak.org 01 Jul '10

01 Jul '10

1 0

The Trunk: System-ul.346.mcz
by commits＠source.squeak.org 01 Jul '10

01 Jul '10

1 0

Jump to page:

2024

2023

2022

2021

2020

2019

2018

2017

2016

2015

2014

2013

2012

2011

2010

2009

2008

2007

2006

2005

Packages July 2010