Packages July 2014

packages@lists.squeakfoundation.org

1 participants
291 discussions

The Trunk: Collections.spur-nice.572.mcz
by commits＠source.squeak.org 07 Jul '14

07 Jul '14

Eliot Miranda uploaded a new version of Collections to project The Trunk: http://source.squeak.org/trunk/Collections.spur-nice.572.mcz ==================== Summary ==================== Name: Collections.spur-nice.572 Author: eem Time: 3 July 2014, 7:25:38.119 am UUID: 4c49fd06-4e30-43f3-9e3b-f799c9cd6f8c Ancestors: Collections-nice.572 Collections-nice.572 patched for Spur by SpurBootstrapMonticelloPackagePatcher Cog-eem.163 Let asUppercase and asLowercase use the unicode tables for wide strings/characters. Care is also taken to correctly handle characters with east asian encoding, but I'm not sure how healthy is this support in trunk... Remove Character>>basicSqueakToIso which is totally obsolete (does not the right thing) and is not sent. =============== Diff against Collections-nice.572 =============== Item was changed: ==== ERROR === Error: Unrecognized class type 7 July 2014 12:50:45.119 pm VM: unix - a SmalltalkImage Image: Squeak3.11alpha [latest update: #8824] SecurityManager state: Restricted: false FileAccess: true SocketAccess: true Working Dir /home/squeaksource Trusted Dir /home/squeaksource/secure Untrusted Dir /home/squeaksource/My Squeak MCClassDefinition(Object)>>error: Receiver: a MCClassDefinition(Character) Arguments and temporary variables: aString: 'Unrecognized class type' Receiver's instance variables: name: #Character superclassName: #Magnitude variables: an OrderedCollection(a MCClassVariableDefinition(CharacterTable) a M...etc... category: #'Collections-Strings' type: #immediate comment: 'I represent a character by storing its associated Unicode. The first ...etc... commentStamp: 'ar 4/9/2005 22:35' traitComposition: nil classTraitComposition: nil MCClassDefinition>>kindOfSubclass Receiver: a MCClassDefinition(Character) Arguments and temporary variables: Receiver's instance variables: name: #Character superclassName: #Magnitude variables: an OrderedCollection(a MCClassVariableDefinition(CharacterTable) a M...etc... category: #'Collections-Strings' type: #immediate comment: 'I represent a character by storing its associated Unicode. The first ...etc... commentStamp: 'ar 4/9/2005 22:35' traitComposition: nil classTraitComposition: nil MCClassDefinition>>printDefinitionOn: Receiver: a MCClassDefinition(Character) Arguments and temporary variables: stream: a WriteStream Receiver's instance variables: name: #Character superclassName: #Magnitude variables: an OrderedCollection(a MCClassVariableDefinition(CharacterTable) a M...etc... category: #'Collections-Strings' type: #immediate comment: 'I represent a character by storing its associated Unicode. The first ...etc... commentStamp: 'ar 4/9/2005 22:35' traitComposition: nil classTraitComposition: nil [] in MCDiffyTextWriter(MCStWriter)>>writeClassDefinition: Receiver: a MCDiffyTextWriter Arguments and temporary variables: definition: a WriteStream s: a MCClassDefinition(Character) Receiver's instance variables: stream: a WriteStream initStream: nil --- The full stack --- MCClassDefinition(Object)>>error: MCClassDefinition>>kindOfSubclass MCClassDefinition>>printDefinitionOn: [] in MCDiffyTextWriter(MCStWriter)>>writeClassDefinition: - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - String class(SequenceableCollection class)>>new:streamContents: String class(SequenceableCollection class)>>streamContents: MCDiffyTextWriter(MCTextWriter)>>chunkContents: MCDiffyTextWriter(MCStWriter)>>writeClassDefinition: MCDiffyTextWriter(MCStWriter)>>visitClassDefinition: MCClassDefinition>>accept: [] in MCDiffyTextWriter(MCTextWriter)>>visitInFork: String class(SequenceableCollection class)>>new:streamContents: String class(SequenceableCollection class)>>streamContents: MCDiffyTextWriter(MCTextWriter)>>visitInFork: MCDiffyTextWriter>>writePatchFrom:to: MCDiffyTextWriter>>writeModification: [] in MCDiffyTextWriter>>writePatch: SortedCollection(OrderedCollection)>>do: MCDiffyTextWriter>>writePatch: SSDiffyTextWriter>>writePatch: [] in SSDiffyTextWriter>>writeVersion:for: BlockClosure>>on:do: SSDiffyTextWriter>>writeVersion:for: [] in SSEMailSubscription>>versionAdded:to: BlockClosure>>on:do: SSEMailSubscription>>versionAdded:to: [] in [] in SSProject>>versionAdded: [] in BlockClosure>>newProcess

1 0

The Trunk: Collections.spur-nice.572.mcz
by commits＠source.squeak.org 07 Jul '14

07 Jul '14

1 0

The Trunk: Collections.spur-nice.572.mcz
by commits＠source.squeak.org 07 Jul '14

07 Jul '14

1 0

The Trunk: MorphicExtras-kfr.149.mcz
by commits＠source.squeak.org 05 Jul '14

05 Jul '14

Karl Ramberg uploaded a new version of MorphicExtras to project The Trunk: http://source.squeak.org/trunk/MorphicExtras-kfr.149.mcz ==================== Summary ==================== Name: MorphicExtras-kfr.149 Author: kfr Time: 5 July 2014, 5:59:02.203 pm UUID: a404a1e6-b874-0d47-af8f-6b7485cd6511 Ancestors: MorphicExtras-cmm.148 Add convenience menu option to graphis library tool =============== Diff against MorphicExtras-cmm.148 =============== Item was added: + ----- Method: GraphicalDictionaryMenu>>encodeToWorkspace (in category 'menu commands') ----- + encodeToWorkspace + | stream encodedStream pict text | + pict := formChoices at: currentIndex. + stream := RWBinaryOrTextStream on: (String new). + PNGReadWriter putForm: pict onStream: stream. + encodedStream := stream contents asByteArray base64Encoded. + text := (Workspace open) model. + text contents: 'Form fromBinaryStream: (Base64MimeConverter mimeDecodeToBytes: ''', encodedStream,''' readStream)'! Item was changed: ----- Method: GraphicalDictionaryMenu>>showMenu (in category 'menu commands') ----- showMenu "Show the receiver's menu" | aMenu | aMenu := MenuMorph new defaultTarget: self. aMenu title: 'Graphics Library'. aMenu addStayUpItem. aMenu addList: #( ('remove' removeEntry 'Remove this entry from the dictionary') ('rename' renameEntry 'Rename this entry') ('repaint' repaintEntry 'Edit the actual graphic for this entry' ) - ('hand me one' handMeOne 'Hand me a morph with this picture as its form') + ('encode to Workspace' encodeToWorkspace 'Open a Workspace with the grapics encoded to be added to code') ('browse symbol references' browseIconReferences 'Browse methods that refer to this icon''s name') ('browse string references' browseStringIconReferences 'Browse methods that refer to string constants that contain this icon''s name') ('copy name' copyName 'Copy the name of this graphic to the clipboard') - ('find...' findEntry 'Find an entry by name') ('find again' findAgain 'Find the next match for the keyword previously searched for')). aMenu popUpInWorld !

1 0

The Trunk: MorphicExtras-kfr.149.mcz
by commits＠source.squeak.org 05 Jul '14

05 Jul '14

1 0

The Trunk: MorphicExtras-kfr.149.mcz
by commits＠source.squeak.org 05 Jul '14

05 Jul '14

1 0

The Trunk: HelpSystem-Core-kfr.62.mcz
by commits＠source.squeak.org 05 Jul '14

05 Jul '14

Karl Ramberg uploaded a new version of HelpSystem-Core to project The Trunk: http://source.squeak.org/trunk/HelpSystem-Core-kfr.62.mcz ==================== Summary ==================== Name: HelpSystem-Core-kfr.62 Author: kfr Time: 5 July 2014, 5:04:58.241 pm UUID: bba82d56-63cd-2243-8fd7-f6e05151d6f9 Ancestors: HelpSystem-Core-kfr.61 Add editing and search to HelpBrowser =============== Diff against HelpSystem-Core-kfr.58 =============== Item was changed: Object subclass: #HelpBrowser + instanceVariableNames: 'rootTopic window treeMorph contentMorph topicClass topicMethod topic result' - instanceVariableNames: 'rootTopic window treeMorph contentMorph' classVariableNames: 'DefaultHelpBrowser' poolDictionaries: '' category: 'HelpSystem-Core-UI'! !HelpBrowser commentStamp: 'tbn 3/8/2010 09:33' prior: 0! A HelpBrowser is used to display a hierarchy of help topics and their contents. Instance Variables rootTopic: <HelpTopic> window: <StandardWindow> treeMorph: <PluggableTreeMorph> contentMorph: <Morph> rootTopic - xxxxx window - xxxxx treeMorph - xxxxx contentMorph - xxxxx ! Item was added: + ----- Method: HelpBrowser>>accept: (in category 'actions') ----- + accept: text + "Accept edited text. Compile it into a HelpTopic" + + | code | + code := String streamContents:[:s| + s nextPutAll: topicMethod. + s crtab; nextPutAll: '"This method was automatically generated. Edit it using:"'. + s crtab; nextPutAll: '"', self name,' edit: ', topicMethod storeString,'"'. + s crtab; nextPutAll: '^HelpTopic'. + s crtab: 2; nextPutAll: 'title: ', topic title storeString. + s crtab: 2; nextPutAll: 'contents: '. + s cr; nextPutAll: (String streamContents:[:c| c nextChunkPutWithStyle: text]) storeString. + s nextPutAll:' readStream nextChunkText'. + ]. + + topicClass class + compile: code + classified: ((topicClass class organization categoryOfElement: topicMethod) ifNil:['pages']). + self refresh. + ! Item was changed: ----- Method: HelpBrowser>>codePaneMenu:shifted: (in category 'events') ----- codePaneMenu: aMenu shifted: shifted - aMenu - add: 'edit' target: self selector: #editContents argument: self. ^StringHolder codePaneMenu: aMenu shifted: shifted. ! Item was removed: - ----- Method: HelpBrowser>>editContents (in category 'actions') ----- - editContents - | classList | - classList := self find: contentMorph textMorph contents string. - classList first actualClass theNonMetaClass edit: classList first selector. - self refresh! Item was added: + ----- Method: HelpBrowser>>find (in category 'actions') ----- + find + "Prompt the user for a string to search for, and search the receiver from the current selection onward for it." + + | reply | + reply := UIManager default request: 'Find what? ' initialAnswer: ''. + reply size = 0 ifTrue: [ + ^ self]. + self findStringInHelpTopic: reply + ! Item was changed: ----- Method: HelpBrowser>>find: (in category 'actions') ----- find: aString ^SystemNavigation allMethodsSelect: [:method | method hasLiteralSuchThat: [:lit | (lit isString and: [lit isSymbol not]) and: + [lit includesSubstring: aString caseSensitive: false]]] + localTo: CustomHelp - [lit includesSubstring: aString caseSensitive: true]]] ! Item was added: + ----- Method: HelpBrowser>>findAgain (in category 'actions') ----- + findAgain + | i | + (i := result indexOf: topic) ~= 0 + ifTrue: [i = result size + ifTrue: [(self confirm: 'Start over?') + ifTrue: [i := 1] + ifFalse: [^ self]]. + self + onItemClicked: (result at: i + 1)]! Item was added: + ----- Method: HelpBrowser>>findStringInHelpTopic: (in category 'actions') ----- + findStringInHelpTopic: aString + | list | + result := OrderedCollection new. + list := treeMorph scroller submorphs collect: [ :each | each complexContents]. + list do:[ : topic | self inSubtopic: topic find: aString ]. + self onItemClicked: result first. + ! Item was added: + ----- Method: HelpBrowser>>inSubtopic:find: (in category 'actions') ----- + inSubtopic: aTopic find: aString + ((aTopic asString includesSubString: aString) + or: [aTopic item contents asString includesSubString: aString]) + ifTrue: [result addIfNotPresent: aTopic item]. + aTopic contents + do: [:sub | self inSubtopic: sub find: aString]! Item was changed: ----- Method: HelpBrowser>>initWindow (in category 'initialize-release') ----- initWindow window := SystemWindow labelled: 'Help Browser'. window model: self. "Tree" treeMorph := PluggableTreeMorph new. + treeMorph model: self; setSelectedSelector: #onItemClicked:; getMenuSelector: #codePaneMenu:shifted:. - treeMorph model: self; setSelectedSelector: #onItemClicked:. window addMorph: treeMorph frame: (0@0 corner: 0.3@1). "Text" contentMorph := self defaultViewerClass on: self + text: nil accept: #accept: - text: nil accept: nil readSelection: nil menu: #codePaneMenu:shifted:. window addMorph: contentMorph frame: (0.3@0 corner: 1@1). ! Item was changed: ----- Method: HelpBrowser>>onItemClicked: (in category 'events') ----- onItemClicked: anItem + | classList | anItem isNil ifTrue: [^contentMorph setText: rootTopic asHelpTopic contents]. + contentMorph setText: anItem contents. + topic := anItem. + classList := (self find: anItem contents) asOrderedCollection. + classList ifNotEmpty:[ + topicClass := classList first actualClass theNonMetaClass. + topicMethod := classList first selector]. + ! - contentMorph setText: anItem contents!

1 0

The Trunk: HelpSystem-Core-kfr.62.mcz
by commits＠source.squeak.org 05 Jul '14

05 Jul '14

1 0

The Trunk: HelpSystem-Core-kfr.62.mcz
by commits＠source.squeak.org 05 Jul '14

05 Jul '14

1 0

The Trunk: MonticelloConfigurations-eem.127.mcz
by commits＠source.squeak.org 03 Jul '14

03 Jul '14

Eliot Miranda uploaded a new version of MonticelloConfigurations to project The Trunk: http://source.squeak.org/trunk/MonticelloConfigurations-eem.127.mcz ==================== Summary ==================== Name: MonticelloConfigurations-eem.127 Author: eem Time: 3 July 2014, 7:07:51.045 am UUID: 090e4e6b-73ba-441e-aa4a-4f0dc3a3050e Ancestors: MonticelloConfigurations-nice.126 Back out of the secondary update URL changes in MonticelloConfigurations-eem.124 now that Spur happily coexists in trunk. =============== Diff against MonticelloConfigurations-nice.126 =============== Item was changed: ----- Method: MCConfiguration>>updateFromRepositoriesWithoutCaching (in category 'updating') ----- updateFromRepositoriesWithoutCaching | oldNames newNames sortedNames newDeps | oldNames := self dependencies collect: [:dep | dep versionInfo versionName]. newNames := Dictionary new. self repositories do: [:repo | ProgressNotification signal: '' extra: 'Checking ', repo description. (repo possiblyNewerVersionsOfAnyOf: oldNames) + do: [:newName | newNames at: newName put: repo]] - do: [:newName | - "If a version is available from more than one repository, make sure to take - it from the first repository that has it. This allows the first repository to be - the primary repository, supplying only a subset of packages, falling back on - another repository for the rest, e.g. spur as primary & trunk as secondary." - (newNames includesKey: newName) ifFalse: - [newNames at: newName put: repo]]] displayingProgress: 'Searching new versions'. sortedNames := newNames keys asArray sort: [:a :b | a versionNumber > b versionNumber]. newDeps := OrderedCollection new: self dependencies size. self dependencies do: [:dep | newDeps add: (sortedNames detect: [:each | each packageAndBranchName = dep packageAndBranchName] ifFound: [ :newName | | repo | repo := newNames at: newName. (self versionInfoNamed: newName for: dep from: repo) ifNil: [ dep ] ifNotNil: [ :info | MCVersionDependency package: dep package info: info ] ] ifNone: [ dep ]) ] displayingProgress: 'downloading new versions'. + self dependencies: newDeps. + ! - self dependencies: newDeps! Item was changed: Object subclass: #MCMcmUpdater instanceVariableNames: '' + classVariableNames: 'DefaultUpdateURL LastUpdateMap SkipPackages UpdateFromServerAtStartup UpdateMissingPackages' - classVariableNames: 'DefaultUpdateURL LastUpdateMap SecondaryUpdateURL SkipPackages UpdateFromServerAtStartup UpdateMissingPackages' poolDictionaries: '' category: 'MonticelloConfigurations'! !MCMcmUpdater commentStamp: 'cbc 8/26/2010 16:42' prior: 0! MCMcmUpdater provides utility methods for updating Monticello packages from Monticello configurations. When Monticello configurations are stored in a repository (or repositories), MCMcmUpdater acts as an update stream. It first ensures that each configuration map has been loaded in sequence, then updates the last configuration map to the most recent version for each specified package, and finally loads these versions to produce a fully updated configuration. Currently if a set of packages are unloaded from the image, using this class to reload them may cause problems, depending on what dependencies those classes have. Success is not assured. Removing packages via SmalltalkImage>>unloadAllKnownPackages will be successful, it flags the packages removed so that they are not loaded by this utility. If you wish to not have MCMcmUpdater update packages, there are two ways to handle this: 1) To have MCMcmUpdater not update any packages not currently in the image set the UpdateMissingPackages preference to false: MCMcmUpdater updateMissingPackages: false Note that any new packages added to the repositories will not be picked up when this is turned off. 2) To have MCMcmUpdater not update a specific package, evaluate MCMcmUpdater disableUpdatesOfPackage: <packageName> Class Variables definitions: DefaultUpdateURL - String: the URL that will be checked by default for updates. This would be set for a common standard location to check. LastUpdateMap - Dictionary of Integer: version number of the last loaded update map per repository. Keeps track of the last configuration map, so that the utility will not have to run through the full history in the repositories each time you ask to update. SkipPackages - Set of Strings: names of packages to not update in MCMcmUpdater (empty by default). UpdateMissingPackages - Boolean: if true (default), new packages in the update config map will be loaded unless they are in SkipPackages. If false, packages not currently loaded in the image will not be loaded by MCMcmUpdater. (This can be dangerous if packages are split - use at your own risk). ! Item was changed: ----- Method: MCMcmUpdater class>>defaultUpdateURL (in category 'preferences') ----- defaultUpdateURL "The default update repository URL" + <preference: 'Update URL' - <preference: 'Primary Update URL' category: 'updates' description: 'The repository URL for loading updates' type: #String> ^DefaultUpdateURL ifNil:['']! Item was removed: - ----- Method: MCMcmUpdater class>>secondaryUpdateURL (in category 'preferences') ----- - secondaryUpdateURL - "The secondary update repository URL" - - <preference: 'Secondary Update URL' - category: 'updates' - description: 'The secondary repository URL for loading updates' - type: #String> - - ^SecondaryUpdateURL ifNil:['']! Item was removed: - ----- Method: MCMcmUpdater class>>secondaryUpdateURL: (in category 'preferences') ----- - secondaryUpdateURL: aString - "The secondary update repository URL, if any" - - SecondaryUpdateURL := aString! Item was changed: ----- Method: MCMcmUpdater class>>updateFromDefaultRepository (in category 'updating') ----- updateFromDefaultRepository + "Update from the default repository only" + ^self updateFromRepositories: {self defaultUpdateURL}! - "Update from the default repository, or primary and secondary only." - ^self updateFromRepositories: (self secondaryUpdateURL - ifNil: [{self defaultUpdateURL}] - ifNotNil: [:secondary| - secondary - ifEmpty: [{self defaultUpdateURL}] - ifNotEmpty: [{self defaultUpdateURL. secondary}]])!

1 0

Jump to page:

2024

2023

2022

2021

2020

2019

2018

2017

2016

2015

2014

2013

2012

2011

2010

2009

2008

2007

2006

2005

Packages July 2014