Squeak-dev September 2009

squeak-dev@lists.squeakfoundation.org

119 participants
370 discussions

The Trunk: Collections-ar.138.mcz
by commits＠source.squeak.org 30 Sep '09

30 Sep '09

Andreas Raab uploaded a new version of Collections to project The Trunk: http://source.squeak.org/trunk/Collections-ar.138.mcz ==================== Summary ==================== Name: Collections-ar.138 Author: ar Time: 29 September 2009, 9:53:28 am UUID: 8eeaf535-25df-3346-aa33-59540513b74b Ancestors: Collections-nice.136, Collections-ul.137 Merging Collections-ul.137: - prepare for a new #grow and #rehash implementation for Set and its subclasses (except MethodDictionary). Add #noCheckNoGrowFillFrom:, #scanForEmptySlotFor: and #growTo: to these classes. - fix: adding Objects with the usual 12-bit #identityHash to a KeyedIdentitySet became O(n^2) when the set size reached 4096 (#scanFor:). - other minor changes (#scanFor:, #keysDo:) =============== Diff against Collections-nice.136 =============== Item was changed: ----- Method: Set>>scanFor: (in category 'private') ----- scanFor: anObject "Scan the key array for the first slot containing either a nil (indicating an empty slot) or an element that matches anObject. Answer the index of that slot or zero if no slot is found. This method will be overridden in various subclasses that have different interpretations for matching elements." - | element start finish | - finish := array size. - start := (anObject hash \\ finish) + 1. - - "Search from (hash mod size) to the end." - start to: finish do: - [:index | ((element := array at: index) == nil or: [element = anObject]) - ifTrue: [^ index ]]. - - "Search from 1 to where we started." - 1 to: start-1 do: - [:index | ((element := array at: index) == nil or: [element = anObject]) - ifTrue: [^ index ]]. + | element start | + start := (anObject hash \\ array size) + 1. + + "Search from (hash mod size) to the end." + start to: array size do: [ :index | + ((element := array at: index) == nil or: [ element = anObject ]) + ifTrue: [ ^index ] ]. + + "Search from 1 to where we started." + 1 to: start - 1 do: [ :index | + ((element := array at: index) == nil or: [ element = anObject ]) + ifTrue: [ ^index ] ]. + + ^0 "No match AND no empty slot"! - ^ 0 "No match AND no empty slot"! Item was added: + ----- Method: IdentitySet>>scanForEmptySlotFor: (in category 'private') ----- + scanForEmptySlotFor: anObject + "Scan the key array for the first slot containing an empty slot (indicated by a nil). Answer the index of that slot. This method will be overridden in various subclasses that have different interpretations for matching elements." + + | finish hash start | + (finish := array size) > 4096 + ifTrue: [ hash := anObject identityHash * (finish // 4096) ] + ifFalse: [ hash := anObject identityHash ]. + start := hash \\ finish + 1. + "Search from (hash mod size) to the end." + start to: finish do: [ :index | + (array at: index) ifNil: [ ^index ] ]. + "Search from 1 to where we started." + 1 to: start - 1 do: [ :index | + (array at: index) ifNil: [ ^index ] ]. + self error: 'There is no free space in this collection!!'! Item was added: + ----- Method: KeyedSet>>noCheckNoGrowFillFrom: (in category 'private') ----- + noCheckNoGrowFillFrom: anArray + "Add the elements of anArray except nils to me assuming that I don't contain any of them, they are unique and I have more free space than they require." + + 1 to: anArray size do: [ :index | + | object | + (object := anArray at: index) ifNotNil: [ + array + at: (self scanForEmptySlotFor: (keyBlock value: object)) + put: object ] ]! Item was added: + ----- Method: KeyedIdentitySet>>scanForEmptySlotFor: (in category 'private') ----- + scanForEmptySlotFor: anObject + "Scan the key array for the first slot containing an empty slot (indicated by a nil). Answer the index of that slot. This method will be overridden in various subclasses that have different interpretations for matching elements." + + | finish hash start | + (finish := array size) > 4096 + ifTrue: [ hash := anObject identityHash * (finish // 4096) ] + ifFalse: [ hash := anObject identityHash ]. + start := hash \\ finish + 1. + "Search from (hash mod size) to the end." + start to: finish do: [ :index | + (array at: index) ifNil: [ ^index ] ]. + "Search from 1 to where we started." + 1 to: start - 1 do: [ :index | + (array at: index) ifNil: [ ^index ] ]. + self error: 'There is no free space in this collection!!'! Item was added: + ----- Method: WeakSet>>noCheckNoGrowFillFrom: (in category 'private') ----- + noCheckNoGrowFillFrom: anArray + "Add the elements of anArray except nils and flag to me assuming that I don't contain any of them, they are unique and I have more free space than they require." + + tally := 0. + 1 to: anArray size do: [ :index | + | object | + ((object := anArray at: index) == flag or: [ + object == nil ]) ifFalse: [ + array + at: (self scanForEmptySlotFor: object) + put: object. + tally := tally + 1 ] ]! Item was added: + ----- Method: WeakSet>>scanForEmptySlotFor: (in category 'private') ----- + scanForEmptySlotFor: anObject + "Scan the key array for the first slot containing an empty slot (indicated by flag or a nil). Answer the index of that slot. This method will be overridden in various subclasses that have different interpretations for matching elements." + + | start element | + start := anObject hash \\ array size + 1. + "Search from (hash mod size) to the end." + start to: array size do: [ :index | + ((element := array at: index) == flag or: [ element == nil ]) ifTrue: [ ^index ] ]. + "Search from 1 to where we started." + 1 to: start - 1 do: [ :index | + ((element := array at: index) == flag or: [ element == nil ]) ifTrue: [ ^index ] ]. + self error: 'There is no free space in this collection!!'! Item was added: + ----- Method: Set>>noCheckNoGrowFillFrom: (in category 'private') ----- + noCheckNoGrowFillFrom: anArray + "Add the elements of anArray except nils to me assuming that I don't contain any of them, they are unique and I have more free space than they require." + + 1 to: anArray size do: [ :index | + | object | + (object := anArray at: index) ifNotNil: [ + array + at: (self scanForEmptySlotFor: object) + put: object ] ]! Item was added: + ----- Method: Dictionary>>noCheckNoGrowFillFrom: (in category 'private') ----- + noCheckNoGrowFillFrom: anArray + "Add the elements of anArray except nils to me assuming that I don't contain any of them, they are unique and I have more free space than they require." + + 1 to: anArray size do: [ :index | + | object | + (object := anArray at: index) ifNotNil: [ + array + at: (self scanForEmptySlotFor: object key) + put: object ] ]! Item was added: + ----- Method: IdentityDictionary>>scanForEmptySlotFor: (in category 'private') ----- + scanForEmptySlotFor: anObject + "Scan the key array for the first slot containing an empty slot (indicated by a nil). Answer the index of that slot. This method will be overridden in various subclasses that have different interpretations for matching elements." + + | finish hash start | + (finish := array size) > 4096 + ifTrue: [ hash := anObject identityHash * (finish // 4096) ] + ifFalse: [ hash := anObject identityHash ]. + start := hash \\ finish + 1. + "Search from (hash mod size) to the end." + start to: finish do: [ :index | + (array at: index) ifNil: [ ^index ] ]. + "Search from 1 to where we started." + 1 to: start - 1 do: [ :index | + (array at: index) ifNil: [ ^index ] ]. + self error: 'There is no free space in this collection!!'! Item was added: + ----- Method: WeakKeyDictionary>>noCheckNoGrowFillFrom: (in category 'private') ----- + noCheckNoGrowFillFrom: anArray + "Add the elements of anArray except nils and flag to me assuming that I don't contain any of them, they are unique and I have more free space than they require." + + tally := 0. + 1 to: anArray size do:[ :i | + | association | + (association := anArray at: i) ifNotNil: [ + array + at: (self scanForEmptySlotFor: association key) + put: association. + tally := tally + 1 ] ]! Item was changed: ----- Method: PluggableDictionary>>scanFor: (in category 'private') ----- scanFor: anObject + "Scan the key array for the first slot containing either a nil (indicating an empty slot) + or an element that matches anObject. Answer the index of that slot or zero if no slot + is found. This method will be overridden in various subclasses that have different + interpretations for matching elements." + + | element start | - "Scan the key array for the first slot containing either a nil - (indicating - an empty slot) or an element that matches anObject. Answer the index - - of that slot or zero if no slot is found. This method will be - overridden - in various subclasses that have different interpretations for matching - - elements." - | element start finish | start := (hashBlock ifNil: [anObject hash] ifNotNil: [hashBlock value: anObject]) \\ array size + 1. - finish := array size. "Search from (hash mod size) to the end." + start to: array size do: [:index | ((element := array at: index) == nil or: - start to: finish do: [:index | ((element := array at: index) == nil or: - [equalBlock ifNil: [element key = anObject] - ifNotNil: [equalBlock value: element key value: anObject]]) - ifTrue: [^ index]]. - "Search from 1 to where we started." - 1 to: start - 1 do: [:index | ((element := array at: index) == nil or: [equalBlock ifNil: [element key = anObject] ifNotNil: [equalBlock value: element key value: anObject]]) ifTrue: [^ index]]. + "Search from 1 to where we started." + 1 to: start - 1 do: [:index | ((element := array at: index) == nil or: + [equalBlock ifNil: [element key = anObject] + ifNotNil: [equalBlock value: element key value: anObject]]) + ifTrue: [^ index]]. ^ 0"No match AND no empty slot"! Item was added: + ----- Method: Set>>scanForEmptySlotFor: (in category 'private') ----- + scanForEmptySlotFor: anObject + "Scan the key array for the first slot containing an empty slot (indicated by a nil). Answer the index of that slot. This method will be overridden in various subclasses that have different interpretations for matching elements." + + | start | + start := anObject hash \\ array size + 1. + "Search from (hash mod size) to the end." + start to: array size do: [ :index | + (array at: index) ifNil: [ ^index ] ]. + "Search from 1 to where we started." + 1 to: start - 1 do: [ :index | + (array at: index) ifNil: [ ^index ] ]. + self error: 'There is no free space in this collection!!'! Item was changed: ----- Method: WeakKeyDictionary>>keysDo: (in category 'accessing') ----- keysDo: aBlock "Evaluate aBlock for each of the receiver's keys." + + self associationsDo: [ :association | + | key | + (key := association key) ifNotNil: [ + aBlock value: key ] ].! - self associationsDo: [:association | - association key ifNotNil:[aBlock value: association key]].! Item was added: + ----- Method: WeakKeyToCollectionDictionary>>noCheckNoGrowFillFrom: (in category 'as yet unclassified') ----- + noCheckNoGrowFillFrom: anArray + "Add the elements of anArray except nils and associations with empty collections (or with only nils) to me assuming that I don't contain any of them, they are unique and I have more free space than they require." + + tally := 0. + 1 to: anArray size do:[ :i | + | association cleanedValue | + ((association := anArray at: i) == nil or: [ + (cleanedValue := association value copyWithout: nil) isEmpty ]) + ifFalse: [ + association value: cleanedValue. + array + at: (self scanForEmptySlotFor: association key) + put: association. + tally := tally + 1 ] ]! Item was changed: ----- Method: PluggableSet>>scanFor: (in category 'private') ----- scanFor: anObject + "Scan the key array for the first slot containing either a nil (indicating an empty slot) + or an element that matches anObject. Answer the index of that slot or zero if no slot + is found. This method will be overridden in various subclasses that have different interpretations for matching elements." + | element start | + start := (hashBlock + ifNil: [ anObject hash ] + ifNotNil: [ hashBlock value: anObject ]) \\ array size + 1. - "Scan the key array for the first slot containing either a nil - (indicating - an empty slot) or an element that matches anObject. Answer the index - - of that slot or zero if no slot is found. This method will be - overridden - in various subclasses that have different interpretations for matching - - elements." - | element start finish | - start := (hashBlock ifNil: [anObject hash] - ifNotNil: [hashBlock value: anObject]) - \\ array size + 1. - finish := array size. "Search from (hash mod size) to the end." + start to: array size do: [:index | ((element := array at: index) == nil or: - start to: finish do: [:index | ((element := array at: index) == nil or: - [equalBlock ifNil: [element = anObject] - ifNotNil: [equalBlock value: element value: anObject]]) - ifTrue: [^ index]]. - "Search from 1 to where we started." - 1 to: start - 1 do: [:index | ((element := array at: index) == nil or: [equalBlock ifNil: [element = anObject] ifNotNil: [equalBlock value: element value: anObject]]) ifTrue: [^ index]]. + "Search from 1 to where we started." + 1 to: start - 1 do: [:index | ((element := array at: index) == nil or: + [equalBlock ifNil: [element = anObject] + ifNotNil: [equalBlock value: element value: anObject]]) + ifTrue: [^ index]]. ^ 0"No match AND no empty slot"! Item was added: + ----- Method: WeakIdentityKeyDictionary>>scanForEmptySlotFor: (in category 'private') ----- + scanForEmptySlotFor: anObject + "Scan the key array for the first slot containing an empty slot (indicated by a nil). Answer the index of that slot. This method will be overridden in various subclasses that have different interpretations for matching elements." + + | finish hash start | + (finish := array size) > 4096 + ifTrue: [ hash := anObject identityHash * (finish // 4096) ] + ifFalse: [ hash := anObject identityHash ]. + start := hash \\ finish + 1. + "Search from (hash mod size) to the end." + start to: finish do: [ :index | + (array at: index) ifNil: [ ^index ] ]. + "Search from 1 to where we started." + 1 to: start - 1 do: [ :index | + (array at: index) ifNil: [ ^index ] ]. + self error: 'There is no free space in this collection!!'! Item was added: + ----- Method: PluggableDictionary>>scanForEmptySlotFor: (in category 'private') ----- + scanForEmptySlotFor: anObject + "Scan the key array for the first slot containing an empty slot (indicated by a nil). Answer the index of that slot. This method will be overridden in various subclasses that have different interpretations for matching elements." + + | start | + start := (hashBlock + ifNil: [ anObject hash ] + ifNotNil: [ hashBlock value: anObject ]) \\ array size + 1. + "Search from (hash mod size) to the end." + start to: array size do: [ :index | + (array at: index) ifNil: [ ^index ] ]. + "Search from 1 to where we started." + 1 to: start - 1 do: [ :index | + (array at: index) ifNil: [ ^index ] ]. + self error: 'There is no free space in this collection!!'! Item was changed: ----- Method: KeyedIdentitySet>>scanFor: (in category 'private') ----- scanFor: anObject + "Scan the key array for the first slot containing either a nil (indicating an empty slot) or an element that matches anObject. Answer the index of that slot or zero if no slot is found. This method will be overridden in various subclasses that have different interpretations for matching elements." - "Same as super except change = to ==, and hash to identityHash" - - | element start finish | - finish := array size. - start := (anObject identityHash \\ finish) + 1. - + | element hash start finish | + finish := array size. + finish > 4096 + ifTrue: [ hash := anObject identityHash * (finish // 4096) ] + ifFalse: [ hash := anObject identityHash ]. + start := hash \\ finish + 1. + "Search from (hash mod size) to the end." start to: finish do: [:index | ((element := array at: index) == nil or: [(keyBlock value: element) == anObject]) ifTrue: [^ index ]]. "Search from 1 to where we started." 1 to: start-1 do: [:index | ((element := array at: index) == nil or: [(keyBlock value: element) == anObject]) ifTrue: [^ index ]]. ^ 0 "No match AND no empty slot"! Item was added: + ----- Method: PluggableSet>>scanForEmptySlotFor: (in category 'private') ----- + scanForEmptySlotFor: anObject + "Scan the key array for the first slot containing an empty slot (indicated by a nil). Answer the index of that slot. This method will be overridden in various subclasses that have different interpretations for matching elements." + + | start | + start := (hashBlock + ifNil: [ anObject hash ] + ifNotNil: [ hashBlock value: anObject ]) \\ array size + 1. + "Search from (hash mod size) to the end." + start to: array size do: [ :index | + (array at: index) ifNil: [ ^index ] ]. + "Search from 1 to where we started." + 1 to: start - 1 do: [ :index | + (array at: index) ifNil: [ ^index ] ]. + self error: 'There is no free space in this collection!!'! Item was added: + ----- Method: Set>>growTo: (in category 'private') ----- + growTo: anInteger + "Grow the elements array and reinsert the old elements" + + | oldElements | + oldElements := array. + array := Array new: anInteger. + self noCheckNoGrowFillFrom: oldElements!

1 0

The Trunk: Monticello-ar.323.mcz
by commits＠source.squeak.org 30 Sep '09

30 Sep '09

Andreas Raab uploaded a new version of Monticello to project The Trunk: http://source.squeak.org/trunk/Monticello-ar.323.mcz ==================== Summary ==================== Name: Monticello-ar.323 Author: ar Time: 29 September 2009, 9:38:50 am UUID: 927bef84-8215-0443-afe4-c8575b3a300c Ancestors: Monticello-cwp.322 A small improvement to MC loading. New rules are: - Pass 1: Load class changes first - Pass 2: Compile new / changed methods - Pass 3: Install new / changed methods - Pass 4: Remove old methods This should provide a bit more stability to the loading process. =============== Diff against Monticello-cwp.322 =============== Item was added: + ----- Method: MCMethodDefinition>>asMethodAddition (in category 'accessing') ----- + asMethodAddition + ^MethodAddition new + compile: source + classified: category + withStamp: timeStamp + notifying: (SyntaxError new category: category) + logSource: true + inClass: self actualClass.! Item was changed: ----- Method: MCPackageLoader>>basicLoad (in category 'private') ----- basicLoad errorDefinitions := OrderedCollection new. + [["Pass 1: Load everything but the methods, which are collected in methodAdditions." + additions do: [:ea | + [ea isMethodDefinition + ifTrue:[methodAdditions add: ea asMethodAddition] + ifFalse:[ea load]]on: Error do: [errorDefinitions add: ea]. + ] displayingProgress: 'Reshaping classes...'. + + "Pass 2: We compile new / changed methods" + methodAdditions do:[:ea| ea createCompiledMethod] displayingProgress: 'Compiling...'. - [[ - - "FIXME. Do a separate pass on loading class definitions as the very first thing. - This is a workaround for a problem with the so-called 'atomic' loading (you wish!!) - which isn't atomic at all but mixes compilation of methods with reshapes of classes. - - Since the method is not installed until later, any class reshape in the middle *will* - affect methods in subclasses that have been compiled before. There is probably - a better way of dealing with this by ensuring that the sort order of the definition lists - superclass definitions before methods for subclasses but I need this NOW, and adding - an extra pass ensures that methods are compiled against their new class definitions." + "Pass 3: Install the new / changed methods + (this is a separate pass to allow compiler changes to be loaded)" + methodAdditions do:[:ea| ea installMethod] displayingProgress: 'Installing...'. + + "Pass 4: Remove the obsolete methods" + removals do:[:ea| ea unload] displayingProgress: 'Cleaning up ...'. + + "Try again any delayed definitions" - additions do: [:ea | self loadClassDefinition: ea] displayingProgress: 'Loading classes...'. - - additions do: [:ea | self tryToLoad: ea] displayingProgress: 'Compiling methods...'. - removals do: [:ea | ea unload] displayingProgress: 'Cleaning up...'. self shouldWarnAboutErrors ifTrue: [self warnAboutErrors]. + errorDefinitions do: [:ea | ea load] displayingProgress: 'Reloading...'. + + "Finally, notify observers for the method additions" - errorDefinitions do: [:ea | ea addMethodAdditionTo: methodAdditions] displayingProgress: 'Reloading...'. - methodAdditions do: [:each | each installMethod]. methodAdditions do: [:each | each notifyObservers]. + + additions do: [:ea | ea postloadOver: (self obsoletionFor: ea)] displayingProgress: 'Initializing...' + ] on: InMidstOfFileinNotification do: [:n | n resume: true] + ] ensure: [self flushChangesFile]! - additions do: [:ea | ea postloadOver: (self obsoletionFor: ea)] displayingProgress: 'Initializing...'] - on: InMidstOfFileinNotification - do: [:n | n resume: true]] - ensure: [self flushChangesFile]!

1 0

XMLPullParser question
by Chris Muller 29 Sep '09

29 Sep '09

Parsing of an XML document with XMLPullParser reports false to #isStartTag upon the initial opening of the file. It does correctly report true to #isStartDocument, but isn't #isStartTag generic to any kind of element; whether the root element or not?

2 1

Adjusted, please check (was Re: [Esug-list] Test mp4-movies from ESUG, feedback wanted...)
by Göran Krampe 29 Sep '09

29 Sep '09

Hi! Ok, I have looked at responses from Andres, Martin etc and made the following adjustments to the script: "The sound level is a little low": I added "-D 2.0", dynamic range compression that might help. Haven't listened myself :) "It seems you can tell HandbrakeCLI to use CRF ": Yes, I moved to use that and have now a quality setting of 0.5. Regarding aspects, I enabled anamorphic (not sure what it will do!): http://trac.handbrake.fr/wiki/AnamorphicGuide ------------------ I have now uploaded two different new versions of esug44.mp4 (using the above changes) that are less than HALF the size of esug44.mp4 to: http://mimer.msc.se/esug Details: esug44-2.mp4 built using: HandBrakeCLI -i $1.$2 -o $1.mp4 --preset="Normal" -p -m -I -q 0.5 -e x264 -x ref=2:bframes=2:me=umh -E faac -B 32 -R 22.05 --mixdown mono -D 2.0 -d fast --denoise medium esug44-3.mp4 built using: HandBrakeCLI -i $1.$2 -o $1.mp4 --preset="Normal" -p -m -I -q 0.5 -e x264 -x ref=5:mixed-refs:bframes=4:bime:weightb:b-rdo:me=umh:subme=9:filter=0,-1:trellis=2:threads=4 -E faac -B 32 -R 22.05 --mixdown mono -D 2.0 -d fast --denoise medium The difference lies only in the options to x264 and this last version rips all options from this webpage: http://filthypants.blogspot.com/2008/07/comparison-of-x264h264-advanced-opt… Now... time to pick! esug44-2 or esug44-3? You may not even be able to tell the difference :) When decided I have 48Gb to churn through! regards, Göran

3 3

SqueakSource is currently down
by Giuseppe Luigi Punzi Ruiz 28 Sep '09

28 Sep '09

SqueakSource is currently down. We are sorry for the inconvenience and working on the problem. In the meantime you can still commit to a directory repository on your disk and later copy the versions to SqueakSource. This is the text you see if try to open squeaksource. Giuseppe Luigi Punzi Ruiz Blog: http://www.lordzealon.com Twitter & Skype & GoogleTalk accounts: glpunzi

1 0

[ANN] STicky
by Hernán Morales Durand 28 Sep '09

28 Sep '09

STicky is a pluggable real-time evaluator and/or translator workspace aimed to learn languages. For a quick overview please take a look at the presentation video: http://www.youtube.com/watch?v=b9uUIEaGyoU The Smalltalk evaluator could be useful in learning courses or for newbies typing expressions, but other translators/evaluators may help with more advanced usage, it all depends of the source and target languages you're using. Some default external translators, which does the real job, were included : Smalltalk to JavaScript (ST2JS by Diego Gomez Deck) Smalltlak to Java (Smalltalk2Java by Alexandre Bergel) Smalltalk to SQL (ROE by Avi Bryant) Smalltalk to AST nodes (Marcus Denker et al) HTML validator ( Todd Blanchard) JSON to Smalltalk (Tony Garnock-Jones et al) (...contact me if you want to add your translator in the release, a facility to automatic installation of translators is provided) You can easily plug translators and the workspace will update the current contents dynamically inside a sticky-like dialog or a fixed pane, the updater interface was decoupled to make possible other kinds of widgets too, but this is a bit experimental. Downloads from: http://www.squeaksource.com/STicky.html Comments are welcome. Hernán

6 5

The Trunk: System-cwp.152.mcz
by commits＠source.squeak.org 28 Sep '09

28 Sep '09

Colin Putney uploaded a new version of System to project The Trunk: http://source.squeak.org/trunk/System-cwp.152.mcz ==================== Summary ==================== Name: System-cwp.152 Author: cwp Time: 28 September 2009, 9:31:21 am UUID: f3d14748-2ff3-408f-9ec5-6451f6b158f4 Ancestors: System-dtl.151 AppRegistry now allows classes to decide how they will be displayed in menus rather than always using the class name. =============== Diff against System-dtl.151 =============== Item was changed: SystemOrganization addCategory: #'System-Applications'! SystemOrganization addCategory: #'System-Change Notification'! SystemOrganization addCategory: #'System-Changes'! SystemOrganization addCategory: #'System-Digital Signatures'! SystemOrganization addCategory: #'System-Digital Signatures-Tests'! SystemOrganization addCategory: #'System-Download'! SystemOrganization addCategory: #'System-FilePackage'! SystemOrganization addCategory: #'System-FileRegistry'! SystemOrganization addCategory: #'System-Finalization'! SystemOrganization addCategory: #'System-Localization'! SystemOrganization addCategory: #'System-Object Events'! SystemOrganization addCategory: #'System-Object Events-Tests'! SystemOrganization addCategory: #'System-Object Storage'! SystemOrganization addCategory: #'System-Pools'! - SystemOrganization addCategory: #'System-Serial Port'! - SystemOrganization addCategory: #'System-Support'! SystemOrganization addCategory: #'System-Preferences'! + SystemOrganization addCategory: #'System-Serial Port'! + SystemOrganization addCategory: #'System-Support'! SystemOrganization addCategory: #'System-Support-Tests'! SystemOrganization addCategory: #'System-Tools'! Item was changed: ----- Method: AppRegistry class>>askForDefault (in category 'as yet unclassified') ----- askForDefault self registeredClasses isEmpty ifTrue: [self inform: 'There are no ', self appName, ' applications registered.'. ^ default := nil]. self registeredClasses size = 1 ifTrue: [^ default := self registeredClasses anyOne]. default := UIManager default + chooseFrom: (self registeredClasses collect: [:ea | ea nameForViewer]) - chooseFrom: self registeredClasses values: self registeredClasses title: 'Which ', self appName, ' would you prefer?'. default ifNil: [default := self registeredClasses first]. ^default.!

1 0

[ANN] SqueakMVC based image sets
by Sungjin Chun 28 Sep '09

28 Sep '09

Hi, I've prepared following image sets using my (updated) squeak mvc image; 1. ST80.zip (updated with newer Kom Http server) 2. SeasideMVC.zip (Latest 2.8 Seaside) 3. Magritte.zip (2 + Magritte, not tested) 4. Pier.zip (3 + Pier, also not tested) above images are available at http://code.google.com/p/nxt-web/downloads/list Hope you guys enjoy these :)

1 0

Where to find the Alien plugin
by Damien Cassou 28 Sep '09

28 Sep '09

Hi, where can I find the sources of the Alien plugin in order to build a unix Squeak VM? Thank you -- Damien Cassou http://damiencassou.seasidehosting.st "Lambdas are relegated to relative obscurity until Java makes them popular by not having them." James Iry

1 0

Monticello15 file support?
by Hernán Morales Durand 28 Sep '09

28 Sep '09

Dear list members, As part of a data mining process I need to use many external files. File based developement is boring and error prone, as other developers should reproduce the same directory structure to load my packages in their images, etc. I can use InstanceEncoder but sometimes I need to view header information in files. >From this announce http://lists.squeakfoundation.org/pipermail/squeak-dev/2008-December/133031… there is a claim of Monticello basic support of external files as packages although I've tested it without success, that means, the package was created but it didn't included the contents of any file in a directory with the same name as the Monticello package. Is that the intended functionality? Did I miss some extra setup or step besides hitting the "Save" button? (I'm using Monticello.impl-mtf.648 and PackageInfo-Base-mtf.70) And it seems too there's only one image with file support integrated (the "LPF image" : 090628-1523_Squeak3.10.2-lpf) but I want to use it in other images, namely Squeak and Pharo. My options are: -Ask for feasible alternatives to you. -Keep mantaining external files without taking advantage of image based developement. -Adapt PackageInfo/MCPackage to latest forked Monticellos (I'm not tempted with this at all, still I see no technical reason why Monticello was forked so many times...) There are plans to integrate the external files feature in Squeak or Pharo? Someone already has something "better"? Cheers Hernán

1 0

← Newer
1
2
3
4
5
6
7
8
...
37
Older →

Jump to page: