[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