|
|
Folks:
I like export objects and loading again in the same Squeak .image or in
another which could understand it.
So I try to have a Service for it and have this (from older Squeaks)
!Object class methodsFor: 'objects from disk' stamp: 'edc 2/14/2008 08:19'!
readAndInspect: inputStream
(inputStream fileInObjectAndCode ) inspect! !
!Object class methodsFor: '*services-extras' stamp: 'edc 2/14/2008 08:45'!
fileReaderServicesForFile: fullName suffix: suffix
| services |
services _ OrderedCollection new.
(fullName asLowercase endsWith: '.obj')
ifTrue: [ services add: self serviceLoadObject ].
^services! !
!Object class methodsFor: '*services-extras' stamp: 'edc 2/14/2008 09:04'!
registeredServices
^ {
Service new
label: 'Open saved objects';
shortLabel: 'object';
description: 'load back saved object ';
action: [:stream | self readAndInspect: (FileStream
oldFileOrNoneNamed:stream name)];
shortcut: nil;
categories: Service worldServiceCat}! !
!Object class methodsFor: '*services-extras' stamp: 'edc 2/14/2008 08:49'!
serviceLoadObject
"Answer a service for opening a saved Object"
^ (SimpleServiceEntry
provider: self
label: 'saved Object'
selector: #readAndInspect:)
buttonLabel: 'Object';
argumentGetter: [:fileList | fileList readOnlyStream]! !
Works, but I have two "Object" buttons on FileList.
What I doing wrong ?
Very thanks in advance.
Edgar
|
Locked
