Packages October 2008

packages@lists.squeakfoundation.org

3 participants
120 discussions

Installer: Installer-Core-stephane.ducasse.230.mcz
by squeak-dev-noreply＠lists.squeakfoundation.org 01 Oct '08

01 Oct '08

A new version of Installer-Core was added to project Installer: http://www.squeaksource.com/Installer/Installer-Core-stephane.ducasse.230.m… ==================== Summary ==================== Name: Installer-Core-stephane.ducasse.230 Author: stephane.ducasse Time: 30 September 2008, 6:45:25 pm UUID: 92281bc6-c1be-4563-b7ea-259c5c4cc875 Ancestors: Installer-Core-kph.229 stef fixing indentation and providing some comments I read the code of Installer I reformatted the code and publish it. Now here is a list of questions/suggestions ============================== Installer class>>classes ^ Smalltalk not invoked seems bogus ============================== Entities seems a bad name for html elements mapping. ============================== history seems obsolete Installer class>>mczInstall is misclassified ============================== Installer class>>sake ^ self sake: (Sake ifNil: [ self classPackages current ]) Does not make sense to me if Sake is not loaded. setSakeToUse: aClass Sake := aClass is missing a comment to indicate what is the purpose of Sake? On the instance side ============================== user ^ user ifNil: [ '' ] user: anObject user := anObject user is undefined, thanks shout! ============================== classMCMczReader ^Smalltalk at: #MCMczReader ifAbsent: [ nil ] classMCReader ^Smalltalk at: #MCReader ifAbsent: [ nil ] classMczInstaller ^Smalltalk at: #MczInstaller ifAbsent: [ nil ] why nil and not error as all the others? ============================== createRBforBug: aBugNo | aStream fileList selFile aFileName | self setBug: aBugNo. fileList := self maFiles keys asOrderedCollection. fileList addLast: 'none'. ReleaseBuilderFor3dot10 clear. [selFile := UIManager default chooseFrom: fileList title: 'Choose what files load '. selFile = fileList size ifFalse:[ aFileName := fileList at: selFile. self logCR: 'obtaining ', aFileName, '...'. aStream := self maStreamForFile: aFileName . ReleaseBuilderFor3dot10 current packagesInfluenced: aStream named: aFileName. self installCS: aFileName from: aStream].selFile = fileList size]whileFalse. ReleaseBuilderFor3dot10 current newUpdateFor: aBugNo ReleaseBuilderFor3dot10 does not exist. ============================== installMCcs: aFileName from: stream | reader | reader := MCCsReader on: stream. should use self MCCsReader because MCCsReader may not exist ============================== skipTests is empty =============== Diff against Installer-Core-kph.229 =============== Item was changed: ----- Method: Installer class>>unload: (in category 'unload') ----- unload: categoryMatchesString + ^ self error: 'deprecated, use Installer mc unload: ''pkgname''.'! - ^ self error: 'deprecated, use Installer mc unload: ''pkgname''.'! Item was changed: ----- Method: Installer>>uniUpdate (in category 'universes') ----- uniUpdate + (LastUniUpdate isNil or:[ (DateAndTime now - LastUniUpdate) > 600 seconds ]) ifTrue: [universe requestPackageList. LastUniUpdate := DateAndTime now]! Item was changed: ----- Method: Installer class>>sourceFiles (in category 'accessing system') ----- sourceFiles + ^ SourceFiles! - ^ SourceFiles! Item was changed: ----- Method: Installer class>>squeakmap (in category 'instanciation') ----- squeakmap + ^self new sm: true; yourself! - ^self new sm: true; yourself! Item was changed: ----- Method: Installer class>>file: (in category 'instanciation') ----- file: fileName + ^ self new file: fileName; yourself - ^ self new file: fileName; yourself ! Item was changed: ----- Method: Installer class>>classSakePackages (in category 'accessing system') ----- classSakePackages + ^Smalltalk at: #SakePackages ifAbsent: [ self error: 'Sake Packages code not present' ]! - ^Smalltalk at: #SakePackages ifAbsent: [ self error: 'Sake Packages code not present' ]! Item was changed: ----- Method: Installer class>>url: (in category 'instanciation') ----- url: urlString + ^self web url: urlString; yourself! - ^self web url: urlString; yourself! Item was changed: ----- Method: Installer>>smUpdate (in category 'squeakmap') ----- smUpdate "Updates the local map for SqueakMap, upgrading SqueakMap to the latest version if necessary. When SqueakMap is old and needs to be upgraded, it does four things that mostly make sense in the interactive world SM was built for, but are totally evil here in the world of automatic scripting: 1. It asks the user if she wants to upgrade, in the form of a pop-up (see SMSqueakMap >> #checkVersion:). 2. It terminates its own process. 3. It creates a new UI process. (see the last line of the SqueakMap upgrade file-in: ''Project spawnNewProcessAndTerminateOld: true'', from http://map.squeak.org/accountbyid/9bdedc18-1525-44a6-9b79-db5d4a87f6f8/file… 4. It opens a SqueakMap window We work around these three problems seperately: 1. We use #answer:with: and #withAnswersDo: to automatically answer ''Yes'' when asked if we want to upgrade 2. We don't want this process to be terminated, so we run the update in a forked process and wait for it to finish, using #fork, #ensure:, and a Semaphore 3. We keep track of the UI process before updating, and if it changes, we terminate the new UI process and reinstall the old one using Project >> #resumeProcess: 4. We don't bother with the newly opened window. The other three problems are much worse. We do all this in a new process, since it is not unlikely that this method is executing in the UI process" | oldUIProcess newUIProcess doneSema | self answer: 'You need to upgrade the SqueakMap package' with: true. oldUIProcess := Project uiProcess. doneSema := Semaphore new. + [[self withAnswersDo: [self classSMSqueakMap default loadUpdates]] + ensure: [newUIProcess := Project uiProcess. + (oldUIProcess ~~ newUIProcess + and: [oldUIProcess notNil] + and: [oldUIProcess isTerminated not]) + ifTrue: [ + newUIProcess ifNotNil: [newUIProcess terminate]. + oldUIProcess suspend. + Project resumeProcess: oldUIProcess.]. + doneSema signal]] fork. - - [[ - self withAnswersDo: [self classSMSqueakMap default loadUpdates] - ] ensure: [ - newUIProcess := Project uiProcess. - - ( - oldUIProcess ~~ newUIProcess - and: [oldUIProcess notNil] - and: [oldUIProcess isTerminated not] - ) ifTrue: [ - newUIProcess ifNotNil: [newUIProcess terminate]. - oldUIProcess suspend. - Project resumeProcess: oldUIProcess. - ]. - - doneSema signal - ]] fork. doneSema wait! Item was changed: ----- Method: Installer class>>websqueakmap (in category 'instanciation') ----- websqueakmap + ^self new wsm: 'http://map.squeak.org'; yourself! - ^self new wsm: 'http://map.squeak.org'; yourself! Item was changed: ----- Method: Installer class>>mantis: (in category 'instanciation') ----- mantis: host + ^self new ma: host; - ^self new ma: host; markers: '"fix begin"..."fix test"..."fix end"'; yourself. ! Item was changed: ----- Method: Installer>>classMCVersionLoader (in category 'class references') ----- classMCVersionLoader + ^Smalltalk at: #MCVersionLoader ifAbsent: [ self error: 'Monticello not present' ]! - ^Smalltalk at: #MCVersionLoader ifAbsent: [ self error: 'Monticello not present' ]! Item was changed: ----- Method: Installer class>>cancelSkipLoadingTests (in category 'accessing') ----- cancelSkipLoadingTests + "sets a flag to un-ignore loading of the testing portion of scripts embedded in pages" + + SkipLoadingTests := false. - - "sets a flag to un-ignore loading of the testing portion of scripts embedded in pages" - SkipLoadingTests := false. ! Item was changed: ----- Method: Installer class>>webSearchPath (in category 'accessing') ----- webSearchPath + "a search path item, has the following format. prefix*suffix" + ^ WebSearchPath ifNil: [ WebSearchPath := OrderedCollection new ].! - "a search path item, has the following format. prefix*suffix" - - ^ WebSearchPath ifNil: [ WebSearchPath := OrderedCollection new ].! Item was changed: ----- Method: Installer class>>fixesApplied (in category 'accessing') ----- fixesApplied + ^ Fixes ifNil: [ Fixes := OrderedCollection new ].! - ^ Fixes ifNil: [ Fixes := OrderedCollection new ].! Item was changed: ----- Method: Installer class>>classes (in category 'accessing system') ----- classes + ^ Smalltalk! - ^ Smalltalk! Item was changed: ----- Method: Installer class>>classProjectLauncher (in category 'accessing system') ----- classProjectLauncher + ^Smalltalk at: #ProjectLauncher ifAbsent: [ self error: 'ProjectLauncher not present' ]! - ^Smalltalk at: #ProjectLauncher ifAbsent: [ self error: 'ProjectLauncher not present' ]! Item was changed: ----- Method: Installer>>webFindUrlToDownload (in category 'web install') ----- webFindUrlToDownload + self class webSearchPath + do: [ :pathSpec | + | potentialUrl readPathSpec | + readPathSpec := pathSpec value readStream. + potentialUrl := (readPathSpec upTo: $*), self package, (readPathSpec upToEnd ifNil: [ '' ]). + [ pageDataStream := self urlGet: potentialUrl ] + doWhileTrue: [ + (pageDataStream notNil and: [ pageDataStream size > 0 ]) + ifTrue: [ (pageDataStream contents includesSubString: 'Please slow down a bit') + ifFalse: [ pageDataStream reset. + ^ potentialUrl ] ]. + (Delay forSeconds: 2) wait. + true]]. - self class webSearchPath do: [ :pathSpec | - | potentialUrl readPathSpec | - readPathSpec := pathSpec value readStream. - potentialUrl := (readPathSpec upTo: $*), self package, (readPathSpec upToEnd ifNil: [ '' ]). - [ pageDataStream := self urlGet: potentialUrl ] - - doWhileTrue: [ - - (pageDataStream notNil and: [ pageDataStream size > 0 ]) - ifTrue: [ (pageDataStream contents includesSubString: 'Please slow down a bit') ifFalse: [ pageDataStream reset. ^ potentialUrl ] ]. - - (Delay forSeconds: 2) wait. - true. - ]. - - ]. ^nil ! Item was changed: ----- Method: Installer class>>web (in category 'instanciation') ----- web + ^self new ! - ^self new ! Item was changed: ----- Method: Installer class>>do: (in category 'launcher support') ----- do: webPageName | rs | - self webSearchPath isEmpty ifTrue: [ ^self error: 'search path not set' ]. - rs := webPageName readStream. - [ rs atEnd ] whileFalse: [ self install: (rs upTo: $;) ]. ! Item was changed: ----- Method: Installer class>>validationBlock (in category 'instanciation-abbreviated') ----- validationBlock - ^ ValidationBlock! Item was changed: ----- Method: Installer class>>view: (in category 'instanciation') ----- view: webPageNameOrUrl + | theReport | - | theReport | + theReport := String streamContents: [ :report | - theReport := String streamContents: [ :report | (webPageNameOrUrl beginsWith: 'http://') ifTrue: [ self new urlAction: ('Installer installUrl: ', (webPageNameOrUrl printString),'.') reportOn: report. ] ifFalse: [ self new webAction: ('Installer install: ', (webPageNameOrUrl printString),'.') reportOn: report. + ]]. - ]. - ]. - - Workspace new contents: (theReport contents); openLabel: webPageNameOrUrl. + Workspace new contents: (theReport contents); openLabel: webPageNameOrUrl. + + ^theReport contents - ^theReport contents ! Item was changed: ----- Method: Installer class>>classPackages (in category 'accessing system') ----- classPackages + ^Smalltalk at: #Packages ifAbsent: [ self error: 'Sake Packages code not present' ]! - ^Smalltalk at: #Packages ifAbsent: [ self error: 'Sake Packages code not present' ]! Item was changed: ----- Method: Installer>>maFiles (in category 'mantis') ----- maFiles + | file files bugPage id | + files := Dictionary new. + bugPage := self maPage. + [ + id := bugPage upToAll: 'href="file_download.php?file_id='; upTo: $&. + file := bugPage upToAll: 'amp;type=bug"' ; upTo: $<. + ((file size > 1) and: [file first = $>]) ifTrue: [ files at: file copyWithoutFirst put: id ]. + id notEmpty ] whileTrue. - - | file files bugPage id | - - files := Dictionary new. - - bugPage := self maPage. + ^files ! - [ - id := bugPage upToAll: 'href="file_download.php?file_id='; upTo: $&. - file := bugPage upToAll: 'amp;type=bug"' ; upTo: $<. - - ((file size > 1) and: [file first = $>]) ifTrue: [ files at: file copyWithoutFirst put: id ]. - - id notEmpty ] whileTrue. - - ^files ! Item was changed: ----- Method: Installer class>>classUGlobalInstaller (in category 'accessing system') ----- classUGlobalInstaller + ^Smalltalk at: #UGlobalInstaller ifAbsent: [ self error: 'Universes code not present' ]! - ^Smalltalk at: #UGlobalInstaller ifAbsent: [ self error: 'Universes code not present' ]! Item was changed: ----- Method: Installer class>>classUUniverse (in category 'accessing system') ----- classUUniverse + ^Smalltalk at: #UUniverse ifAbsent: [ self error: 'Universes code not present' ]! - ^Smalltalk at: #UUniverse ifAbsent: [ self error: 'Universes code not present' ]! Item was changed: ----- Method: Installer class>>installUrl: (in category 'instanciation') ----- installUrl: urlString + ^ self web url: urlString; install. - ^ self web url: urlString; install. ! Item was changed: ----- Method: Installer class>>skipLoadingTests (in category 'accessing') ----- skipLoadingTests + "sets a flag to ignore loading of the testing portion of scripts embedded in pages" + + SkipLoadingTests := true. - - "sets a flag to ignore loading of the testing portion of scripts embedded in pages" - SkipLoadingTests := true. ! Item was changed: ----- Method: Installer class>>installSilentlyUrl: (in category 'instanciation') ----- installSilentlyUrl: urlString + ^ SystemChangeNotifier uniqueInstance doSilently: [ self web url: urlString; install ]. - ^ SystemChangeNotifier uniqueInstance doSilently: [ self web url: urlString; install ]. ! Item was changed: ----- Method: Installer class>>webInstall: (in category 'instanciation') ----- webInstall: webPageName + self webSearchPath isEmpty ifTrue: [ ^self error: 'search path not set' ]. + ^ self web install: webPageName - self webSearchPath isEmpty ifTrue: [ ^self error: 'search path not set' ]. - - ^ self web install: webPageName ! Item was changed: ----- Method: Installer class>>installFile: (in category 'instanciation') ----- installFile: fileName + ^ (self file: fileName) install. - ^ (self file: fileName) install. ! Item was changed: ----- Method: Installer class>>path: (in category 'instanciation') ----- path: aString "convenience abbreviation" + self webSearchPathFrom: aString! Item was changed: ----- Method: Installer class>>websqueakmap: (in category 'instanciation') ----- websqueakmap: host + ^self new wsm: host; yourself! - ^self new wsm: host; yourself! Item was changed: ----- Method: Installer>>maPage (in category 'mantis') ----- maPage + " self mantis bug: 5251." - " - self mantis bug: 5251. - " - | page | + | page | + page := self httpGet: self maUrl. + date := ((self maRead: page field: 'Date Updated') value copyUpTo: $ ). + date isEmpty ifTrue: [ ^self error: bug, ' not found' ]. + date := date asDate. + ^page reset! - page := self httpGet: self maUrl. - - date := ((self maRead: page field: 'Date Updated') value copyUpTo: $ ). - - date isEmpty ifTrue: [ ^self error: bug, ' not found' ]. - - date := date asDate. - - ^page reset! Item was changed: ----- Method: Installer class>>webSearchPathFrom: (in category 'accessing') ----- webSearchPathFrom: string | reader wsp path | - reader := string readStream. wsp := self webSearchPath. - [ reader atEnd ] whileFalse: [ path := reader upTo: $;. + (wsp includes: wsp) ifFalse: [ wsp addFirst: path ]]. - (wsp includes: wsp) ifFalse: [ wsp addFirst: path ] - ]. ! Item was changed: ----- Method: Installer>>mcThing:from: (in category 'mantis') ----- mcThing: aFileName from: stream "dont use monticello for .cs or for .st use monticello for .mcs" | reader | - reader := self classMCReader readerClassForFileNamed: aFileName. - reader name = 'MCStReader' ifTrue: [ ^ nil ]. - reader ifNil: [ ^ nil ]. - (reader respondsTo: #on:fileName:) + ifTrue: [ reader := reader on: stream fileName: aFileName. - ifTrue: [ reader := reader on: stream fileName: aFileName. ^ reader version ] + ifFalse: [ reader := reader on: stream. - ifFalse: [ reader := reader on: stream. ^ reader snapshot ].! Item was changed: ----- Method: Installer>>unload: (in category 'actions') ----- unload: match (MCWorkingCopy allManagers select: [ :wc | match match: (wc package name) ]) do: [ :wc | self logCR: 'Unloading ', wc package asString. + wc unload.]. - wc unload. - - ]. - self unloadCleanUp! Item was changed: + ----- Method: Installer class>>noProgressDuring: (in category 'during') ----- - ----- Method: Installer class>>noProgressDuring: (in category 'as yet unclassified') ----- noProgressDuring: block [ block value: self ] on: ProgressInitiationException do: [ :note | note resume ] ! Item was changed: ----- Method: Installer>>setBug: (in category 'mantis') ----- setBug: stringOrNumber - - | str | - - self logCR: stringOrNumber. - - stringOrNumber isInteger ifTrue: [ bug := stringOrNumber. desc := ''. ^self ]. - - bug := stringOrNumber asInteger. - str := str printString. - desc := stringOrNumber copyFrom: (str size + 1) to: (stringOrNumber size) + | str | + self logCR: stringOrNumber. + stringOrNumber isInteger ifTrue: [ bug := stringOrNumber. desc := ''. ^self ]. + bug := stringOrNumber asInteger. + str := str printString. + desc := stringOrNumber copyFrom: (str size + 1) to: (stringOrNumber size) + ! Item was changed: ----- Method: Installer>>mcSortFileBlock (in category 'monticello') ----- mcSortFileBlock ^ [:a :b | + [(a findBetweenSubStrs: #($.)) allButLast last asInteger > (b findBetweenSubStrs: #($.)) allButLast last asInteger] + on: Error do: [:ex | false]].! - [(a findBetweenSubStrs: #($.)) allButLast last asInteger > (b findBetweenSubStrs: #($.)) allButLast last asInteger] on: Error do: [:ex | false]].! Item was changed: ----- Method: Installer class>>install: (in category 'instanciation') ----- install: webPageName + self webSearchPath isEmpty ifTrue: [ ^self error: 'search path not set' ]. - self webSearchPath isEmpty ifTrue: [ ^self error: 'search path not set' ]. + ^ self web install: webPageName - ^ self web install: webPageName ! Item was changed: ----- Method: Installer class>>entities (in category 'accessing') ----- entities + ^ Entities ifNil: [ Entities := + "enough entities to be going on with" + Dictionary new. + Entities at: 'lt' put: '<'; + at: 'gt' put: '>'; + at: 'amp' put: '&'; + at: 'star' put: '*'; + at: 'quot' put: '"'; + at: 'nbsp' put: ' '; + yourself - ^ Entities ifNil: [ Entities := - "enough entities to be going on with" - Dictionary new. - Entities at: 'lt' put: '<'; - at: 'gt' put: '>'; - at: 'amp' put: '&'; - at: 'star' put: '*'; - at: 'quot' put: '"'; - at: 'nbsp' put: ' '; - yourself ] ! Item was changed: ----- Method: Installer class>>smalltalkImage (in category 'accessing system') ----- smalltalkImage + ^ SmalltalkImage current! - ^ SmalltalkImage current! Item was changed: ----- Method: Installer class>>repository: (in category 'instanciation') ----- repository: host + ^self monticello http: host ! - ^self monticello http: host ! Item was changed: + ----- Method: Installer class>>skipLoadingTestsDuring: (in category 'during') ----- - ----- Method: Installer class>>skipLoadingTestsDuring: (in category 'as yet unclassified') ----- skipLoadingTestsDuring: block | oldValue | oldValue := SkipLoadingTests. SkipLoadingTests := true. [ block value: self ] ensure:[ SkipLoadingTests := oldValue ].!

1 0

SystemEditor: SystemEditor-mtf.119.mcz
by squeak-dev-noreply＠lists.squeakfoundation.org 01 Oct '08

01 Oct '08

Matthew Fulmer uploaded a new version of SystemEditor to project SystemEditor: http://www.squeaksource.com/SystemEditor/SystemEditor-mtf.119.mcz ==================== Summary ==================== Name: SystemEditor-mtf.119 Author: mtf Time: 20 September 2008, 7:26:37 am UUID: c8f1811a-f1e6-4af7-af54-10534bf55d77 Ancestors: SystemEditor-mtf.118 fixed subclass handling in expandEditors The bug where metaclasses had the wrong superclass came back during the ClassDescriptionEditor refactor. Fixed again =============== Diff against SystemEditor-mtf.118 =============== Item was added: + ----- Method: ClassEditor>>superclass: (in category 'editing') ----- + superclass: aClassOrEditor + super superclass: aClassOrEditor. + self class superclass: aClassOrEditor class! Item was changed: ----- Method: ClassEditor>>edExpand (in category 'building') ----- edExpand ^ self edRequiresSubclassRebuild + ifTrue: [self subclasses] - ifTrue: - [self subject subclasses collect: - [:subclass | (system edEditorFor: subclass) superclass: self]] ifFalse: [#()]!

1 0

SystemEditor: SystemEditor-mtf.121.mcz
by squeak-dev-noreply＠lists.squeakfoundation.org 01 Oct '08

01 Oct '08

Matthew Fulmer uploaded a new version of SystemEditor to project SystemEditor: http://www.squeaksource.com/SystemEditor/SystemEditor-mtf.121.mcz ==================== Summary ==================== Name: SystemEditor-mtf.121 Author: mtf Time: 26 September 2008, 11:33:22 am UUID: 543836e8-e91c-4680-97de-31aec2547aee Ancestors: SystemEditor-mtf.120 Made edSuperclass not unnecessarily add an editor to SystemEditor. This was causing SystemEditor to be modified while iterating to build the transaction, causing a bad transaction to be created, and a segfault. =============== Diff against SystemEditor-mtf.120 =============== Item was changed: ----- Method: ClassDescriptionEditor>>edSuperclass (in category 'building') ----- edSuperclass "Answer my product's superclass, building it if necessary" + | classOrEditor | + classOrEditor := self superclassOrEditor. + ^ classOrEditor edIsEditor + ifTrue: [classOrEditor product] + ifFalse: [classOrEditor]! - ^ self superclass product!

1 0

Packages: Sake-Packages-kph.4.mcz
by squeak-dev-noreply＠lists.squeakfoundation.org 01 Oct '08

01 Oct '08

Keith Hodges uploaded a new version of Sake-Packages to project Packages: http://www.squeaksource.com/Packages/Sake-Packages-kph.4.mcz ==================== Summary ==================== Name: Sake-Packages-kph.4 Author: kph Time: 30 September 2008, 4:23:55 pm UUID: 2e83cd14-68bc-40a9-85eb-bef2f7384cab Ancestors: Sake-Packages-dc.3 Latest =============== Diff against Sake-Packages-dc.3 =============== Item was added: + ----- Method: PackagesDevU>>PolymorphEventEnhancements (in category 'User Interface') ----- + PolymorphEventEnhancements + + self name: 'Polymorph EventEnhancements'. + self version: '1.0'. + info category: 'User Interface'. + info description: + 'Basic extension to the event system providing for recurisve short-circuit event handling (avoiding re-entry). Along with the same for "shared" events.'. + info maintainer: 'Gary Chambers'. + info homepage: 'http://wiki.squeak.org/squeak/6005'. + info squeakMapID: ''. + info url: 'http://www.squeaksource.com/UIEnhancements/Polymorph-EventEnhancements-gvc.…'. + self provides: #(). + + self dependsOn: #(). + + ! Item was changed: ----- Method: PackagesDevU>>Nicefonts (in category 'Fonts') ----- Nicefonts self name: 'Nice fonts'. + self version: '0.6'. - self version: '0.5'. info category: 'Fonts'. info description: 'From Juan Vuletich: One of the very few things I don''t like in Squeak is font support. I''m used to nice sub pixel rendered text. I find StrikeFonts and TTFFonts in Squeak equally ugly on LCD monitors. I have been a long time admirer of Henrik Gedenryd''s FreeType work, now continued by Andy Tween. But Andy''s work requires linking the FreeType library, and a new BitBlt plugin with newer modes to work. Something smaller and simpler needs to be done!! Once installed, execute the following line to install the new fonts. It may take some time so be patient. Also ensure that the ''display depth'' of your image is set to 32 (World menu->appearance->set display depth...). StrikeFont new installNiceFonts'. info maintainer: 'Damien Cassou <damien.cassou(a)gmail.com>'. info homepage: 'http://www.jvuletich.org/NiceFonts.html'. info squeakMapID: ''. + info url: 'http://damien.cassou.free.fr/squeak-dev/fonts/AAStrikeFonts.15.cs'. - info url: 'http://damien.cassou.free.fr/squeak-dev/fonts/AAStrikeFonts.14.cs'. self provides: #(). self dependsOn: #(). ! Item was added: + ----- Method: PackagesDevU>>PolymorphGeometry (in category 'User Interface') ----- + PolymorphGeometry + + self name: 'Polymorph Geometry'. + self version: '1.0'. + info category: 'User Interface'. + info description: + 'Basic models of shapes. Used in Diff Tools.'. + info maintainer: 'Gary Chambers'. + info homepage: 'http://wiki.squeak.org/squeak/6005'. + info squeakMapID: ''. + info url: 'http://www.squeaksource.com/UIEnhancements/Polymorph-Geometry-gvc.1.mcz'. + self provides: #(). + + self dependsOn: #(). + + ! Item was added: + ----- Method: PackagesDevU>>Pharopackages (in category 'Distributions') ----- + Pharopackages + + self name: 'Pharo packages'. + self version: '0.6'. + info category: 'Distributions'. + info description: + 'This package generates a Pharo image prepared for end-users from a Pharo core.'. + info maintainer: 'Damien Cassou <damien.cassou(a)gmail.com>'. + info homepage: 'http://code.google.com/p/pharo/'. + info squeakMapID: ''. + info url: 'http://www.squeaksource.com/ImageForDevelopers/ImageForDevelopers-pharo-dc.…'. + self provides: #(). + + self dependsOn: #('Installer' 'OB-Enhancements' 'OmniBrowser-Morphic' 'OmniBrowser-Refactory' 'OmniBrowser-Regex' 'OmniBrowser-Standard' 'Shout' 'ShoutWorkspace' 'Universes' 'Universes OmniBrowser' 'eCompletion' 'eCompletion-Traits' 'eCompletionOmniBrowser'). + + ! Item was added: + ----- Method: PackagesDevU>>PolymorphWidgets (in category 'User Interface') ----- + PolymorphWidgets + + self name: 'Polymorph Widgets'. + self version: '1.0'. + info category: 'User Interface'. + info description: + 'Modifies Morphic to provide for selectable theming of controls and provides a framework and extra Morphs for creating consistent user interfaces. + Improves both look and feel. + Fixes a few problems too (corner grips, window titlebar sizing wrt fonts...). + + Noteable changes since last release: + + UI Enhancements has now been renamed to Polymorph.'. + info maintainer: 'Gary Chambers'. + info homepage: 'http://wiki.squeak.org/squeak/6005'. + info squeakMapID: ''. + info url: 'http://www.squeaksource.com/UIEnhancements/Polymorph-Widgets-gvc.2.mcz'. + self provides: #(). + + self dependsOn: #(). + + ! Item was changed: ----- Method: PackagesDevU>>OmniBrowserRegex (in category 'Development') ----- OmniBrowserRegex self name: 'OmniBrowser-Regex'. + self version: '0.9.1'. - self version: '0.9'. info category: 'Development'. info description: 'Brings refactorings to OmniBrowser'. info maintainer: 'Damien Cassou <damien.cassou(a)gmail.com>'. info homepage: ''. info squeakMapID: ''. info url: 'http://source.lukas-renggli.ch/omnibrowser/OB-Regex-lr.9.mcz'. self provides: #(). + self dependsOn: #('OmniBrowser-Refactory' 'OmniBrowser-Standard' 'Refactoring Core' 'VBRegex'). - self dependsOn: #('OmniBrowser-Refactory' 'OmniBrowser-Standard' 'Refactoring Engine' 'VBRegex'). ! Item was added: + ----- Method: PackagesDevU>>PolymorphToolsDiff (in category 'User Interface') ----- + PolymorphToolsDiff + + self name: 'Polymorph Tools Diff'. + self version: '1.0'. + info category: 'User Interface'. + info description: + 'Provides side-by-side code comaprison with cross-links indicating changes between lines of text. Highlight "intra-line" changes also. + Integrated with "compare with current version" of standard versions browser. + Integrated with Monticello replacing changes and merge browsers.'. + info maintainer: 'Gary Chambers'. + info homepage: 'http://wiki.squeak.org/squeak/6005'. + info squeakMapID: ''. + info url: 'http://www.squeaksource.com/UIEnhancements/Polymorph-Tools-Diff-gvc.2.mcz'. + self provides: #(). + + self dependsOn: #('Polymorph EventEnhancements' 'Polymorph Geometry' 'Polymorph Widgets'). + + ! Item was changed: ----- Method: PackagesDevU>>eCompletion (in category 'Code Browsing') ----- eCompletion self name: 'eCompletion'. + self version: '0.90'. - self version: '0.89'. info category: 'Code Browsing'. info description: 'Complete variables, selectors, class names in your browser, workspace, debugger and other code holders.'. info maintainer: 'Damien Cassou <damien.cassou(a)gmail.com>'. info homepage: 'http://www.squeaksource.com/eCompletion'. info squeakMapID: ''. + info url: 'http://www.squeaksource.com/eCompletion/ECompletion-dc.90.mcz'. - info url: 'http://www.squeaksource.com/eCompletion/ECompletion-dc.89.mcz'. self provides: #(). self dependsOn: #('RoelTyper' 'Shout'). ! Item was added: + ----- Method: PackagesDevU>>PolymorphToolBuilder (in category 'User Interface') ----- + PolymorphToolBuilder + + self name: 'Polymorph ToolBuilder'. + self version: '1.0'. + info category: 'User Interface'. + info description: + 'Integrates Polymorph widgets with Squeak''s development environment via UIManager.'. + info maintainer: 'Gary Chambers'. + info homepage: 'http://wiki.squeak.org/squeak/6005'. + info squeakMapID: ''. + info url: 'http://www.squeaksource.com/UIEnhancements/Polymorph-ToolBuilder-gvc.1.mcz'. + self provides: #(). + + self dependsOn: #('Polymorph Widgets'). + + ! Item was changed: ----- Method: PackagesDevU>>Universes (in category 'Group Development') ----- Universes self name: 'Universes'. + self version: '49'. - self version: '45'. info category: 'Group Development'. info description: 'Package universes is a toolset that supports reliable, automatic installation of packages via a package-browsing tool. The approach of the tools is that users operate within one universe, and each universe only has a large but limited set of packages available. Thus, a universe sets a context that simplifies other aspects of the tools including package naming, dependency management, and package-update policies. '. info maintainer: '"Lex Spoon" <lex(a)lexspoon.org>'. info homepage: 'http://www.squeaksource.com/universes/'. info squeakMapID: ''. + info url: 'http://www.squeaksource.com/universes/Universes-dc.49.mcz'. - info url: 'http://www.squeaksource.com/universes/Universes-dc.45.mcz'. self provides: #(). self dependsOn: #('YAXO'). ! Item was added: + ----- Method: PackagesDevU>>PolymorphTaskbarIcons (in category 'User Interface') ----- + PolymorphTaskbarIcons + + self name: 'Polymorph TaskbarIcons'. + self version: '1.0'. + info category: 'User Interface'. + info description: + 'Taskbar/window icons for common windows.'. + info maintainer: 'Gary Chambers'. + info homepage: 'http://wiki.squeak.org/squeak/6005'. + info squeakMapID: ''. + info url: 'http://www.squeaksource.com/UIEnhancements/Polymorph-TaskbarIcons-gvc.1.mcz'. + self provides: #(). + + self dependsOn: #('Polymorph Widgets'). + + ! Item was changed: ----- Method: PackagesDevU>>OBEnhancements (in category 'Code Browsing') ----- OBEnhancements self name: 'OB-Enhancements'. + self version: '0.219'. - self version: '0.203'. info category: 'Code Browsing'. info description: 'OB-Enhancements extend the OmniBrowser framework with new features such as multiple selection of elements in columns, a package-based view on the image instead of using just class categories, or smart groups to categorize source artifacts. This package requires the latest version of the OmniBrowser framework.'. info maintainer: 'David Röthlisberger'. info homepage: 'http://source.wiresong.ca/ob/'. info squeakMapID: ''. + info url: 'http://source.wiresong.ca/ob/OB-Enhancements-dr.219.mcz'. - info url: 'http://source.wiresong.ca/ob/OB-Enhancements-dr.203.mcz'. self provides: #(). self dependsOn: #('OmniBrowser' 'OmniBrowser-Morphic' 'OmniBrowser-Standard'). ! Item was changed: ----- Method: PackagesDevU>>ShoutWorkspace (in category 'Uncategorized') ----- ShoutWorkspace self name: 'ShoutWorkspace'. + self version: '1-tween.4'. - self version: '1-tween.2'. info category: 'Uncategorized'. info description: 'Brings colors to the Workspace. Use Open->Shout Workspace to get the new workspace.'. info maintainer: 'Damien Cassou <damien.cassou(a)gmail.com>'. info homepage: 'http://damiencassou.seasidehosting.st/seaside/pier'. info squeakMapID: ''. + info url: 'http://www.squeaksource.com/shout/ShoutWorkspace.1-tween.4.mcz'. - info url: 'http://www.squeaksource.com/shout/ShoutWorkspace.1-tween.2.mcz'. self provides: #(). self dependsOn: #('Shout'). ! Item was changed: ----- Method: PackagesDevU>>Squeakdevpackagesbeta (in category 'Development') ----- Squeakdevpackagesbeta self name: 'Squeak dev packages beta'. + self version: '0.32'. - self version: '0.31'. info category: 'Development'. info description: 'Abstract package that only depends on other packages. This packages are used to build a squeak distribution for developers.'. info maintainer: 'Damien Cassou <damien.cassou(a)gmail.com>'. info homepage: ''. info squeakMapID: ''. info url: 'nil'. self provides: #(). + self dependsOn: #('Polymorph TaskbarIcons' 'Polymorph ToolBuilder' 'Polymorph Tools Diff' 'Squeak dev packages'). - self dependsOn: #('Diff Tools' 'Squeak dev packages' 'ToolBuilder integration for UI Themes'). ! Item was changed: ----- Method: PackagesDevU>>ExuperyDevelopment (in category 'System') ----- ExuperyDevelopment self name: 'Exupery Development'. + self version: '0.14.1'. - self version: '0.14'. info category: 'System'. info description: 'Provides a development image with the usual tools for Exupery.'. info maintainer: 'wbk'. info homepage: ''. info squeakMapID: ''. info url: 'http://www.squeaksource.com/Exupery/VMMaker-wbk.80.mcz'. self provides: #(). + self dependsOn: #('CommandShell' 'Connectors' 'Exupery' 'FFI' 'GraphViz' 'OSProcessPlugin' 'Speech'). - self dependsOn: #('CommandShell' 'Connectors' 'Exupery' 'FFI' 'GraphViz' 'Speech'). ! Item was added: + ----- Method: PackagesDevU>>OSProcessPlugin (in category 'System') ----- + OSProcessPlugin + + self name: 'OSProcessPlugin'. + self version: '4.2.6a'. + info category: 'System'. + info description: + 'OSProcessPlugin (OSPP) provides access to Unix/Linux and Windows operating system functions. OSPP is used by OSProcess for low level system access. Stub classes are provided for other operating systems (porting assistance welcome). OSProcessPlugin contains the complete source code for the Unix and Windows OSProcessPlugin (OSPP). Generate the plugin with VMMaker. No external support code is required.'. + info maintainer: 'Dave Lewis'. + info homepage: 'http://wiki.squeak.org/squeak/3349'. + info squeakMapID: ''. + info url: 'http://wiki.squeak.org/squeak/uploads/3349/OSProcessPluginV4-2-6.sar'. + self provides: #(). + + self dependsOn: #(). + + ! Item was changed: ----- Method: PackagesDevU>>Squeakdevimage (in category 'Squeak Distributions') ----- Squeakdevimage self name: 'Squeak-dev image'. + self version: '0.167'. - self version: '0.164'. info category: 'Squeak Distributions'. info description: 'This package creates a squeak image made for developers. If you update a squeak-dev image, you can execute ''DEVImageCreator default install''.'. info maintainer: 'Damien Cassou <damien.cassou(a)gmail.com>'. info homepage: 'http://damien.cassou.free.fr/'. info squeakMapID: ''. + info url: 'http://www.squeaksource.com/ImageForDevelopers/ImageForDevelopers-dc.167.mcz'. - info url: 'http://www.squeaksource.com/ImageForDevelopers/ImageForDevelopers-dc.164.mcz'. self provides: #(). self dependsOn: #('Squeak dev packages'). !

1 0

Packages: Sake-Packages-dc.3.mcz
by squeak-dev-noreply＠lists.squeakfoundation.org 01 Oct '08

01 Oct '08

Damien Cassou uploaded a new version of Sake-Packages to project Packages: http://www.squeaksource.com/Packages/Sake-Packages-dc.3.mcz ==================== Summary ==================== Name: Sake-Packages-dc.3 Author: dc Time: 28 September 2008, 5:17:05 pm UUID: b8ae1e1e-220a-4644-a2bc-3b29f1e9ace1 Ancestors: Sake-Packages-kph.2 - Add a class for Pharo =============== Diff against Sake-Packages-kph.2 =============== Item was added: + PackagesDevU subclass: #PackagesPharo01 + instanceVariableNames: '' + classVariableNames: '' + poolDictionaries: '' + category: 'Sake-Packages'!

1 0

Installer: Installer-Core-kph.228.mcz
by squeak-dev-noreply＠lists.squeakfoundation.org 01 Oct '08

01 Oct '08

Keith Hodges uploaded a new version of Installer-Core to project Installer: http://www.squeaksource.com/Installer/Installer-Core-kph.228.mcz ==================== Summary ==================== Name: Installer-Core-kph.228 Author: kph Time: 30 September 2008, 12:58:21 pm UUID: 99d6602f-0f9c-4c7e-a5ae-d7f4f1936784 Ancestors: Installer-Core-kph.227 fix =============== Diff against Installer-Core-kph.227 =============== Item was changed: ----- Method: Installer>>webFindUrlToDownload (in category 'web install') ----- webFindUrlToDownload self class webSearchPath do: [ :pathSpec | | potentialUrl readPathSpec | readPathSpec := pathSpec value readStream. potentialUrl := (readPathSpec upTo: $*), self package, (readPathSpec upToEnd ifNil: [ '' ]). [ pageDataStream := self urlGet: potentialUrl ] doWhileTrue: [ (pageDataStream notNil and: [ pageDataStream size > 0 ]) ifTrue: [ (pageDataStream contents includesSubString: 'Please slow down a bit') ifFalse: [ pageDataStream reset. ^ potentialUrl ] ]. + (Delay forSeconds: 2) wait. + false. ]. ]. ^nil !

1 0

Installer: Installer-Core-kph.227.mcz
by squeak-dev-noreply＠lists.squeakfoundation.org 01 Oct '08

01 Oct '08

Keith Hodges uploaded a new version of Installer-Core to project Installer: http://www.squeaksource.com/Installer/Installer-Core-kph.227.mcz ==================== Summary ==================== Name: Installer-Core-kph.227 Author: kph Time: 30 September 2008, 12:56:37 pm UUID: 23c9fd18-91eb-4433-9800-9c486378a846 Ancestors: Installer-Core-kph.226 again attempt to work around pbwiki speed restrictions =============== Diff against Installer-Core-kph.226 =============== Item was changed: ----- Method: Installer>>webFindUrlToDownload (in category 'web install') ----- webFindUrlToDownload self class webSearchPath do: [ :pathSpec | | potentialUrl readPathSpec | readPathSpec := pathSpec value readStream. potentialUrl := (readPathSpec upTo: $*), self package, (readPathSpec upToEnd ifNil: [ '' ]). [ pageDataStream := self urlGet: potentialUrl ] doWhileTrue: [ + (pageDataStream notNil and: [ pageDataStream size > 0 ]) + ifTrue: [ (pageDataStream contents includesSubString: 'Please slow down a bit') ifFalse: [ pageDataStream reset. ^ potentialUrl ] ]. - ((pageDataStream notNil and: [ pageDataStream size > 0 ]) - ifTrue: [ pageDataStream contents includesSubString: 'Please slow down a bit' ]) ifFalse: [ pageDataStream reset. ^ potentialUrl ]. (Delay forSeconds: 2) wait. ]. ]. ^nil !

1 0

Installer: Installer-Core-dc.225.mcz
by squeak-dev-noreply＠lists.squeakfoundation.org 01 Oct '08

01 Oct '08

Damien Cassou uploaded a new version of Installer-Core to project Installer: http://www.squeaksource.com/Installer/Installer-Core-dc.225.mcz ==================== Summary ==================== Name: Installer-Core-dc.225 Author: dc Time: 28 September 2008, 6:15:44 pm UUID: cc0ac09b-b804-4b43-8130-1e2ddebbf623 Ancestors: Installer-Core-kph.224 - Only update the LastUniUpdate variable after updating Universe. The previous behavior could prevent the update if #uniUpdate is called often enough. =============== Diff against Installer-Core-kph.224 =============== Item was changed: ----- Method: Installer>>uniUpdate (in category 'universes') ----- uniUpdate + (LastUniUpdate isNil or:[ (DateAndTime now - LastUniUpdate) > 600 seconds ]) + ifTrue: [universe requestPackageList. + LastUniUpdate := DateAndTime now]! - - - (LastUniUpdate isNil or:[ (DateAndTime now - LastUniUpdate) > 600 seconds ]) ifTrue: [ universe requestPackageList ]. - - LastUniUpdate := DateAndTime now.! Item was changed: Object subclass: #Installer instanceVariableNames: 'sm wsm mc ma url root command markers project package bug desc answers packages messagesToSuppress pageDataStream date universe afile sake' + classVariableNames: 'WebSearchPath SkipLoadingTests Fixes ValidationBlock Entities InstallerBindings Sake Remembered LastUniUpdate IsSetToTrapErrors' - classVariableNames: 'WebSearchPath SkipLoadingTests Fixes Sake Entities ValidationBlock InstallerBindings Remembered LastUniUpdate IsSetToTrapErrors' poolDictionaries: '' category: 'Installer-Core'! !Installer commentStamp: 'kph 12/19/2007 14:42' prior: 0! Documentation now available at http://installer.pbwiki.com/Installer !

1 0

Installer: Installer-Core-kph.229.mcz
by squeak-dev-noreply＠lists.squeakfoundation.org 01 Oct '08

01 Oct '08

Keith Hodges uploaded a new version of Installer-Core to project Installer: http://www.squeaksource.com/Installer/Installer-Core-kph.229.mcz ==================== Summary ==================== Name: Installer-Core-kph.229 Author: kph Time: 30 September 2008, 3:45:56 pm UUID: 831357f2-18f8-4d30-9ccc-6a9969ea2774 Ancestors: Installer-Core-kph.228 fix =============== Diff against Installer-Core-kph.228 =============== Item was changed: ----- Method: Installer>>webFindUrlToDownload (in category 'web install') ----- webFindUrlToDownload self class webSearchPath do: [ :pathSpec | | potentialUrl readPathSpec | readPathSpec := pathSpec value readStream. potentialUrl := (readPathSpec upTo: $*), self package, (readPathSpec upToEnd ifNil: [ '' ]). [ pageDataStream := self urlGet: potentialUrl ] doWhileTrue: [ (pageDataStream notNil and: [ pageDataStream size > 0 ]) ifTrue: [ (pageDataStream contents includesSubString: 'Please slow down a bit') ifFalse: [ pageDataStream reset. ^ potentialUrl ] ]. (Delay forSeconds: 2) wait. + true. - false. ]. ]. ^nil !

1 0

Installer: Installer-Core-kph.226.mcz
by squeak-dev-noreply＠lists.squeakfoundation.org 01 Oct '08

01 Oct '08

Keith Hodges uploaded a new version of Installer-Core to project Installer: http://www.squeaksource.com/Installer/Installer-Core-kph.226.mcz ==================== Summary ==================== Name: Installer-Core-kph.226 Author: kph Time: 30 September 2008, 12:51:35 pm UUID: 1bef352d-18ed-405a-8a59-f18d2b02233d Ancestors: Installer-Core-dc.225 attempt to work around pbwiki errors =============== Diff against Installer-Core-dc.225 =============== Item was changed: ----- Method: Installer>>webFindUrlToDownload (in category 'web install') ----- webFindUrlToDownload self class webSearchPath do: [ :pathSpec | | potentialUrl readPathSpec | readPathSpec := pathSpec value readStream. potentialUrl := (readPathSpec upTo: $*), self package, (readPathSpec upToEnd ifNil: [ '' ]). + [ pageDataStream := self urlGet: potentialUrl ] + + doWhileTrue: [ + + ((pageDataStream notNil and: [ pageDataStream size > 0 ]) + ifTrue: [ pageDataStream contents includesSubString: 'Please slow down a bit' ]) ifFalse: [ pageDataStream reset. ^ potentialUrl ]. + (Delay forSeconds: 2) wait. + ]. + - pageDataStream := self urlGet: potentialUrl. - (pageDataStream notNil and: [ pageDataStream size > 0 ]) ifTrue: [ ^potentialUrl ] ]. ^nil ! Item was changed: Object subclass: #Installer instanceVariableNames: 'sm wsm mc ma url root command markers project package bug desc answers packages messagesToSuppress pageDataStream date universe afile sake' + classVariableNames: 'WebSearchPath SkipLoadingTests Fixes Sake Entities ValidationBlock InstallerBindings Remembered LastUniUpdate IsSetToTrapErrors' - classVariableNames: 'WebSearchPath SkipLoadingTests Fixes ValidationBlock Entities InstallerBindings Sake Remembered LastUniUpdate IsSetToTrapErrors' poolDictionaries: '' category: 'Installer-Core'! !Installer commentStamp: 'kph 12/19/2007 14:42' prior: 0! Documentation now available at http://installer.pbwiki.com/Installer ! Item was added: + ----- Method: Installer>>bug:retrieve: (in category 'mantis') ----- + bug: aBugNo retrieve: aFileName + + self setBug: aBugNo. + ^ (self maStreamForFile: aFileName) contents! Item was removed: - ----- Method: Installer>>bug:retrieve: (in category 'mantis') ----- - bug: aBugNo retrieve: aFileName - - self setBug: aBugNo. - ^ (self maStreamForFile: aFileName) contents!

1 0

2024

2023

2022

2021

2020

2019

2018

2017

2016

2015

2014

2013

2012

2011

2010

2009

2008

2007

2006

2005

Packages October 2008