[squeak-dev] [ANN] FunSqueakCog4.2-10916 ready
Edgar J. De Cleene
edgardec2005 at gmail.com
Sun Jan 23 21:05:15 UTC 2011
On 1/23/11 5:31 PM, "Herbert König" <herbertkoenig at gmx.net> wrote:
> EJDC> ApplicationService services inspect
> EJDC> ApplicationService stopAll
>
> is not implemented
ApplicationService services inspect works, attached jpg of it
ApplicationService stopAll gives MNU, i copy of other image the do with ,
next version i add it
Thanks for feedback !!!
Edgar
In advance , coming of SqueakLight i add how import / export the common
request CRS.obj.
You modify the do at your will, export and import in another image you have
-------------- next part --------------
A non-text attachment was scrubbed...
Name: APPSERVI.jpg
Type: image/jpeg
Size: 37943 bytes
Desc: not available
Url : http://lists.squeakfoundation.org/pipermail/squeak-dev/attachments/20110123/80d8ea38/APPSERVI.jpg
-------------- next part --------------
'From Squeak3.11alpha of 13 February 2010 [latest update: #9809] on 23 January 2011 at 7:01:21 pm'!
!Object methodsFor: 'objects from disk' stamp: 'edc 9/5/2008 08:57'!
saveOnFileNamed: aString
"Ask the user for a filename and save myself on a
SmartReferenceStream file. Writes out the version and class structure.
The file is fileIn-able. UniClasses will be filed out.
This save objects as .obj"
| aFileName fileStream |
aString isEmpty
ifTrue: [^ Beeper beep].
aFileName := ('my {1}' translated format: {self class name}) asFileName.
"do better?"
aFileName := aString , '.obj'.
fileStream := FileStream newFileNamed: aFileName asFileName.
fileStream fileOutClass: nil andObject: self! !
!Utilities class methodsFor: 'common requests' stamp: 'edc 10/16/2009 18:30'!
exportCommonRequests
"Utilities exportCommonRequests"
(CommonRequestStrings == nil or: [CommonRequestStrings isKindOf: Array])
ifTrue:
[self initializeCommonRequestStrings]ifFalse:[CommonRequestStrings saveOnFileNamed: 'CRS']
! !
!Utilities class methodsFor: 'common requests' stamp: 'edc 10/16/2009 18:30'!
importCommonRequests
"Utilities importCommonRequests"
| inputStream anObject |
inputStream _ FileStream oldFileNamed: 'CRS.obj'.
anObject _ inputStream fileInObjectAndCode.
inputStream close.
CommonRequestStrings := anObject
! !
More information about the Squeak-dev
mailing list
|