Packages July 2013

packages@lists.squeakfoundation.org

1 participants
522 discussions

The Trunk: TrueType-fbs.23.mcz
by commits＠source.squeak.org 02 Jul '13

02 Jul '13

Frank Shearar uploaded a new version of TrueType to project The Trunk: http://source.squeak.org/trunk/TrueType-fbs.23.mcz ==================== Summary ==================== Name: TrueType-fbs.23 Author: fbs Time: 2 July 2013, 10:17:49.29 pm UUID: fcdc0152-0d7a-284f-9e68-59c4ac55bb1d Ancestors: TrueType-fbs.22 Move graphical stuff up into Morphic-Multilingual. =============== Diff against TrueType-fbs.22 =============== Item was removed: - ----- Method: LinedTTCFont>>computeForm: (in category 'as yet unclassified') ----- - computeForm: char - - | ttGlyph scale | - - char = Character tab ifTrue: [^ super computeForm: char]. - - "char = $U ifTrue: [self doOnlyOnce: [self halt]]." - scale := self pixelSize asFloat / (ttcDescription ascender - ttcDescription descender). - ttGlyph := ttcDescription at: char. - ^ ttGlyph asFormWithScale: scale ascender: ttcDescription ascender descender: ttcDescription descender fgColor: foregroundColor bgColor: Color transparent depth: self depth replaceColor: false lineGlyph: lineGlyph lingGlyphWidth: contourWidth emphasis: emphasis! Item was removed: - ----- Method: TTCFont>>computeForm: (in category 'private') ----- - computeForm: char - "Compute the glyph form for the given character" - ^ttcDescription renderGlyph: char height: self height fgColor: foregroundColor bgColor: Color transparent depth: self depth!

1 0

The Trunk: Tools-fbs.478.mcz
by commits＠source.squeak.org 02 Jul '13

02 Jul '13

Frank Shearar uploaded a new version of Tools to project The Trunk: http://source.squeak.org/trunk/Tools-fbs.478.mcz ==================== Summary ==================== Name: Tools-fbs.478 Author: fbs Time: 2 July 2013, 8:55:00.661 pm UUID: e23933e2-9027-7b4f-97a8-c1c5dc0620de Ancestors: Tools-fbs.477 Revert accidental commit of alpha quality exploratory hack. =============== Diff against Tools-fbs.477 =============== Item was changed: ----- Method: Browser>>dragFromClassList: (in category 'drag and drop') ----- dragFromClassList: index "Drag a class from the browser" | name envt | (name := self classList at: index) ifNil: [ ^ nil ]. (envt := self selectedEnvironment) ifNil: [ ^ nil ]. - "To maintain our current place in the list, try select the next class." - (self classList size = 1) ifTrue: [self selectClassNamed: self classList first]. - (self classList size > 2) ifTrue: [ | currClassName classNames | - currClassName := self selectedClassName. - classNames := self classList. - self selectClassNamed: (currClassName = classNames last - ifTrue: [self classList before: currClassName] - ifFalse: [self classList after: currClassName])]. ^ envt at: name withBlanksTrimmed asSymbol ifAbsent: [ ]!

1 0

The Trunk: Tools-fbs.478.mcz
by commits＠source.squeak.org 02 Jul '13

02 Jul '13

1 0

The Trunk: Tools-fbs.478.mcz
by commits＠source.squeak.org 02 Jul '13

02 Jul '13

1 0

The Trunk: Tools-fbs.477.mcz
by commits＠source.squeak.org 02 Jul '13

02 Jul '13

Frank Shearar uploaded a new version of Tools to project The Trunk: http://source.squeak.org/trunk/Tools-fbs.477.mcz ==================== Summary ==================== Name: Tools-fbs.477 Author: fbs Time: 2 July 2013, 8:43:03.913 pm UUID: e1e06342-faa6-ad4e-9562-be1a71871fe9 Ancestors: Tools-fbs.476 Move Tools' MVC extensions to a separate package, ST80Tools. This makes Tools independent of MVC, at the cost of requiring an extra package to reload/unload MVC. =============== Diff against Tools-fbs.476 =============== Item was changed: ----- Method: Browser>>dragFromClassList: (in category 'drag and drop') ----- dragFromClassList: index "Drag a class from the browser" | name envt | (name := self classList at: index) ifNil: [ ^ nil ]. (envt := self selectedEnvironment) ifNil: [ ^ nil ]. + "To maintain our current place in the list, try select the next class." + (self classList size = 1) ifTrue: [self selectClassNamed: self classList first]. + (self classList size > 2) ifTrue: [ | currClassName classNames | + currClassName := self selectedClassName. + classNames := self classList. + self selectClassNamed: (currClassName = classNames last + ifTrue: [self classList before: currClassName] + ifFalse: [self classList after: currClassName])]. ^ envt at: name withBlanksTrimmed asSymbol ifAbsent: [ ]! Item was removed: - ----- Method: ParagraphEditor>>browseChangeSetsWithSelector (in category '*Tools') ----- - browseChangeSetsWithSelector - "Determine which, if any, change sets have at least one change for the selected selector, independent of class" - - | aSelector | - self lineSelectAndEmptyCheck: [^ self]. - (aSelector := self selectedSelector) == nil ifTrue: [^ view flash]. - self terminateAndInitializeAround: [ChangeSorter browseChangeSetsWithSelector: aSelector]! Item was removed: - ----- Method: ParagraphEditor>>browseItHere (in category '*Tools') ----- - browseItHere - "Retarget the receiver's window to look at the selected class, if appropriate. 3/1/96 sw" - | aSymbol b | - (((b := model) isKindOf: Browser) and: [b couldBrowseAnyClass]) - ifFalse: [^ view flash]. - model okToChange ifFalse: [^ view flash]. - self selectionInterval isEmpty ifTrue: [self selectWord]. - (aSymbol := self selectedSymbol) ifNil: [^ view flash]. - - self terminateAndInitializeAround: - [| foundClass | - foundClass := (Smalltalk at: aSymbol ifAbsent: [nil]). - foundClass ifNil: [^ view flash]. - (foundClass isKindOf: Class) - ifTrue: - [model selectSystemCategory: foundClass category. - model classListIndex: (model classList indexOf: foundClass name)]]! Item was removed: - ----- Method: ParagraphEditor>>debug:receiver:in: (in category '*Tools') ----- - debug: aCompiledMethod receiver: anObject in: evalContext - - | guineaPig debugger context | - guineaPig := [ - aCompiledMethod - valueWithReceiver: anObject - arguments: (evalContext ifNil: [ #() ] ifNotNil: [ { evalContext } ]) ] newProcess. - context := guineaPig suspendedContext. - debugger := Debugger new - process: guineaPig - controller: ((Smalltalk isMorphic not and: [ScheduledControllers inActiveControllerProcess]) - ifTrue: [ScheduledControllers activeController] - ifFalse: [nil]) - context: context. - debugger openFullNoSuspendLabel: 'Debug it'. - [debugger interruptedContext method == aCompiledMethod] - whileFalse: [debugger send]! Item was removed: - ----- Method: ParagraphEditor>>debugIt (in category '*Tools') ----- - debugIt - - | method receiver context | - (model respondsTo: #doItReceiver) - ifTrue: - [receiver := model doItReceiver. - context := model doItContext] - ifFalse: - [receiver := context := nil]. - self lineSelectAndEmptyCheck: [^self]. - method := self compileSelectionFor: receiver in: context. - method notNil ifTrue: - [self debug: method receiver: receiver in: context].! Item was removed: - ----- Method: ScreenController>>browseRecentLog (in category '*Tools') ----- - browseRecentLog - "Open a changelist browser on changes submitted since the last snapshot. 1/17/96 sw" - - ChangeList browseRecentLog! Item was removed: - ----- Method: ScreenController>>chooseDirtyBrowser (in category '*Tools') ----- - chooseDirtyBrowser - "Put up a list of browsers with unsubmitted edits and activate the one selected by the user, if any." - "ScheduledControllers screenController chooseDirtyBrowser" - - ScheduledControllers findWindowSatisfying: - [:c | (c model isKindOf: Browser) and: [c model canDiscardEdits not]]. - ! Item was removed: - ----- Method: ScreenController>>openChangeManager (in category '*Tools') ----- - openChangeManager - "Open a dual change sorter. For looking at two change sets at once." - DualChangeSorter new open! Item was removed: - ----- Method: ScreenController>>openFile (in category '*Tools') ----- - openFile - FileList openFileDirectly! Item was removed: - ----- Method: ScreenController>>openFileList (in category '*Tools') ----- - openFileList - "Create and schedule a FileList view for specifying files to access." - - FileList open! Item was removed: - ----- Method: ScreenController>>openPackageBrowser (in category '*Tools') ----- - openPackageBrowser - "Create and schedule a Browser view for browsing code." - - PackagePaneBrowser openBrowser! Item was removed: - ----- Method: ScreenController>>openSelectorBrowser (in category '*Tools') ----- - openSelectorBrowser - "Create and schedule a selector fragment window." - - SelectorBrowser new open! Item was removed: - ----- Method: ScreenController>>openSimpleChangeSorter (in category '*Tools') ----- - openSimpleChangeSorter - ChangeSorter new open! Item was removed: - ----- Method: StringHolderView>>canHaveUnacceptedEdits (in category '*Tools-multi-window support') ----- - canHaveUnacceptedEdits - "Answer if the receiver is an object that can hold unaccepted edits (such as a text editor widget)" - - ^true! Item was removed: - ----- Method: StringHolderView>>unacceptedEditState (in category '*Tools-multi-window support') ----- - unacceptedEditState - ^hasUnacceptedEdits ifTrue: [displayContents text]! Item was removed: - ----- Method: StringHolderView>>unacceptedEditState: (in category '*Tools-multi-window support') ----- - unacceptedEditState: stateOrNil - (hasUnacceptedEdits := stateOrNil notNil) ifTrue: - [self editString: stateOrNil]!

1 0

The Trunk: Tools-fbs.477.mcz
by commits＠source.squeak.org 02 Jul '13

02 Jul '13

1 0

The Trunk: Tools-fbs.477.mcz
by commits＠source.squeak.org 02 Jul '13

02 Jul '13

1 0

The Trunk: ST80Tools-fbs.1.mcz
by commits＠source.squeak.org 02 Jul '13

02 Jul '13

Frank Shearar uploaded a new version of ST80Tools to project The Trunk: http://source.squeak.org/trunk/ST80Tools-fbs.1.mcz ==================== Summary ==================== Name: ST80Tools-fbs.1 Author: fbs Time: 2 July 2013, 8:41:50.912 pm UUID: 108ec7bc-d1f5-dd4b-9511-e7a653a71e9f Ancestors: Move Tools' MVC extensions to a separate package, ST80Tools. This makes Tools independent of MVC, at the cost of requiring an extra package to reload/unload MVC. ==================== Snapshot ==================== ----- Method: ParagraphEditor>>browseChangeSetsWithSelector (in category '*ST80Tools') ----- browseChangeSetsWithSelector "Determine which, if any, change sets have at least one change for the selected selector, independent of class" | aSelector | self lineSelectAndEmptyCheck: [^ self]. (aSelector := self selectedSelector) == nil ifTrue: [^ view flash]. self terminateAndInitializeAround: [ChangeSorter browseChangeSetsWithSelector: aSelector]! ----- Method: ParagraphEditor>>browseItHere (in category '*ST80Tools') ----- browseItHere "Retarget the receiver's window to look at the selected class, if appropriate. 3/1/96 sw" | aSymbol b | (((b := model) isKindOf: Browser) and: [b couldBrowseAnyClass]) ifFalse: [^ view flash]. model okToChange ifFalse: [^ view flash]. self selectionInterval isEmpty ifTrue: [self selectWord]. (aSymbol := self selectedSymbol) ifNil: [^ view flash]. self terminateAndInitializeAround: [| foundClass | foundClass := (Smalltalk at: aSymbol ifAbsent: [nil]). foundClass ifNil: [^ view flash]. (foundClass isKindOf: Class) ifTrue: [model selectSystemCategory: foundClass category. model classListIndex: (model classList indexOf: foundClass name)]]! ----- Method: ParagraphEditor>>debug:receiver:in: (in category '*ST80Tools') ----- debug: aCompiledMethod receiver: anObject in: evalContext | guineaPig debugger context | guineaPig := [ aCompiledMethod valueWithReceiver: anObject arguments: (evalContext ifNil: [ #() ] ifNotNil: [ { evalContext } ]) ] newProcess. context := guineaPig suspendedContext. debugger := Debugger new process: guineaPig controller: ((Smalltalk isMorphic not and: [ScheduledControllers inActiveControllerProcess]) ifTrue: [ScheduledControllers activeController] ifFalse: [nil]) context: context. debugger openFullNoSuspendLabel: 'Debug it'. [debugger interruptedContext method == aCompiledMethod] whileFalse: [debugger send]! ----- Method: ParagraphEditor>>debugIt (in category '*ST80Tools') ----- debugIt | method receiver context | (model respondsTo: #doItReceiver) ifTrue: [receiver := model doItReceiver. context := model doItContext] ifFalse: [receiver := context := nil]. self lineSelectAndEmptyCheck: [^self]. method := self compileSelectionFor: receiver in: context. method notNil ifTrue: [self debug: method receiver: receiver in: context].! ----- Method: StringHolderView>>canHaveUnacceptedEdits (in category '*ST80Tools-multi-window support') ----- canHaveUnacceptedEdits "Answer if the receiver is an object that can hold unaccepted edits (such as a text editor widget)" ^true! ----- Method: StringHolderView>>unacceptedEditState (in category '*ST80Tools-multi-window support') ----- unacceptedEditState ^hasUnacceptedEdits ifTrue: [displayContents text]! ----- Method: StringHolderView>>unacceptedEditState: (in category '*ST80Tools-multi-window support') ----- unacceptedEditState: stateOrNil (hasUnacceptedEdits := stateOrNil notNil) ifTrue: [self editString: stateOrNil]! ----- Method: ScreenController>>browseRecentLog (in category '*ST80Tools') ----- browseRecentLog "Open a changelist browser on changes submitted since the last snapshot. 1/17/96 sw" ChangeList browseRecentLog! ----- Method: ScreenController>>chooseDirtyBrowser (in category '*ST80Tools') ----- chooseDirtyBrowser "Put up a list of browsers with unsubmitted edits and activate the one selected by the user, if any." "ScheduledControllers screenController chooseDirtyBrowser" ScheduledControllers findWindowSatisfying: [:c | (c model isKindOf: Browser) and: [c model canDiscardEdits not]]. ! ----- Method: ScreenController>>openChangeManager (in category '*ST80Tools') ----- openChangeManager "Open a dual change sorter. For looking at two change sets at once." DualChangeSorter new open! ----- Method: ScreenController>>openFile (in category '*ST80Tools') ----- openFile FileList openFileDirectly! ----- Method: ScreenController>>openFileList (in category '*ST80Tools') ----- openFileList "Create and schedule a FileList view for specifying files to access." FileList open! ----- Method: ScreenController>>openPackageBrowser (in category '*ST80Tools') ----- openPackageBrowser "Create and schedule a Browser view for browsing code." PackagePaneBrowser openBrowser! ----- Method: ScreenController>>openSelectorBrowser (in category '*ST80Tools') ----- openSelectorBrowser "Create and schedule a selector fragment window." SelectorBrowser new open! ----- Method: ScreenController>>openSimpleChangeSorter (in category '*ST80Tools') ----- openSimpleChangeSorter ChangeSorter new open!

1 0

The Trunk: ST80Tools-fbs.1.mcz
by commits＠source.squeak.org 02 Jul '13

02 Jul '13

1 0

The Trunk: ST80Tools-fbs.1.mcz
by commits＠source.squeak.org 02 Jul '13

02 Jul '13

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 2013