Squeak-dev March 2013

squeak-dev@lists.squeakfoundation.org

73 participants
283 discussions

How to call irsend
by Louis LaBrunda 05 Mar '13

05 Mar '13

Hi Guys, I would like to call irsend (a program that is part of lirc package) from Squeak on the Raspberry Pi. Can anyone please post some sample code. Lou ----------------------------------------------------------- Louis LaBrunda Keystone Software Corp. SkypeMe callto://PhotonDemon mailto:Lou@Keystone-Software.com http://www.Keystone-Software.com

4 31

Squeak 4.4 All-in-One (Re: [squeak-dev] Squeak 4.4 download link on squeak.org home page?)
by H. Hirzel 05 Mar '13

05 Mar '13

Hello Bert, Steps 2...5 are all fine and straightforward for us. Would it be possible for you to elaborate a recipe / procedure / algorithm for Step 1: make a new Squeak 4.4 All-in-One 1a) ..... 1b) ..... 1c) ..... Are tools needed for this? Regards Hannes On 3/5/13, Bert Freudenberg <bert(a)freudenbergs.de> wrote: > > On 2013-03-05, at 06:04, Paul DeBruicker <pdebruic(a)gmail.com> wrote: > >> Hi- >> >> I understand that there is a new website in development but it would be >> nice to have 4.4 mentioned on the homepage and linked to one the current >> website. >> >> I made an issue in Mantis here: >> http://bugs.squeak.org/view.php?id=7750 >> >> What can I do to get rid of the link to Squeak 4.3 all-in-one and >> replace it with one for the Squeak 4.4 all-in-one on the current >> squeak.org website? > > > Step 1: make a new Squeak 4.4 all-in-one > Step 2: upload it somewhere > Step 3: get someone to try it > Step 4: get someone to upload it to ftp.squeak.org > Step 5: get someone to change the download page > > - Bert - >

2 1

Unsubscribe?
by Ivan Tomek 05 Mar '13

05 Mar '13

I want to unsubscribe from several Squeak lists but the site doesn't seem to work. Any suggestions? Thanks. Ivan

2 1

SPLASH-13 CfPs: OOPSLA | Onward! | DLS | Wavefront
by Robert Hirschfeld 05 Mar '13

05 Mar '13

ACM Conference on Systems, Programming, Languages, and Applications: Software for Humanity SPLASH-13 Indiana, Indianapolis October 26-31, 2013 http://www.splashcon.org http://twitter.com/splashcon http://www.facebook.com/SPLASHCon http://www.linkedin.com/groups/SPLASH-Conference-2487082 Sponsored by ACM SIGPLAN /************************************************************** * COMBINED CALL FOR PAPERS * **************************************************************/ * Overview http://splashcon.org/2013/cfp * OOPSLA research papers http://splashcon.org/2013/cfp/618 Abstracts due: March 22, 2013 Submissions due: March 28, 2013 * Onward! research papers http://onward-conference.org http://splashcon.org/2013/cfp/647 Abstracts due: March 29, 2013 Submissions due: April 5, 2013 * Onward! essays http://splashcon.org/2013/cfp/662 Submissions due: April 10, 2013 * Dynamic Languages Symposium (DLS) http://www.splashcon.org/2013/cfp/651 http://www.dynamic-languages-symposium.org/dls-13/cfp/ Submissions due: June 8, 2013 * Wavefront papers and experience reports http://splashcon.org/2013/cfp/656 Submissions due: April 5, 2013 /*************************************************************/ -- Robert Hirschfeld hirschfeld(a)acm.org www.hirschfeld.org

1 0

The Trunk: System-fbs.519.mcz
by commits＠source.squeak.org 05 Mar '13

05 Mar '13

Frank Shearar uploaded a new version of System to project The Trunk: http://source.squeak.org/trunk/System-fbs.519.mcz ==================== Summary ==================== Name: System-fbs.519 Author: fbs Time: 5 March 2013, 9:42:43.464 am UUID: a3b616df-8d21-499a-8844-abf2d9c247a3 Ancestors: System-fbs.518 Simple typo fix. =============== Diff against System-fbs.518 =============== Item was changed: Stream subclass: #DummyStream instanceVariableNames: '' classVariableNames: '' poolDictionaries: '' category: 'System-Object Storage'! + !DummyStream commentStamp: 'fbs 3/5/2013 09:42' prior: 0! + The purpose of this class is to absorb all stream messages and do nothing. This is so ReferenceStream can pretend to write on it while traversing all objects it would normally write. We need to know what those object are. 8/17/96 tk - !DummyStream commentStamp: '<historical>' prior: 0! - The purpose of this class is to absorb all steam messages and do nothing. This is so ReferenceStream can pretend to write on it while traversing all objects it would normally write. We need to know what those object are. 8/17/96 tk !

1 0

The Trunk: System-fbs.518.mcz
by commits＠source.squeak.org 05 Mar '13

05 Mar '13

Frank Shearar uploaded a new version of System to project The Trunk: http://source.squeak.org/trunk/System-fbs.518.mcz ==================== Summary ==================== Name: System-fbs.518 Author: fbs Time: 5 March 2013, 9:37:27.65 am UUID: 1a7fc936-536a-48da-b154-4ad4ba13d341 Ancestors: System-fbs.517 Put all the SmallLand colour themes in a separate package. =============== Diff against System-fbs.517 =============== Item was removed: - SmallLandColorTheme subclass: #BlueSmallLandColorTheme - instanceVariableNames: '' - classVariableNames: '' - poolDictionaries: '' - category: 'System-Support'! Item was removed: - ----- Method: BlueSmallLandColorTheme>>baseColors (in category 'initialization') ----- - baseColors - " - BlueSmallLandColorTheme apply. - " - ^ Array - with: (Color fromArray: #(0.2 0.3 0.9 )) - with: (Color fromArray: #(0.6 0.7 1.0 )) - with: (Color fromArray: #(0.85 0.9 1.0 ))! Item was removed: - SmallLandColorTheme subclass: #GraySmallLandColorTheme - instanceVariableNames: '' - classVariableNames: '' - poolDictionaries: '' - category: 'System-Support'! Item was removed: - ----- Method: GraySmallLandColorTheme>>baseColors (in category 'initialization') ----- - baseColors - " - GraySmallLandColorTheme apply. - " - ^ Array - with: (Color fromArray: #(0.4 0.4 0.4 )) - with: (Color fromArray: #(0.8 0.8 0.8 )) - with: (Color fromArray: #(0.97 0.97 0.97 ))! Item was removed: - SmallLandColorTheme subclass: #GreenSmallLandColorTheme - instanceVariableNames: '' - classVariableNames: '' - poolDictionaries: '' - category: 'System-Support'! Item was removed: - ----- Method: GreenSmallLandColorTheme>>baseColors (in category 'initialize-release') ----- - baseColors - " - GreenSmallLandColorTheme apply. - " - ^ Array - with: (Color fromArray: #(0.1 0.5 0.3 )) - with: (Color fromArray: #(0.2 0.9 0.6 )) - with: (Color fromArray: #(0.85 1.0 0.98 ))! Item was removed: - SmallLandColorTheme subclass: #MagentaSmallLandColorTheme - instanceVariableNames: '' - classVariableNames: '' - poolDictionaries: '' - category: 'System-Support'! Item was removed: - ----- Method: MagentaSmallLandColorTheme>>baseColors (in category 'initialization') ----- - baseColors - " - MagentaSmallLandColorTheme apply. - " - ^ Array - with: (Color fromArray: #(0.8 0.1 0.7 )) - with: (Color fromArray: #(1.0 0.3 0.9 )) - with: (Color fromArray: #(1.0 0.9 0.8 ))! Item was removed: - SmallLandColorTheme subclass: #OrangeSmallLandColorTheme - instanceVariableNames: '' - classVariableNames: '' - poolDictionaries: '' - category: 'System-Support'! Item was removed: - ----- Method: OrangeSmallLandColorTheme>>baseColors (in category 'initialization') ----- - baseColors - " - OrangeSmallLandColorTheme apply. - " - ^ Array - with: (Color fromArray: #(0.8 0.4 0.0 )) - with: (Color fromArray: #(1.0 0.8 0.0 )) - with: (Color fromArray: #(1.0 1.0 0.8 ))! Item was removed: - SmallLandColorTheme subclass: #RedSmallLandColorTheme - instanceVariableNames: '' - classVariableNames: '' - poolDictionaries: '' - category: 'System-Support'! Item was removed: - ----- Method: RedSmallLandColorTheme>>baseColors (in category 'initialization') ----- - baseColors - " - RedSmallLandColorTheme apply. - " - ^ Array - with: (Color fromArray: #(0.8 0.0 0.2 )) - with: (Color fromArray: #(0.97 0.13 0.3 )) - with: (Color fromArray: #(1.0 0.88 0.97 ))! Item was removed: - ColorTheme subclass: #SmallLandColorTheme - instanceVariableNames: 'darks normals lights' - classVariableNames: '' - poolDictionaries: '' - category: 'System-Support'! Item was removed: - ----- Method: SmallLandColorTheme class>>allThemes (in category 'accessing') ----- - allThemes - " - SmallLandColorTheme allThemes. - " - ^ self withAllSubclasses - reject: [:each | each == self]! Item was removed: - ----- Method: SmallLandColorTheme class>>chooseTheme (in category 'accessing') ----- - chooseTheme - " - SmallLandColorTheme chooseTheme. - " - | themes menu | - menu := MenuMorph new defaultTarget: self. - menu addTitle: 'choose color theme' translated. - Preferences noviceMode - ifFalse: [menu addStayUpItem]. - "" - themes := self allThemes - asSortedCollection: [:x :y | x themeName translated <= y themeName translated]. - themes - do: [:each | ""menu - addUpdating: #stringForTheme: - target: each - selector: #applyTheme: - argumentList: {each}]. - "" - menu popUpInWorld! Item was removed: - ----- Method: SmallLandColorTheme class>>stringForTheme: (in category 'accessing') ----- - stringForTheme: aTheme - - ^ (aTheme == ColorTheme current class - ifTrue: ['<on>'] - ifFalse: ['<off>']) - , aTheme themeName translated.! Item was removed: - ----- Method: SmallLandColorTheme class>>themeName (in category 'accessing') ----- - themeName - " - self themeName. - - BlueSmallLandColorTheme themeName. - GreenSmallLandColorTheme themeName. - " - ^ self name allButLast: 'SmallLandColorTheme' size. - ! Item was removed: - ----- Method: SmallLandColorTheme>>apply (in category 'applying') ----- - apply - Preferences installBrightWindowColors. - "" - super apply. - "" - self updateTopProject. - self updateFlaps. - self updateWorldMainDockingBar! Item was removed: - ----- Method: SmallLandColorTheme>>balloonColor (in category 'theme') ----- - balloonColor - ^ (self light: 1) twiceLighter alpha: 0.95"Color white alpha: 0.95"! Item was removed: - ----- Method: SmallLandColorTheme>>baseColors (in category 'initialization') ----- - baseColors - "Answer a collection of the 3 base colors" - ^ self subclassResponsibility! Item was removed: - ----- Method: SmallLandColorTheme>>cancelColor (in category 'theme') ----- - cancelColor - ^ super cancelColor"self normal: 8"! Item was removed: - ----- Method: SmallLandColorTheme>>dark: (in category 'private - colors') ----- - dark: index - ^ darks at: index! Item was removed: - ----- Method: SmallLandColorTheme>>defaultWorldColor (in category 'theme') ----- - defaultWorldColor - ^ (self light: 1) twiceLighter twiceLighter ! Item was removed: - ----- Method: SmallLandColorTheme>>dialog3DTitles (in category 'theme - dialogs') ----- - dialog3DTitles - ^ false! Item was removed: - ----- Method: SmallLandColorTheme>>dialogBorderColor (in category 'theme - dialogs') ----- - dialogBorderColor - ^ (self dark: 5) ! Item was removed: - ----- Method: SmallLandColorTheme>>dialogBorderWidth (in category 'theme - dialogs') ----- - dialogBorderWidth - ^ 2! Item was removed: - ----- Method: SmallLandColorTheme>>dialogButtonBorderWidth (in category 'theme - dialogs') ----- - dialogButtonBorderWidth - ^ 1! Item was removed: - ----- Method: SmallLandColorTheme>>dialogColor (in category 'theme - dialogs') ----- - dialogColor - ^ self light: 3! Item was removed: - ----- Method: SmallLandColorTheme>>dialogPaneBorderColor (in category 'theme - dialogs') ----- - dialogPaneBorderColor - ^ self dialogTextBoxBorderColor ! Item was removed: - ----- Method: SmallLandColorTheme>>dialogPaneBorderWidth (in category 'theme - dialogs') ----- - dialogPaneBorderWidth - ^ 1! Item was removed: - ----- Method: SmallLandColorTheme>>dialogPaneRampOrColor (in category 'theme - dialogs') ----- - dialogPaneRampOrColor - ^ self dialogTextBoxColor! Item was removed: - ----- Method: SmallLandColorTheme>>dialogRampOrColor (in category 'theme - dialogs') ----- - dialogRampOrColor - ^ self dialogColor! Item was removed: - ----- Method: SmallLandColorTheme>>dialogTextBoxBorderColor (in category 'theme - dialogs') ----- - dialogTextBoxBorderColor - ^ self normal: 1! Item was removed: - ----- Method: SmallLandColorTheme>>dialogTextBoxColor (in category 'theme - dialogs') ----- - dialogTextBoxColor - ^ self light: 1! Item was removed: - ----- Method: SmallLandColorTheme>>dockingBarAutoGradient (in category 'theme - dockingbar') ----- - dockingBarAutoGradient - ^ true! Item was removed: - ----- Method: SmallLandColorTheme>>dockingBarColor (in category 'theme - dockingbar') ----- - dockingBarColor - ^self normal:1! Item was removed: - ----- Method: SmallLandColorTheme>>dockingBarGradientRamp (in category 'theme - dockingbar') ----- - dockingBarGradientRamp - ^ {0.0 -> Color white. 1.0 - -> (self normal:1)}! Item was removed: - ----- Method: SmallLandColorTheme>>helpColor (in category 'theme') ----- - helpColor - ^ self okColor! Item was removed: - ----- Method: SmallLandColorTheme>>initialize (in category 'initialization') ----- - initialize - "Initialize the receiver" - | baseColors | - super initialize. - "" - baseColors := self baseColors. - "" - darks := baseColors first wheel: 8. - normals := baseColors second wheel: 8. - lights := baseColors third wheel: 8! Item was removed: - ----- Method: SmallLandColorTheme>>insertionPointColor (in category 'theme') ----- - insertionPointColor - ^ self normal: 7! Item was removed: - ----- Method: SmallLandColorTheme>>keyboardFocusColor (in category 'theme') ----- - keyboardFocusColor - ^ self normal: 8! Item was removed: - ----- Method: SmallLandColorTheme>>labelForColor: (in category 'private - colors') ----- - labelForColor: aColor - ^ (aColor red roundTo: 0.01) asString , ' ' , (aColor green roundTo: 0.01) asString , ' ' , (aColor blue roundTo: 0.01) asString! Item was removed: - ----- Method: SmallLandColorTheme>>light: (in category 'private - colors') ----- - light: index - ^ lights at: index! Item was removed: - ----- Method: SmallLandColorTheme>>menuBorderColor (in category 'theme - menus') ----- - menuBorderColor - ^self dark: 1! Item was removed: - ----- Method: SmallLandColorTheme>>menuBorderWidth (in category 'theme - menus') ----- - menuBorderWidth ^ 2.! Item was removed: - ----- Method: SmallLandColorTheme>>menuColor (in category 'theme - menus') ----- - menuColor - ^ self light: 1! Item was removed: - ----- Method: SmallLandColorTheme>>menuLineColor (in category 'theme - menus') ----- - menuLineColor - ^ self normal: 1! Item was removed: - ----- Method: SmallLandColorTheme>>menuSelectionColor (in category 'theme - menus') ----- - menuSelectionColor - ^ self dark: 1! Item was removed: - ----- Method: SmallLandColorTheme>>menuTitleBorderColor (in category 'theme - menus') ----- - menuTitleBorderColor - ^ self menuTitleColor ! Item was removed: - ----- Method: SmallLandColorTheme>>menuTitleBorderWidth (in category 'theme - menus') ----- - menuTitleBorderWidth - ^ 6! Item was removed: - ----- Method: SmallLandColorTheme>>menuTitleColor (in category 'theme - menus') ----- - menuTitleColor - ^ self normal: 1! Item was removed: - ----- Method: SmallLandColorTheme>>normal: (in category 'private - colors') ----- - normal: index - ^ normals at: index! Item was removed: - ----- Method: SmallLandColorTheme>>okColor (in category 'theme') ----- - okColor - ^ super okColor "self normal: 2"! Item was removed: - ----- Method: SmallLandColorTheme>>printOn: (in category 'printing') ----- - printOn: aStream - aStream nextPutAll: 'Small-Land Color Theme: ', self class themeName! Item was removed: - ----- Method: SmallLandColorTheme>>rowOf: (in category 'private - colors') ----- - rowOf: colors - | row | - row := AlignmentMorph newRow. - row cellInset: 5. - row color: Color white. - "" - colors - do: [:each | - | box label | - box := RectangleMorph new. - box extent: 100 @ 60. - box color: each. - box borderWidth: 2. - box borderColor: box color muchDarker. - "" - label := StringMorph - contents: (self labelForColor: each). - label color: each negated. - box addMorphCentered: label. - "" - row addMorphBack: box]. - "" - ^ row ! Item was removed: - ----- Method: SmallLandColorTheme>>showColors (in category 'private - colors') ----- - showColors - " - BlueSmallLandColorTheme new showColors. - " - | col | - col := AlignmentMorph newColumn. - col color: Color white. - col - addMorphBack: (self rowOf: darks). - col - addMorphBack: (self rowOf: normals). - col - addMorphBack: (self rowOf: lights). - "" - col openInWorld! Item was removed: - ----- Method: SmallLandColorTheme>>textHighlightColor (in category 'theme') ----- - textHighlightColor - ^self normal: 1! Item was removed: - ----- Method: SmallLandColorTheme>>updateFlaps (in category 'applying') ----- - updateFlaps - Flaps globalFlapTabs - select: [:each | each flapID = 'Supplies' translated] - thenDo: [:each | - each - color: (self normal: 1); - - borderColor: (self normal: 1); - borderWidth: (self menuBorderWidth). - "" - each referent - color: (self light: 1); - borderWidth: (self menuBorderWidth); - - borderColor: (self normal: 1)]! Item was removed: - ----- Method: SmallLandColorTheme>>updateTopProject (in category 'applying') ----- - updateTopProject - Project current == Project topProject - ifFalse:[^ self]. - - "" - World color: Preferences defaultWorldColor. - World submorphs - select: [:each | "" - (each isKindOf: StringMorph) - and: [each contents = 'Squeak']] - thenDo: [:each | each - color: (self dark: 1)]. - ! Item was removed: - ----- Method: SmallLandColorTheme>>updateWorldMainDockingBar (in category 'applying') ----- - updateWorldMainDockingBar - | oldPreference | - oldPreference := Project current showWorldMainDockingBar. - "" - Project current showWorldMainDockingBar: false. - Project current showWorldMainDockingBar: oldPreference. - TheWorldMainDockingBar updateInstances! Item was removed: - SmallLandColorTheme subclass: #VioletSmallLandColorTheme - instanceVariableNames: '' - classVariableNames: '' - poolDictionaries: '' - category: 'System-Support'! Item was removed: - ----- Method: VioletSmallLandColorTheme>>baseColors (in category 'as yet unclassified') ----- - baseColors - " - VioletSmallLandColorTheme apply. - " - ^ Array - with: (Color fromArray: #(0.6 0.0 1.0 )) - with: (Color fromArray: #(0.8 0.4 1.0 )) - with: (Color fromArray: #(0.95 0.95 1.0 ))! Item was removed: - SmallLandColorTheme subclass: #YellowSmallLandColorTheme - instanceVariableNames: '' - classVariableNames: '' - poolDictionaries: '' - category: 'System-Support'! Item was removed: - ----- Method: YellowSmallLandColorTheme>>baseColors (in category 'initialization') ----- - baseColors - " - YellowSmallLandColorTheme apply. - " - ^ Array - with: (Color fromArray: #(0.6 0.6 0.0 )) - with: (Color fromArray: #(0.9 0.9 0.3 )) - with: (Color fromArray: #(1.0 1.0 0.9 ))!

1 0

The Trunk: System-fbs.517.mcz
by commits＠source.squeak.org 05 Mar '13

05 Mar '13

Frank Shearar uploaded a new version of System to project The Trunk: http://source.squeak.org/trunk/System-fbs.517.mcz ==================== Summary ==================== Name: System-fbs.517 Author: fbs Time: 4 March 2013, 10:44:38.221 pm UUID: 33c1ed01-a761-41ed-8dd8-f4abf26395b3 Ancestors: System-fbs.516 Transform callers of Utilities class >> #timeStampForMethod: to callers of CompiledMethod >> #timeStamp. =============== Diff against System-fbs.516 =============== Item was changed: ----- Method: ChangeSet>>methodsWithInitialsOtherThan: (in category 'moving changes') ----- methodsWithInitialsOtherThan: myInits "Return a collection of method refs whose author appears to be different from the given one" | slips | slips := OrderedCollection new. self changedClasses do: [:aClass | (self methodChangesAtClass: aClass name) associationsDo: [:mAssoc | | aTimeStamp method | (#(remove addedThenRemoved) includes: mAssoc value) ifFalse: [method := aClass compiledMethodAt: mAssoc key ifAbsent: [nil]. method ifNotNil: + [((aTimeStamp := method timeStamp) notNil and: - [((aTimeStamp := Utilities timeStampForMethod: method) notNil and: [(aTimeStamp beginsWith: myInits) not]) ifTrue: [slips add: aClass name , ' ' , mAssoc key]]]]]. ^ slips "Smalltalk browseMessageList: (ChangeSet current methodsWithInitialsOtherThan: 'sw') name: 'authoring problems'"! Item was changed: ----- Method: ImageSegment>>writeForExportWithSources:inDirectory: (in category 'read/write segment') ----- writeForExportWithSources: fName inDirectory: aDirectory "Write the segment on the disk with all info needed to reconstruct it in a new image. For export. Out pointers are encoded as normal objects on the disk. Append the source code of any classes in roots. Target system will quickly transfer the sources to its changes file." "this is the old version which I restored until I solve the gzip problem" | fileStream temp tempFileName zipper allClassesInRoots classesToWriteEntirely methodsWithSource | state = #activeCopy ifFalse: [self error: 'wrong state']. (fName includes: $.) ifFalse: [ ^ self inform: 'Please use ''.pr'' or ''.extSeg'' at the end of the file name'.]. temp := endMarker. endMarker := nil. tempFileName := aDirectory nextNameFor: 'SqProject' extension: 'temp'. zipper := [ ProgressNotification signal: '3:uncompressedSaveComplete'. (aDirectory oldFileNamed: tempFileName) compressFile. "makes xxx.gz" aDirectory rename: (tempFileName, FileDirectory dot, 'gz') toBe: fName. aDirectory deleteFileNamed: tempFileName ifAbsent: [] ]. fileStream := aDirectory newFileNamed: tempFileName. fileStream fileOutClass: nil andObject: self. "remember extra structures. Note class names." endMarker := temp. "append sources" allClassesInRoots := arrayOfRoots select: [:cls | cls isKindOf: Behavior]. classesToWriteEntirely := allClassesInRoots select: [ :cls | cls theNonMetaClass isSystemDefined]. methodsWithSource := OrderedCollection new. allClassesInRoots do: [ :cls | (classesToWriteEntirely includes: cls) ifFalse: [ cls selectorsAndMethodsDo: [ :sel :meth | meth sourcePointer = 0 ifFalse: [methodsWithSource add: {cls. sel. meth}]. ]. ]. ]. (classesToWriteEntirely isEmpty and: [methodsWithSource isEmpty]) ifTrue: [zipper value. ^ self]. fileStream reopen; setToEnd. fileStream nextPutAll: '\\!!ImageSegment new!!\\' withCRs. methodsWithSource do: [ :each | fileStream nextPut: $!!. "try to pacify ImageSegment>>scanFrom:" fileStream nextChunkPut: 'RenamedClassSourceReader formerClassName: ', each first name printString,' methodsFor: ', (each first organization categoryOfElement: each second) asString printString, + ' stamp: ',(each third timeStamp) printString; cr. - ' stamp: ',(Utilities timeStampForMethod: each third) printString; cr. fileStream nextChunkPut: (each third getSourceFor: each second in: each first) asString. fileStream nextChunkPut: ' '; cr. ]. classesToWriteEntirely do: [:cls | cls isMeta ifFalse: [fileStream nextPutAll: (cls name, ' category: ''', cls category, '''.!!'); cr; cr]. cls organization putCommentOnFile: fileStream numbered: 0 moveSource: false forClass: cls. "does nothing if metaclass" cls organization categories do: [:heading | cls fileOutCategory: heading on: fileStream moveSource: false toFile: 0]]. "no class initialization -- it came in as a real object" fileStream close. zipper value.! Item was changed: ----- Method: ImageSegment>>writeForExportWithSources:inDirectory:changeSet: (in category 'read/write segment') ----- writeForExportWithSources: fName inDirectory: aDirectory changeSet: aChangeSetOrNil "Write the segment on the disk with all info needed to reconstruct it in a new image. For export. Out pointers are encoded as normal objects on the disk. Append the source code of any classes in roots. Target system will quickly transfer the sources to its changes file." "Files out a changeSet first, so that a project can contain classes that are unique to the project." | fileStream temp tempFileName zipper allClassesInRoots classesToWriteEntirely methodsWithSource | state = #activeCopy ifFalse: [self error: 'wrong state']. (fName includes: $.) ifFalse: [ ^ self inform: 'Please use ''.pr'' or ''.extSeg'' at the end of the file name'.]. temp := endMarker. endMarker := nil. tempFileName := aDirectory nextNameFor: 'SqProject' extension: 'temp'. zipper := [ Preferences debugPrintSpaceLog ifTrue:[ fileStream := aDirectory newFileNamed: (fName copyFrom: 1 to: (fName lastIndexOf: $.)), 'space'. self printSpaceAnalysisOn: fileStream. fileStream close]. ProgressNotification signal: '3:uncompressedSaveComplete'. (aDirectory oldFileNamed: tempFileName) compressFile. "makes xxx.gz" aDirectory rename: (tempFileName, FileDirectory dot, 'gz') toBe: fName. aDirectory deleteFileNamed: tempFileName ifAbsent: [] ]. fileStream := aDirectory newFileNamed: tempFileName. fileStream fileOutChangeSet: aChangeSetOrNil andObject: self. "remember extra structures. Note class names." endMarker := temp. "append sources" allClassesInRoots := arrayOfRoots select: [:cls | cls isKindOf: Behavior]. classesToWriteEntirely := allClassesInRoots select: [ :cls | cls theNonMetaClass isSystemDefined]. methodsWithSource := OrderedCollection new. allClassesInRoots do: [ :cls | (classesToWriteEntirely includes: cls) ifFalse: [ cls selectorsAndMethodsDo: [ :sel :meth | meth sourcePointer = 0 ifFalse: [methodsWithSource add: {cls. sel. meth}]. ]. ]. ]. (classesToWriteEntirely isEmpty and: [methodsWithSource isEmpty]) ifTrue: [zipper value. ^ self]. fileStream reopen; setToEnd. fileStream nextPutAll: '\\!!ImageSegment new!!\\' withCRs. methodsWithSource do: [ :each | fileStream nextPut: $!!. "try to pacify ImageSegment>>scanFrom:" fileStream nextChunkPut: 'RenamedClassSourceReader formerClassName: ', each first name printString,' methodsFor: ', (each first organization categoryOfElement: each second) asString printString, + ' stamp: ',(each third timeStamp) printString; cr. - ' stamp: ',(Utilities - timeStampForMethod: each third) printString; cr. fileStream nextChunkPut: (each third getSourceFor: each second in: each first) asString. fileStream nextChunkPut: ' '; cr. ]. classesToWriteEntirely do: [:cls | cls isMeta ifFalse: [fileStream nextPutAll: (cls name, ' category: ''', cls category, '''.!!'); cr; cr]. cls organization putCommentOnFile: fileStream numbered: 0 moveSource: false forClass: cls. "does nothing if metaclass" cls organization categories do: [:heading | cls fileOutCategory: heading on: fileStream moveSource: false toFile: 0]]. "no class initialization -- it came in as a real object" fileStream close. zipper value. ! Item was changed: ----- Method: ImageSegment>>writeForExportWithSourcesGZ:inDirectory: (in category 'read/write segment') ----- writeForExportWithSourcesGZ: fName inDirectory: aDirectory "Write the segment on the disk with all info needed to reconstruct it in a new image. For export. Out pointers are encoded as normal objects on the disk. Append the source code of any classes in roots. Target system will quickly transfer the sources to its changes file." "this is the gzipped version which I have temporarily suspended until I can get resolve the problem with forward references tring to reposition the stream - RAA 11 june 2000" | fileStream temp allClassesInRoots classesToWriteEntirely methodsWithSource | state = #activeCopy ifFalse: [self error: 'wrong state']. (fName includes: $.) ifFalse: [ ^ self inform: 'Please use ''.pr'' or ''.extSeg'' at the end of the file name'.]. temp := endMarker. endMarker := nil. fileStream := GZipSurrogateStream newFileNamed: fName inDirectory: aDirectory. fileStream fileOutClass: nil andObject: self. "remember extra structures. Note class names." endMarker := temp. "append sources" allClassesInRoots := arrayOfRoots select: [:cls | cls isKindOf: Behavior]. classesToWriteEntirely := allClassesInRoots select: [ :cls | cls theNonMetaClass isSystemDefined]. methodsWithSource := OrderedCollection new. allClassesInRoots do: [ :cls | (classesToWriteEntirely includes: cls) ifFalse: [ cls selectorsAndMethodsDo: [ :sel :meth | meth sourcePointer = 0 ifFalse: [methodsWithSource add: {cls. sel. meth}]. ]. ]. ]. (classesToWriteEntirely isEmpty and: [methodsWithSource isEmpty]) ifTrue: [ fileStream reallyClose. "since #close is ignored" ^ self ]. "fileStream reopen; setToEnd." "<--not required with gzipped surrogate stream" fileStream nextPutAll: '\\!!ImageSegment new!!\\' withCRs. methodsWithSource do: [ :each | fileStream nextPut: $!!. "try to pacify ImageSegment>>scanFrom:" fileStream nextChunkPut: 'RenamedClassSourceReader formerClassName: ', each first name printString,' methodsFor: ', (each first organization categoryOfElement: each second) asString printString, + ' stamp: ',(each third timeStamp) printString; cr. - ' stamp: ',(Utilities timeStampForMethod: each third) printString; cr. fileStream nextChunkPut: (each third getSourceFor: each second in: each first) asString. fileStream nextChunkPut: ' '; cr. ]. classesToWriteEntirely do: [:cls | cls isMeta ifFalse: [fileStream nextPutAll: (cls name, ' category: ''', cls category, '''.!!'); cr; cr]. cls organization putCommentOnFile: fileStream numbered: 0 moveSource: false forClass: cls. "does nothing if metaclass" cls organization categories do: [:heading | cls fileOutCategory: heading on: fileStream moveSource: false toFile: 0]]. "no class initialization -- it came in as a real object" fileStream reallyClose. "since #close is ignored" ! Item was changed: ----- Method: Utilities class>>doesMethod:forClass:bearInitials: (in category 'miscellaneous') ----- doesMethod: aSelector forClass: aClass bearInitials: initials "Answer whether a method bears the given initials at the head of its time stamp" | aTimeStamp implementingClass aMethod | implementingClass := aClass whichClassIncludesSelector: aSelector. implementingClass ifNil: [^ false]. (aMethod := implementingClass compiledMethodAt: aSelector) ifNil: [^ false]. + ^ (aTimeStamp := aMethod timeStamp) notNil and: - ^ (aTimeStamp := self timeStampForMethod: aMethod) notNil and: [aTimeStamp beginsWith: initials]! Item was changed: ----- Method: Utilities class>>methodsWithInitials: (in category 'identification') ----- methodsWithInitials: targetInitials "Based on a do-it contributed to the Squeak mailing list by Göran Hultgen: Browse methods whose initials (in the time-stamp, as logged to disk) match the given initials. Print out the complete time-stamp table to the Transcript. Answer a list of (initials -> count) associations. CAUTION: It may take several minutes for this to complete." "Time millisecondsToRun: [Utilities methodsWithInitials: 'bf']" | initials timeStamp allSubmitters | initials := ''. timeStamp := ''. allSubmitters := Bag new. self systemNavigation browseAllSelect: [:cm | + timeStamp := cm timeStamp. - timeStamp := Utilities timeStampForMethod: cm. initials := timeStamp isEmpty ifTrue: [''] ifFalse: [timeStamp substrings first]. initials := initials isEmpty ifTrue: ['<no time stamp>'] ifFalse: [initials first isDigit ifTrue: ['<date>'] ifFalse: [initials]]. allSubmitters add: initials. (initials = targetInitials)] name: ('Methods with initials ', targetInitials) autoSelect: nil. allSubmitters sortedCounts do: [:elem | Transcript cr; show: elem asString]. ^ allSubmitters ! Item was removed: - ----- Method: Utilities class>>timeStampForMethod: (in category 'miscellaneous') ----- - timeStampForMethod: method - "Answer the authoring time-stamp for the given method, retrieved from the sources or changes file. Answer the empty string if no time stamp is available." - "Utilities timeStampForMethod: (Utilities class compiledMethodAt: #timeStampForMethod:)" - - ^ method timeStamp!

1 0

The Trunk: SmallLand-ColorTheme-fbs.1.mcz
by commits＠source.squeak.org 05 Mar '13

05 Mar '13

Frank Shearar uploaded a new version of SmallLand-ColorTheme to project The Trunk: http://source.squeak.org/trunk/SmallLand-ColorTheme-fbs.1.mcz ==================== Summary ==================== Name: SmallLand-ColorTheme-fbs.1 Author: fbs Time: 5 March 2013, 9:33:48.238 am UUID: c4426ce9-1634-41c0-af8c-cb1b56a90aba Ancestors: Put all the SmallLand colour themes in a separate package. ==================== Snapshot ==================== SystemOrganization addCategory: #'SmallLand-ColorTheme'! ColorTheme subclass: #SmallLandColorTheme instanceVariableNames: 'darks normals lights' classVariableNames: '' poolDictionaries: '' category: 'SmallLand-ColorTheme'! SmallLandColorTheme subclass: #BlueSmallLandColorTheme instanceVariableNames: '' classVariableNames: '' poolDictionaries: '' category: 'SmallLand-ColorTheme'! ----- Method: BlueSmallLandColorTheme>>baseColors (in category 'initialization') ----- baseColors " BlueSmallLandColorTheme apply. " ^ Array with: (Color fromArray: #(0.2 0.3 0.9 )) with: (Color fromArray: #(0.6 0.7 1.0 )) with: (Color fromArray: #(0.85 0.9 1.0 ))! SmallLandColorTheme subclass: #GraySmallLandColorTheme instanceVariableNames: '' classVariableNames: '' poolDictionaries: '' category: 'SmallLand-ColorTheme'! ----- Method: GraySmallLandColorTheme>>baseColors (in category 'initialization') ----- baseColors " GraySmallLandColorTheme apply. " ^ Array with: (Color fromArray: #(0.4 0.4 0.4 )) with: (Color fromArray: #(0.8 0.8 0.8 )) with: (Color fromArray: #(0.97 0.97 0.97 ))! SmallLandColorTheme subclass: #GreenSmallLandColorTheme instanceVariableNames: '' classVariableNames: '' poolDictionaries: '' category: 'SmallLand-ColorTheme'! ----- Method: GreenSmallLandColorTheme>>baseColors (in category 'initialize-release') ----- baseColors " GreenSmallLandColorTheme apply. " ^ Array with: (Color fromArray: #(0.1 0.5 0.3 )) with: (Color fromArray: #(0.2 0.9 0.6 )) with: (Color fromArray: #(0.85 1.0 0.98 ))! SmallLandColorTheme subclass: #MagentaSmallLandColorTheme instanceVariableNames: '' classVariableNames: '' poolDictionaries: '' category: 'SmallLand-ColorTheme'! ----- Method: MagentaSmallLandColorTheme>>baseColors (in category 'initialization') ----- baseColors " MagentaSmallLandColorTheme apply. " ^ Array with: (Color fromArray: #(0.8 0.1 0.7 )) with: (Color fromArray: #(1.0 0.3 0.9 )) with: (Color fromArray: #(1.0 0.9 0.8 ))! SmallLandColorTheme subclass: #OrangeSmallLandColorTheme instanceVariableNames: '' classVariableNames: '' poolDictionaries: '' category: 'SmallLand-ColorTheme'! ----- Method: OrangeSmallLandColorTheme>>baseColors (in category 'initialization') ----- baseColors " OrangeSmallLandColorTheme apply. " ^ Array with: (Color fromArray: #(0.8 0.4 0.0 )) with: (Color fromArray: #(1.0 0.8 0.0 )) with: (Color fromArray: #(1.0 1.0 0.8 ))! SmallLandColorTheme subclass: #RedSmallLandColorTheme instanceVariableNames: '' classVariableNames: '' poolDictionaries: '' category: 'SmallLand-ColorTheme'! ----- Method: RedSmallLandColorTheme>>baseColors (in category 'initialization') ----- baseColors " RedSmallLandColorTheme apply. " ^ Array with: (Color fromArray: #(0.8 0.0 0.2 )) with: (Color fromArray: #(0.97 0.13 0.3 )) with: (Color fromArray: #(1.0 0.88 0.97 ))! ----- Method: SmallLandColorTheme class>>allThemes (in category 'accessing') ----- allThemes " SmallLandColorTheme allThemes. " ^ self withAllSubclasses reject: [:each | each == self]! ----- Method: SmallLandColorTheme class>>chooseTheme (in category 'accessing') ----- chooseTheme " SmallLandColorTheme chooseTheme. " | themes menu | menu := MenuMorph new defaultTarget: self. menu addTitle: 'choose color theme' translated. Preferences noviceMode ifFalse: [menu addStayUpItem]. "" themes := self allThemes asSortedCollection: [:x :y | x themeName translated <= y themeName translated]. themes do: [:each | ""menu addUpdating: #stringForTheme: target: each selector: #applyTheme: argumentList: {each}]. "" menu popUpInWorld! ----- Method: SmallLandColorTheme class>>stringForTheme: (in category 'accessing') ----- stringForTheme: aTheme ^ (aTheme == ColorTheme current class ifTrue: ['<on>'] ifFalse: ['<off>']) , aTheme themeName translated.! ----- Method: SmallLandColorTheme class>>themeName (in category 'accessing') ----- themeName " self themeName. BlueSmallLandColorTheme themeName. GreenSmallLandColorTheme themeName. " ^ self name allButLast: 'SmallLandColorTheme' size. ! ----- Method: SmallLandColorTheme>>apply (in category 'applying') ----- apply Preferences installBrightWindowColors. "" super apply. "" self updateTopProject. self updateFlaps. self updateWorldMainDockingBar! ----- Method: SmallLandColorTheme>>balloonColor (in category 'theme') ----- balloonColor ^ (self light: 1) twiceLighter alpha: 0.95"Color white alpha: 0.95"! ----- Method: SmallLandColorTheme>>baseColors (in category 'initialization') ----- baseColors "Answer a collection of the 3 base colors" ^ self subclassResponsibility! ----- Method: SmallLandColorTheme>>cancelColor (in category 'theme') ----- cancelColor ^ super cancelColor"self normal: 8"! ----- Method: SmallLandColorTheme>>dark: (in category 'private - colors') ----- dark: index ^ darks at: index! ----- Method: SmallLandColorTheme>>defaultWorldColor (in category 'theme') ----- defaultWorldColor ^ (self light: 1) twiceLighter twiceLighter ! ----- Method: SmallLandColorTheme>>dialog3DTitles (in category 'theme - dialogs') ----- dialog3DTitles ^ false! ----- Method: SmallLandColorTheme>>dialogBorderColor (in category 'theme - dialogs') ----- dialogBorderColor ^ (self dark: 5) ! ----- Method: SmallLandColorTheme>>dialogBorderWidth (in category 'theme - dialogs') ----- dialogBorderWidth ^ 2! ----- Method: SmallLandColorTheme>>dialogButtonBorderWidth (in category 'theme - dialogs') ----- dialogButtonBorderWidth ^ 1! ----- Method: SmallLandColorTheme>>dialogColor (in category 'theme - dialogs') ----- dialogColor ^ self light: 3! ----- Method: SmallLandColorTheme>>dialogPaneBorderColor (in category 'theme - dialogs') ----- dialogPaneBorderColor ^ self dialogTextBoxBorderColor ! ----- Method: SmallLandColorTheme>>dialogPaneBorderWidth (in category 'theme - dialogs') ----- dialogPaneBorderWidth ^ 1! ----- Method: SmallLandColorTheme>>dialogPaneRampOrColor (in category 'theme - dialogs') ----- dialogPaneRampOrColor ^ self dialogTextBoxColor! ----- Method: SmallLandColorTheme>>dialogRampOrColor (in category 'theme - dialogs') ----- dialogRampOrColor ^ self dialogColor! ----- Method: SmallLandColorTheme>>dialogTextBoxBorderColor (in category 'theme - dialogs') ----- dialogTextBoxBorderColor ^ self normal: 1! ----- Method: SmallLandColorTheme>>dialogTextBoxColor (in category 'theme - dialogs') ----- dialogTextBoxColor ^ self light: 1! ----- Method: SmallLandColorTheme>>dockingBarAutoGradient (in category 'theme - dockingbar') ----- dockingBarAutoGradient ^ true! ----- Method: SmallLandColorTheme>>dockingBarColor (in category 'theme - dockingbar') ----- dockingBarColor ^self normal:1! ----- Method: SmallLandColorTheme>>dockingBarGradientRamp (in category 'theme - dockingbar') ----- dockingBarGradientRamp ^ {0.0 -> Color white. 1.0 -> (self normal:1)}! ----- Method: SmallLandColorTheme>>helpColor (in category 'theme') ----- helpColor ^ self okColor! ----- Method: SmallLandColorTheme>>initialize (in category 'initialization') ----- initialize "Initialize the receiver" | baseColors | super initialize. "" baseColors := self baseColors. "" darks := baseColors first wheel: 8. normals := baseColors second wheel: 8. lights := baseColors third wheel: 8! ----- Method: SmallLandColorTheme>>insertionPointColor (in category 'theme') ----- insertionPointColor ^ self normal: 7! ----- Method: SmallLandColorTheme>>keyboardFocusColor (in category 'theme') ----- keyboardFocusColor ^ self normal: 8! ----- Method: SmallLandColorTheme>>labelForColor: (in category 'private - colors') ----- labelForColor: aColor ^ (aColor red roundTo: 0.01) asString , ' ' , (aColor green roundTo: 0.01) asString , ' ' , (aColor blue roundTo: 0.01) asString! ----- Method: SmallLandColorTheme>>light: (in category 'private - colors') ----- light: index ^ lights at: index! ----- Method: SmallLandColorTheme>>menuBorderColor (in category 'theme - menus') ----- menuBorderColor ^self dark: 1! ----- Method: SmallLandColorTheme>>menuBorderWidth (in category 'theme - menus') ----- menuBorderWidth ^ 2.! ----- Method: SmallLandColorTheme>>menuColor (in category 'theme - menus') ----- menuColor ^ self light: 1! ----- Method: SmallLandColorTheme>>menuLineColor (in category 'theme - menus') ----- menuLineColor ^ self normal: 1! ----- Method: SmallLandColorTheme>>menuSelectionColor (in category 'theme - menus') ----- menuSelectionColor ^ self dark: 1! ----- Method: SmallLandColorTheme>>menuTitleBorderColor (in category 'theme - menus') ----- menuTitleBorderColor ^ self menuTitleColor ! ----- Method: SmallLandColorTheme>>menuTitleBorderWidth (in category 'theme - menus') ----- menuTitleBorderWidth ^ 6! ----- Method: SmallLandColorTheme>>menuTitleColor (in category 'theme - menus') ----- menuTitleColor ^ self normal: 1! ----- Method: SmallLandColorTheme>>normal: (in category 'private - colors') ----- normal: index ^ normals at: index! ----- Method: SmallLandColorTheme>>okColor (in category 'theme') ----- okColor ^ super okColor "self normal: 2"! ----- Method: SmallLandColorTheme>>printOn: (in category 'printing') ----- printOn: aStream aStream nextPutAll: 'Small-Land Color Theme: ', self class themeName! ----- Method: SmallLandColorTheme>>rowOf: (in category 'private - colors') ----- rowOf: colors | row | row := AlignmentMorph newRow. row cellInset: 5. row color: Color white. "" colors do: [:each | | box label | box := RectangleMorph new. box extent: 100 @ 60. box color: each. box borderWidth: 2. box borderColor: box color muchDarker. "" label := StringMorph contents: (self labelForColor: each). label color: each negated. box addMorphCentered: label. "" row addMorphBack: box]. "" ^ row ! ----- Method: SmallLandColorTheme>>showColors (in category 'private - colors') ----- showColors " BlueSmallLandColorTheme new showColors. " | col | col := AlignmentMorph newColumn. col color: Color white. col addMorphBack: (self rowOf: darks). col addMorphBack: (self rowOf: normals). col addMorphBack: (self rowOf: lights). "" col openInWorld! ----- Method: SmallLandColorTheme>>textHighlightColor (in category 'theme') ----- textHighlightColor ^self normal: 1! ----- Method: SmallLandColorTheme>>updateFlaps (in category 'applying') ----- updateFlaps Flaps globalFlapTabs select: [:each | each flapID = 'Supplies' translated] thenDo: [:each | each color: (self normal: 1); borderColor: (self normal: 1); borderWidth: (self menuBorderWidth). "" each referent color: (self light: 1); borderWidth: (self menuBorderWidth); borderColor: (self normal: 1)]! ----- Method: SmallLandColorTheme>>updateTopProject (in category 'applying') ----- updateTopProject Project current == Project topProject ifFalse:[^ self]. "" World color: Preferences defaultWorldColor. World submorphs select: [:each | "" (each isKindOf: StringMorph) and: [each contents = 'Squeak']] thenDo: [:each | each color: (self dark: 1)]. ! ----- Method: SmallLandColorTheme>>updateWorldMainDockingBar (in category 'applying') ----- updateWorldMainDockingBar | oldPreference | oldPreference := Project current showWorldMainDockingBar. "" Project current showWorldMainDockingBar: false. Project current showWorldMainDockingBar: oldPreference. TheWorldMainDockingBar updateInstances! SmallLandColorTheme subclass: #VioletSmallLandColorTheme instanceVariableNames: '' classVariableNames: '' poolDictionaries: '' category: 'SmallLand-ColorTheme'! ----- Method: VioletSmallLandColorTheme>>baseColors (in category 'as yet unclassified') ----- baseColors " VioletSmallLandColorTheme apply. " ^ Array with: (Color fromArray: #(0.6 0.0 1.0 )) with: (Color fromArray: #(0.8 0.4 1.0 )) with: (Color fromArray: #(0.95 0.95 1.0 ))! SmallLandColorTheme subclass: #YellowSmallLandColorTheme instanceVariableNames: '' classVariableNames: '' poolDictionaries: '' category: 'SmallLand-ColorTheme'! ----- Method: YellowSmallLandColorTheme>>baseColors (in category 'initialization') ----- baseColors " YellowSmallLandColorTheme apply. " ^ Array with: (Color fromArray: #(0.6 0.6 0.0 )) with: (Color fromArray: #(0.9 0.9 0.3 )) with: (Color fromArray: #(1.0 1.0 0.9 ))!

1 0

Some loop debugging help.
by rclayton＠monmouth.edu 05 Mar '13

05 Mar '13

I have an SUnit test: testTriangle | b n t | b := Bag new . n := 5 . 1 to: n do: [ :i | i timesRepeat: [ b add: (IntervalTreeInterval from: i to: i + 1) ] ] . t := IntervalTree withIntervals: b . Transcript show: 'Start testing' ; cr . 0 to: n do: [ :i | b := t intervalsContaining: i + 0.5 . Transcript show: i ; cr ; flush . self assert: b size = i ] If I run this method with the last statement commented out (that is, without the assertion), the transcript shows Start testing 0 1 2 3 4 5 If I run the test with the last statement enabled (that is, with the assertion), the transcript shows Start testing 0 1 2 and testTriangle fails. However, in the debugger I find that i is 6 and the bag b is empty, which is correct because there are no intervals containing 6.5 (which makes the assertion fail the correct thing to do). My question is: why is i = 6? I would have expected the loop to stop after i = 5, as it did when there was no assertion. As a secondary question, why did the transcript stop at 2 for the failing test? I'm assuming it's a buffering problem, but I would have expected flush to push the buffer contents along. I'm running Image ----- /home/rclayton/projects/squeak/interval-tree/Squeak4.3.image Squeak4.3 latest update: #11864 Current Change Set: Unnamed1 Virtual Machine --------------- /home/squeak-4.3/Contents/Linux-i686/lib/squeak/4.4.7-2357/squeakvm Squeak4.1 of 17 April 2010 [latest update: #9957] Unix built on Jan 23 2011 18:17:32 Compiler: 4.3.2 platform sources revision 2357 VMMaker versionString 4.4.7 Operating System/Hardware ------------------------- unix linux i686 Operating System Details ------------------------ Debian GNU/Linux 7.0 \n \l FileDoesNotExistException: '/etc/lsb-release'Linux version 3.2.0-4-686-pae (debian-kernel(a)lists.debian.org) (gcc version 4.6.3 (Debian 4.6.3-14) ) #1 SMP Debian 3.2.35-2

2 2

Daily Commit Log
by commits＠source.squeak.org 05 Mar '13

05 Mar '13

Changes to Trunk (http://source.squeak.org/trunk.html) in the last 24 hours: http://lists.squeakfoundation.org/pipermail/packages/2013-March/005757.html Name: Collections-bf.505 Ancestors: Collections-nice.504 Put back PositionableStream>>last with a better comment. ============================================= http://lists.squeakfoundation.org/pipermail/packages/2013-March/005758.html Name: Kernel-bf.744 Ancestors: Kernel-nice.743 Sanitize Time class>>readFrom: to not read beyond the time. Use that to sanitize DateAndTime class>>readFrom:, too, avoiding the only known use of PositionableStream>>last. Time tests are still green. ============================================= http://lists.squeakfoundation.org/pipermail/packages/2013-March/005759.html Name: System-fbs.516 Ancestors: System-nice.515 All this method's senders are in the Etoys package, so it almost certainly belongs in the Etoys package. ============================================= http://lists.squeakfoundation.org/pipermail/packages/2013-March/005760.html Name: EToys-fbs.92 Ancestors: EToys-nice.91 All this method's senders are in the Etoys package, so it almost certainly belongs in the Etoys package. =============================================

1 0

← Newer
1
...
21
22
23
24
25
26
27
28
29
Older →

Jump to page: