Squeak-dev January 2014

squeak-dev@lists.squeakfoundation.org

55 participants
379 discussions

The Inbox: Environments-cwp.42.mcz
by commits＠source.squeak.org 01 Jan '14

01 Jan '14

A new version of Environments was added to project The Inbox: http://source.squeak.org/inbox/Environments-cwp.42.mcz ==================== Summary ==================== Name: Environments-cwp.42 Author: cwp Time: 1 January 2014, 1:15:54.611 pm UUID: 7fd8f64b-fea3-4ab8-9dda-00142f2a3808 Ancestors: Environments-cwp.41 Rewrite import/export to be eager, rather than lazy. (step 2 of 3) =============== Diff against Environments-cwp.41 =============== Item was changed: ----- Method: Environment>>associationOrUndeclaredAt: (in category 'emulating') ----- associationOrUndeclaredAt: key + ^ bindings associationAt: key ifAbsent: - ^ references associationAt: key ifAbsent: [undeclared at: key put: nil. undeclared associationAt: key] ! Item was changed: ----- Method: Environment>>at:put: (in category 'emulating') ----- at: aSymbol put: anObject + ^ self bind: aSymbol to: anObject! - | binding | - (declarations includesKey: aSymbol) - ifTrue: [declarations at: aSymbol put: anObject] - ifFalse: - [(undeclared includesKey: aSymbol) - ifTrue: - [declarations declare: aSymbol from: undeclared. - declarations at: aSymbol put: anObject] - ifFalse: - [binding := aSymbol => anObject. - declarations add: binding. - exports bind: binding]]. - ^ anObject - ! Item was changed: ----- Method: Environment>>bindingOf:ifAbsent: (in category 'binding') ----- bindingOf: aSymbol ifAbsent: aBlock + ^ bindings bindingOf: aSymbol ifAbsent: + [undeclared bindingOf: aSymbol ifAbsent: aBlock]! - ^ references associationAt: aSymbol ifAbsent: - [(imports bindingOf: aSymbol) - ifNil: aBlock - ifNotNil: [:foreign | references add: (foreign asBinding: aSymbol)]]! Item was changed: ----- Method: Environment>>export: (in category 'configuring') ----- export: spec + | policy | + policy := BindingPolicy + environment: self - exports := Export - namespace: public policy: (ExplicitNamePolicy spec: spec) + addSelector: #notifyObserversOfBindingAdded: + removeSelector: #notifyObserversOfBindingRemoved:. + policies := policies copyWith: policy! - next: exports. - self publicizeContents! Item was changed: ----- Method: Environment>>exportAddingPrefix: (in category 'configuring') ----- exportAddingPrefix: aString + | policy | + policy := BindingPolicy + environment: self - exports := Export - namespace: public policy: (AddPrefixNamePolicy prefix: aString) + addSelector: #notifyObserversOfBindingAdded: + removeSelector: #notifyObserversOfBindingAdded:. + policies := policies copyWith: policy! - next: exports. - self publicizeContents! Item was changed: ----- Method: Environment>>exportRemovingPrefix: (in category 'configuring') ----- exportRemovingPrefix: aString + | policy | + policy := BindingPolicy + environment: self - exports := Export - namespace: public policy: (RemovePrefixNamePolicy prefix: aString) + addSelector: #notifyObserversOfBindingAdded: + removeSelector: #notifyObserversOfBindingAdded:. + policies := policies copyWith: policy! - next: exports. - self publicizeContents.! Item was changed: ----- Method: Environment>>exportSelf (in category 'configuring') ----- exportSelf + | policy | + policy := BindingPolicy + environment: self + policy: (AllNamePolicy new) + addSelector: #notifyObserversOfBindingAdded: + removeSelector: #notifyObserversOfBindingAdded:. + policies := policies copyWith: policy! - exports := Export namespace: public next: exports. - self publicizeContents.! Item was changed: ----- Method: Environment>>forgetClass:logged: (in category 'classes and traits') ----- forgetClass: aClass logged: aBool + | binding | + self flag: #review. + aBool ifTrue: [SystemChangeNotifier uniqueInstance classRemoved: aClass fromCategory: aClass category]. + + binding := declarations bindingOf: aClass name. + binding ifNotNil: + [self organization removeElement: aClass name. + Smalltalk removeFromStartUpList: aClass. + Smalltalk removeFromShutDownList: aClass. - self organization removeElement: aClass name. - Smalltalk removeFromStartUpList: aClass. - Smalltalk removeFromShutDownList: aClass. + undeclared declare: aClass name from: declarations. + declarations removeKey: aClass name ifAbsent: []. + [undeclared at: aClass name put: nil] + on: AttemptToWriteReadOnlyGlobal + do: [:n | n resume: true]. + self binding: binding removedFrom: self] - undeclared declare: aClass name from: declarations. - - imports forgetName: aClass name. - exports forgetName: aClass name. - declarations removeKey: aClass name ifAbsent: []. - references removeKey: aClass name ifAbsent: []. - - [undeclared at: aClass name put: nil] - on: AttemptToWriteReadOnlyGlobal - do: [:n | n resume: true]. ! Item was changed: ----- Method: Environment>>from:import: (in category 'configuring') ----- from: anEnvironment import: spec + | policy | + policy := BindingPolicy + environment: anEnvironment - imports := Import - namespace: anEnvironment public policy: (ExplicitNamePolicy spec: spec) + addSelector: #showBinding: + removeSelector: #hideBinding:. + policies := policies copyWith: policy. + anEnvironment addObserver: self. + anEnvironment addAllBindings.! - next: imports. - ! Item was changed: ----- Method: Environment>>import: (in category 'configuring') ----- import: anEnvironment + | policy | + policy := BindingPolicy + environment: anEnvironment + policy: AllNamePolicy new + addSelector: #showBinding: + removeSelector: #hideBinding:. + policies := policies copyWith: policy. + anEnvironment addObserver: self. + anEnvironment addAllBindings.! - imports := Import namespace: anEnvironment public next: imports. - self rebindUndeclared! Item was changed: ----- Method: Environment>>import:addingPrefix: (in category 'configuring') ----- import: anEnvironment addingPrefix: aString + + | import | + import := BindingPolicy + environment: anEnvironment + policy: (AddPrefixNamePolicy prefix: aString) + addSelector: #showBinding: + removeSelector: #hideBinding:. + policies := policies copyWith: import. + anEnvironment addObserver: self. + anEnvironment addAllBindings.! - "This implementation is slightly counter-intuitive. The local name has a prefix, - so we have to remove it before doing the look up in the other environment." - - imports := Import - namespace: anEnvironment public - policy: (RemovePrefixNamePolicy prefix: aString) - next: imports. - self rebindUndeclared.! Item was changed: ----- Method: Environment>>import:removingPrefix: (in category 'configuring') ----- import: anEnvironment removingPrefix: aString - "This implementation is slightly counter-intuitive. The local name doesn't have a - prefix, so we have to add one when look it up in the other environment." + | import | + import := BindingPolicy + environment: anEnvironment + policy: (RemovePrefixNamePolicy prefix: aString) + addSelector: #showBinding: + removeSelector: #hideBinding:. + policies := policies copyWith: import. + anEnvironment addObserver: self. + anEnvironment addAllBindings.! - imports := Import - namespace: anEnvironment public - policy: (AddPrefixNamePolicy prefix: aString) - next: imports. - self rebindUndeclared.! Item was changed: ----- Method: Environment>>importSelf (in category 'configuring') ----- importSelf + | policy | + policy := BindingPolicy + environment: self + policy: AllNamePolicy new + addSelector: #showBinding: + removeSelector: #hideBinding:. + policies := policies copyWith: policy. + + declarations associationsDo: + [:ea | (bindings includesKey: ea key) ifFalse: + [bindings add: ea]]! - imports := Import namespace: declarations next: imports. - self rebindUndeclared! Item was changed: ----- Method: Environment>>initialize (in category 'initialize-release') ----- initialize - references := IdentityDictionary new. declarations := IdentityDictionary new. + bindings := IdentityDictionary new. - public := IdentityDictionary new. undeclared := IdentityDictionary new. + policies := Array new. + observers := IdentitySet new.! - imports := Import null. - exports := Export null. - self importSelf.! Item was changed: ----- Method: Environment>>recompileAll (in category 'operations') ----- recompileAll - references removeAll. self allClassesAndTraits do: [:classOrTrait | classOrTrait compileAll] displayingProgress:[:classOrTrait| 'Recompiling ', classOrTrait] ! Item was changed: ----- Method: Environment>>removeKey:ifAbsent: (in category 'emulating') ----- + removeKey: aSymbol ifAbsent: aBlock + | binding | - removeKey: key ifAbsent: aBlock self flag: #review. + + (declarations includesKey: aSymbol) ifFalse: [^aBlock value]. + binding := (declarations associationAt: aSymbol). + declarations removeKey: aSymbol. + self + binding: binding + removedFrom: self. + ^ binding value! - ^ declarations removeKey: key ifAbsent: aBlock! Item was changed: ----- Method: Environment>>renameClass:from:to: (in category 'classes and traits') ----- renameClass: aClass from: oldName to: newName "Rename the class, aClass, to have the title newName." | binding category | - binding := declarations associationAt: oldName. category := self organization categoryOfElement: oldName. self organization classify: newName under: category suppressIfDefault: true. self organization removeElement: oldName. + + binding := self associationAt: oldName. + declarations removeKey: oldName. + self binding: binding removedFrom: self. + + binding key: newName. + declarations add: binding. + self binding: binding addedTo: self. + - self - remove: binding - from: declarations - readdAfter: [ - self - remove: binding - from: references - readdAfter: [ - self - remove: binding - from: public - readdAfter: [ - binding key: newName ] ] ]. Smalltalk renamedClass: aClass from: oldName to: newName. SystemChangeNotifier uniqueInstance classRenamed: aClass from: oldName to: newName inCategory: category! Item was changed: ----- Method: Environment>>valueOf:ifAbsent: (in category 'binding') ----- valueOf: aSymbol ifAbsent: aBlock + ^ (self bindingOf: aSymbol ifAbsent: [^ aBlock value]) value! - ^ references at: aSymbol ifAbsent: aBlock! Item was removed: - (PackageInfo named: 'Environments') postscript: '"below, add code to be run after the loading of this package" - - Smalltalk globals migrate. - '!

1 0

The Inbox: Environments-cwp.41.mcz
by commits＠source.squeak.org 01 Jan '14

01 Jan '14

A new version of Environments was added to project The Inbox: http://source.squeak.org/inbox/Environments-cwp.41.mcz ==================== Summary ==================== Name: Environments-cwp.41 Author: cwp Time: 1 January 2014, 1:10:00.935 pm UUID: 773b58d5-3b62-45ef-9176-c6e5b6a5dddb Ancestors: Environments-ul.40 Rewrite import/export to be eager, rather than lazy. (step 1 of 3) =============== Diff against Environments-ul.40 =============== Item was added: + ----- Method: Binding>>source (in category 'as yet unclassified') ----- + source + ^ self! Item was changed: Object subclass: #BindingPolicy + instanceVariableNames: 'namespace policy next environment addSelector removeSelector' - instanceVariableNames: 'namespace policy next' classVariableNames: '' poolDictionaries: '' category: 'Environments-Policies'! Item was added: + ----- Method: BindingPolicy class>>environment:policy:addSelector:removeSelector: (in category 'as yet unclassified') ----- + environment: anEnvironment policy: aNamePolicy addSelector: addSelector removeSelector: removeSelector + ^ self basicNew + initializeWithEnvironment: anEnvironment + policy: aNamePolicy + addSelector: addSelector + removeSelector: removeSelector! Item was added: + ----- Method: BindingPolicy>>binding:addedTo:notify: (in category 'events') ----- + binding: aBinding addedTo: anEnvironment notify: anObject + environment == anEnvironment ifTrue: + [policy name: aBinding key do: + [:name || binding | + binding := aBinding asBinding: name. + anObject perform: addSelector with: binding]]. + ! Item was added: + ----- Method: BindingPolicy>>binding:removedFrom:notify: (in category 'events') ----- + binding: aBinding removedFrom: anEnvironment notify: anObject + environment == anEnvironment ifTrue: + [policy name: aBinding key do: + [:name || binding | + binding := aBinding asBinding: name. + anObject perform: removeSelector with: binding]]. + ! Item was added: + ----- Method: BindingPolicy>>initializeWithEnvironment:policy:addSelector:removeSelector: (in category 'initialize-release') ----- + initializeWithEnvironment: anEnvironment + policy: aNamePolicy + addSelector: aSelector + removeSelector: rSelector + self initialize. + environment := anEnvironment. + policy := aNamePolicy. + addSelector := aSelector. + removeSelector := rSelector! Item was changed: Object subclass: #Environment + instanceVariableNames: 'info imports exports declarations references public undeclared bindings policies observers' - instanceVariableNames: 'info imports exports declarations references public undeclared' classVariableNames: 'Default Instances' poolDictionaries: '' category: 'Environments-Core'! !Environment commentStamp: 'cmm 12/20/2013 14:10' prior: 0! I am a context for compiling methods. I maintain the namespace of classes and global variables that are visible to the methods compiled within me. I have the following instance variables: info <EnvironmentInfo> Metadata about me and the code I contain. imports <Import> Rules for importing globals from other environments. exports <Export> Rules for exposing globals to other environments. declarations <IdentityDictionary> Bindings for globals that have been declared inside me. references <IdentityDictionary> Bindings for globals that are used by methods compiled inside me. public <IdentityDictionary> Bindings for classes that have been declared inside me, and which satisfy the export rules contain in 'exports'. undeclared <Dictionary> Bindings for globals that are used by methods compiled inside me, but which aren't present in 'references' and couldn't be found via the rules in 'imports'.! Item was added: + ----- Method: Environment>>addAllBindings (in category 'updating') ----- + addAllBindings + declarations associationsDo: + [:ea | self binding: ea addedTo: self]! Item was added: + ----- Method: Environment>>addObserver: (in category 'accessing') ----- + addObserver: anObject + observers add: anObject! Item was added: + ----- Method: Environment>>bind:to: (in category 'binding') ----- + bind: aSymbol to: anObject + | binding newBinding | + newBinding := aSymbol => anObject. + + binding := declarations associationAt: aSymbol ifAbsent: [nil]. + binding ifNotNil: + [binding class == newBinding class + ifTrue: [binding value: anObject] + ifFalse: [binding becomeForward: newBinding]. + ^anObject]. + + binding := undeclared associationAt: aSymbol ifAbsent: [nil]. + binding + ifNil: [binding := newBinding] + ifNotNil: + [undeclared removeKey: aSymbol. + binding class == newBinding class + ifTrue: [binding value: anObject] + ifFalse: [binding becomeForward: newBinding]]. + + declarations add: binding. + self binding: binding addedTo: self. + ^anObject + ! Item was added: + ----- Method: Environment>>binding:addedTo: (in category 'updating') ----- + binding: aBinding addedTo: anEnvironment + policies do: + [:ea | ea binding: aBinding addedTo: anEnvironment notify: self]! Item was added: + ----- Method: Environment>>binding:removedFrom: (in category 'updating') ----- + binding: aBinding removedFrom: anEnvironment + policies do: + [:ea | ea binding: aBinding removedFrom: anEnvironment notify: self]! Item was added: + ----- Method: Environment>>declarationOf: (in category 'binding') ----- + declarationOf: aSymbol + ^ declarations bindingOf: aSymbol! Item was added: + ----- Method: Environment>>hideBinding: (in category 'binding') ----- + hideBinding: aBinding + bindings removeKey: aBinding key! Item was changed: ----- Method: Environment>>migrate (in category 'initialize-release') ----- migrate + | newDeclarations source dest index policy | + bindings := IdentityDictionary new. + newDeclarations := IdentityDictionary new. + source := Array new: declarations size. + dest := Array new: declarations size. + index := 1. + declarations associationsDo: + [:ea || binding | + binding := ea key => ea value. + source at: index put: ea. + dest at: index put: binding. + newDeclarations add: binding. + bindings add: binding. + index := index + 1]. + declarations := newDeclarations. + source elementsForwardIdentityTo: dest. + + policy := BindingPolicy + environment: self + policy: AllNamePolicy new + addSelector: #showBinding: + removeSelector: #hideBinding:. + policies := Array with: policy. + + observers := IdentitySet new.. + ! - declarations := declarations. - references := references.! Item was added: + ----- Method: Environment>>notifyObserversOfBindingAdded: (in category 'updating') ----- + notifyObserversOfBindingAdded: aBinding + observers do: [:ea | ea binding: aBinding addedTo: self]! Item was added: + ----- Method: Environment>>notifyObserversOfBindingRemoved: (in category 'updating') ----- + notifyObserversOfBindingRemoved: aBinding + observers do: [:ea | ea binding: aBinding removedFrom: self]! Item was added: + ----- Method: Environment>>purgeUndeclared (in category 'binding') ----- + purgeUndeclared + undeclared removeUnreferencedKeys! Item was added: + ----- Method: Environment>>removeObserver: (in category 'accessing') ----- + removeObserver: anObject + observers remove: anObject! Item was added: + ----- Method: Environment>>showBinding: (in category 'binding') ----- + showBinding: aBinding + | binding | + binding := undeclared associationAt: aBinding key ifAbsent: [nil]. + binding ifNotNil: + [undeclared removeKey: binding key. + binding becomeForward: aBinding]. + + binding := bindings associationAt: aBinding key ifAbsent: [nil]. + binding ifNotNil: + [bindings removeKey: binding key]. + + bindings add: aBinding.! Item was added: + ----- Method: Environment>>undeclare: (in category 'binding') ----- + undeclare: aSymbol + ^ undeclared add: aSymbol => nil! Item was changed: (PackageInfo named: 'Environments') postscript: '"below, add code to be run after the loading of this package" + Smalltalk globals migrate. - | allAliases toBeRecompiled undesirableAliases | - - "Collect the CompiledMethods pointing to an Alias" - allAliases := Alias allInstances. - toBeRecompiled := CompiledMethod allInstances select: [:c | c isInstalled and: [allAliases anySatisfy: [:a | c pointsTo: a]]]. - - "Collect the Aliases pointing to some class binding in the same Environment with same name" - undesirableAliases := (Smalltalk globals instVarNamed: ''references'') associations select: [:e | - e class = Alias and: [e key = e source key - and: [(Smalltalk globals instVarNamed: ''declarations'') associations includes: e source]]]. - - "Replace the undesirable Aliases with their source binding" - undesirableAliases do: [:a | a becomeForward: a source]. - - "Rehash the references because they pointed to those Aliases - hope there''s nothing else to rehash" - (Smalltalk globals instVarNamed: ''references'') rehash. - - "Recompile the CompiledMethod that used to point to an Alias, because the bytecodes do change" - Symbol rehash. - toBeRecompiled do: [:c | c methodClass recompile: c selector]. - - allAliases := toBeRecompiled := undesirableAliases := nil. - Smalltalk garbageCollect. - Alias allInstances size. '!

1 0

Re: [squeak-dev] The Inbox: CommandLine-fbs.3.mcz
by Frank Shearar 01 Jan '14

01 Jan '14

On 30 December 2013 18:36, <commits(a)source.squeak.org> wrote: > A new version of CommandLine was added to project The Inbox: > http://source.squeak.org/inbox/CommandLine-fbs.3.mcz > > ==================== Summary ==================== > > Name: CommandLine-fbs.3 > Author: fbs > Time: 30 December 2013, 6:36:22.399 pm > UUID: a8ce5a55-8bb5-ac4b-a112-eb308ce3bf53 > Ancestors: CommandLine-fbs.2 > > If launched headless (with option -headless or -vm-display-null), use the CommandLineToolSet instead of the StandardToolSet. > > We must startUp: before AutoStart because AutoStart triggers the processing of startup scripts (because it asks all registered AbstractLaunchers - in particular, ProjectLauncher - to do their thing). > > =============== Diff against CommandLine-fbs.2 =============== This allows headless things to report bad things happening, like dumping syntax error notifications to stdout and exiting. frank

6 16

MathMorphs still alive?
by tim Rowledge 01 Jan '14

01 Jan '14

For assorted reasons of no interest here I was looking at a copy of the nuBlueBook and actually got around to reading the chapters on MathMorphs & the plotter extensions. Fabulous stuff and potentially a useful app of their own for the Raspberry Pi as an educational tool. Does it still work in the current image? Anybody still caring for the code? tim -- tim Rowledge; tim(a)rowledge.org; http://www.rowledge.org/tim Strange OpCodes: VMB: Verify, then Make Bad

6 6

The new release is hot
by Casey Ransberger 01 Jan '14

01 Jan '14

Forgive my wasting a bit of bandwidth here. I just wanted to say that I'm very pleased with the discussion I've seen around the new release, and the efforts that have gone into it. I'm really glad that folks decided to embrace Environments. I do look forward to naming my classes whatever I want and not worrying about global namespace collisions. This is one of the biggest complaints I've seen pitching Squeak in corporate environments. I'd actually like to use this system at work, so that's a big deal to me. I'm also really pleased with the effort around disentangling all of the circular dependencies. Squeak has needed this for a long time. So basically: thanks everyone, this is fantastic work, and the future is a little brighter than it was before. Also: is there anything that I can do to help out with the upcoming release? Figured I'd see about giving something back to folks who read all the way to the bottom of this post. Do we have release notes yet? Etcetera... --Casey

5 10

The Trunk: Tools-tpr.514.mcz
by commits＠source.squeak.org 01 Jan '14

01 Jan '14

tim Rowledge uploaded a new version of Tools to project The Trunk: http://source.squeak.org/trunk/Tools-tpr.514.mcz ==================== Summary ==================== Name: Tools-tpr.514 Author: tpr Time: 31 December 2013, 4:59:20.482 pm UUID: 4746cd0e-0db1-4fb1-b658-47e324f72349 Ancestors: Tools-fbs.513 remove an unsent method as tagged by isThisEverCalled =============== Diff against Tools-fbs.513 =============== Item was removed: - ----- Method: FileList2>>dropDestinationDirectory:event: (in category 'drag''n''drop') ----- - dropDestinationDirectory: dest event: evt - "Answer a FileDirectory representing the drop destination in the directory hierarchy morph dest" - self isThisEverCalled. - ^ (dest itemFromPoint: evt position) withoutListWrapper!

1 0

The Trunk: System-tpr.654.mcz
by commits＠source.squeak.org 01 Jan '14

01 Jan '14

tim Rowledge uploaded a new version of System to project The Trunk: http://source.squeak.org/trunk/System-tpr.654.mcz ==================== Summary ==================== Name: System-tpr.654 Author: tpr Time: 31 December 2013, 4:48:00.451 pm UUID: cbacd566-fabe-4c17-b05c-de4ee3d4c334 Ancestors: System-fbs.653 remove some unsent methods as tagged by isThisEverCalled =============== Diff against System-fbs.653 =============== Item was removed: - ----- Method: AbstractLauncher>>numericParameterAtOneOf:ifAbsent: (in category 'private') ----- - numericParameterAtOneOf: alternateParameterNames ifAbsent: aBlock - "Return the parameter named using one of the alternate names or an empty string" - - | parameterValue | - self isThisEverCalled. - parameterValue := self parameterAtOneOf: alternateParameterNames. - parameterValue isEmpty - ifTrue: [^aBlock value]. - ^[Number readFrom: parameterValue] ifError: aBlock - - ! Item was removed: - ----- Method: AbstractLauncher>>parameterAtOneOf: (in category 'private') ----- - parameterAtOneOf: alternateParameterNames - | parameterName | - "Return the parameter named using one of the alternate names or an empty string" - self isThisEverCalled. - parameterName := self determineParameterNameFrom: alternateParameterNames. - ^parameterName isNil - ifTrue: [''] - ifFalse: [self parameterAt: parameterName ifAbsent: ['']]!

1 0

The Trunk: Morphic-tpr.714.mcz
by commits＠source.squeak.org 01 Jan '14

01 Jan '14

tim Rowledge uploaded a new version of Morphic to project The Trunk: http://source.squeak.org/trunk/Morphic-tpr.714.mcz ==================== Summary ==================== Name: Morphic-tpr.714 Author: tpr Time: 31 December 2013, 4:45:38.484 pm UUID: 76e61735-1670-45a9-baef-d5bfd9a2d6b8 Ancestors: Morphic-fbs.713 remove some unsent methods as tagged by isThisEverCalled =============== Diff against Morphic-fbs.713 =============== Item was changed: ----- Method: AlternatePluggableListMorphOfMany>>list: (in category 'initialization') ----- list: listOfStrings + self isThisEverCalled . scroller removeAllMorphs. list := listOfStrings ifNil: [Array new]. list isEmpty ifTrue: [^ self selectedMorph: nil]. super list: listOfStrings. "At this point first morph is sensitized, and all morphs share same handler." scroller firstSubmorph on: #mouseEnterDragging send: #mouseEnterDragging:onItem: to: self. scroller firstSubmorph on: #mouseUp send: #mouseUp:onItem: to: self. "This should add this behavior to the shared event handler thus affecting all items"! Item was changed: ----- Method: HaloMorph>>dismiss (in category 'private') ----- dismiss + "Remove my target from the world Seems to be EToy specific." - "Remove my target from the world." | w | - self isThisEverCalled. "Seemingly no longer enfranchised" w := self world. w ifNotNil: [w stopStepping: target]. self delete. target dismissViaHalo! Item was changed: ----- Method: PluggableListMorph>>selectedMorph: (in category 'selection') ----- selectedMorph: aMorph + "this shouldn't be used any longer. Only sent by implemetations of #list: such as PluggableListMorph, SimpleHierarchicalListMorph etc" - "this shouldn't be used any longer" self isThisEverCalled . true ifTrue: [^self]! Item was removed: - ----- Method: TransferMorph>>dropNotifyRecipient (in category 'accessing') ----- - dropNotifyRecipient - self isThisEverCalled. - ^dropNotifyRecipient! Item was removed: - ----- Method: TransferMorph>>dropNotifyRecipient: (in category 'accessing') ----- - dropNotifyRecipient: anObject - self isThisEverCalled. - dropNotifyRecipient := anObject! Item was removed: - ----- Method: TransferMorph>>result: (in category 'dropping/grabbing') ----- - result: result - self isThisEverCalled. - ^ self result: result from: nil! Item was removed: - ----- Method: TransferMorph>>result:from: (in category 'dropping/grabbing') ----- - result: aResult from: aResultGenerator - "Send aResult of the drop operation computed by aResultGenerator to a resultRecipient, if it exists." - self isThisEverCalled. - resultRecipient ifNotNil: [resultRecipient dropResult: aResult from: aResultGenerator]!

1 0

The Trunk: Installer-Core-tpr.388.mcz
by commits＠source.squeak.org 01 Jan '14

01 Jan '14

tim Rowledge uploaded a new version of Installer-Core to project The Trunk: http://source.squeak.org/trunk/Installer-Core-tpr.388.mcz ==================== Summary ==================== Name: Installer-Core-tpr.388 Author: tpr Time: 31 December 2013, 4:44:28.775 pm UUID: c1f6039a-22f6-4024-97c4-0d5e7d6a53ac Ancestors: Installer-Core-cmm.387 remove an unsent method as tagged by isThisEverCalled =============== Diff against Installer-Core-cmm.387 =============== Item was removed: - ----- Method: Installer>>rememberAs: (in category 'custom names') ----- - rememberAs: symbol - self isThisEverCalled. - self class remembered at: symbol asSymbol put: self!

1 0

Jump to page: