Mark,

Make sure you have the plugin - the code shows that the original primitive
(primAECreateDesc:from:)is failing and some (rather obscure ;) simulation
code kicks in.

Cheers,
  - Andreas

> -----Original Message-----
> From: squeak-dev-admin at lists.squeakfoundation.org
> [mailto:squeak-dev-admin at lists.squeakfoundation.org]On Behalf Of Mark
> Guzdial
> Sent: Thursday, December 13, 2001 4:36 PM
> To: squeak-dev at lists.squeakfoundation.org
> Subject: [Bug] AppleScript no longer works in 3.0, 3.2
>
>
> We just tried (from the class comment on Applescript) in 3.0 and 3.2:
> 		Applescript doIt: 'beep'
>
> And we got the below walkback.  We've tried other Applescript
> commands, and they're all failing.
>
> Mark
>
> Error: Object is negative integer
> 13 December 2001 9:39:34 am
>
> VM: Mac OS - Squeak3.1alpha of 7 March 2001 [latest update: #4347]
> Image: Squeak3.2alpha [latest update: #4599]
>
> Unsigned class(Object)>>error:
> 	Receiver: Unsigned
> 	Arguments and temporary variables:
> 		aString: 	'Object is negative integer'
> 	Receiver's instance variables:
> 		superclass: 	Behavior
> 		methodDict: 	a
> MethodDictionary(#ccg:prolog:expr:index:->a CompiledMethod
> (1361)...etc...
> 		format: 	136
> 		instanceVariables: 	nil
> 		organization: 	('as yet unclassified'
> ccg:prolog:expr:index: ccgDeclareCForVar:)...etc...
> 		subclasses: 	nil
> 		name: 	#Unsigned
> 		classPool: 	nil
> 		sharedPools: 	nil
> 		environment: 	nil
> 		category: 	nil
>
> Unsigned class>>ccgCanConvertFrom:
> 	Receiver: Unsigned
> 	Arguments and temporary variables:
> 		anObject: 	-1
> 	Receiver's instance variables:
> 		superclass: 	Behavior
> 		methodDict: 	a
> MethodDictionary(#ccg:prolog:expr:index:->a CompiledMethod
> (1361)...etc...
> 		format: 	136
> 		instanceVariables: 	nil
> 		organization: 	('as yet unclassified'
> ccg:prolog:expr:index: ccgDeclareCForVar:)...etc...
> 		subclasses: 	nil
> 		name: 	#Unsigned
> 		classPool: 	nil
> 		sharedPools: 	nil
> 		environment: 	nil
> 		category: 	nil
>
> SmallInteger(Object)>>asOop:
> 	Receiver: -1
> 	Arguments and temporary variables:
> 		aClass: 	Unsigned
> 	Receiver's instance variables:
> -1
> TestOSAPlugin>>primAECreateDesc:from:
> 	Receiver: a TestOSAPlugin
> 	Arguments and temporary variables:
> 		typeCode: 	a CArrayAccessor on: DescType('TEXT')
> 		aString: 	a CArrayAccessor on: 'beep'
> 		rcvr: 	a CArrayAccessor on:
> AEDesc(16r00000000('		size: 	4
> 	Receiver's instance variables:
> 		interpreterProxy: 	an InterpreterProxy
> 		moduleName: 	nil
>
> --- The rest of the stack ---
> TestOSAPlugin class(TestInterpreterPlugin
> class)>>doPrimitive:withArguments:
> AEDesc>>primAECreateDesc:from:
> AEDesc>>createFromText:
> AEDesc class>>textTypeOn:
> ApplescriptInstance>>compile:mode:
> Applescript>>on:mode:onErrorDo:
> Applescript>>on:
> Applescript class>>on:
> Applescript class>>doIt:
> Applescript class>>DoIt
> Compiler>>evaluate:in:to:notifying:ifFail:
> [] in TextMorphEditor(ParagraphEditor)>>evaluateSelection
> BlockContext>>on:do:
> TextMorphEditor(ParagraphEditor)>>evaluateSelection
> TextMorphEditor(ParagraphEditor)>>doIt
> [] in TextMorphEditor(ParagraphEditor)>>doIt:
> TextMorphEditor(Controller)>>terminateAndInitializeAround:
> TextMorphEditor(ParagraphEditor)>>doIt:
> TextMorphEditor(ParagraphEditor)>>dispatchOnCharacter:with:
> TextMorphEditor(ParagraphEditor)>>readKeyboard
> TextMorphEditor>>readKeyboard
> [] in TextMorphForEditView(TextMorph)>>keyStroke:
> TextMorphForEditView(TextMorph)>>handleInteraction:fromEvent:
> TextMorphForEditView>>handleInteraction:fromEvent:
> TextMorphForEditView(TextMorph)>>keyStroke:
> TextMorphForEditView>>keyStroke:
> TextMorphForEditView(TextMorph)>>handleKeystroke:
> KeyboardEvent>>sentTo:
> TextMorphForEditView(Morph)>>handleEvent:
> TextMorphForEditView(Morph)>>handleFocusEvent:
> [] in HandMorph>>sendFocusEvent:to:clear:
> PasteUpMorph>>becomeActiveDuring:
> HandMorph>>sendFocusEvent:to:clear:
> HandMorph>>sendEvent:focus:clear:
> HandMorph>>sendKeyboardEvent:
> HandMorph>>handleEvent:
> HandMorph>>processEvents
> [] in WorldState>>doOneCycleNowFor:
> Array(SequenceableCollection)>>do:
> WorldState>>handsDo:
> WorldState>>doOneCycleNowFor:
> WorldState>>doOneCycleFor:
> PasteUpMorph>>doOneCycle
> [] in Project class>>spawnNewProcess
> [] in BlockContext>>newProcess
> --------------------------
> Mark Guzdial : Georgia Tech : College of Computing : Atlanta,
> GA 30332-0280
> Associate Professor - Learning Sciences & Technologies.
> Collaborative Software Lab - http://coweb.cc.gatech.edu/csl/
> (404) 894-5618 : Fax (404) 894-0673 : guzdial at cc.gatech.edu
> http://www.cc.gatech.edu/gvu/people/Faculty/Mark.Guzdial.html
>
>