[Etoys] Literate Etoys

[karl]

Here is a little workaround the issue that script can only have one 
instance of a script open: a updating screenshot morph.
 From the script menu you can get a screenshot of the script, and it is 
stepping so it changes when the script changes.

Enjoy.

Karl

karl wrote:
> I've started a attempt to make Literate Etoys inspired by Literate 
> Programming and Active Essays. This to make it easier to clarify the 
> intent of the different scripts, document the project and hopefully help 
> users or students get a overview. 
>
> It will have made a automated way of inserting ScriptEditors and text 
> fields into a ScrollPane or a BookMorph.  The first script attempt  adds 
> a ScriptEditor for each script to a Playfield.
>
> Then I realized that the ScriptEditor got pulled of the Playfield and 
> into the world if I opened the script from the Viewer.
>
> Now I wonder if there is a way to keep two version of a ScriptEditor in 
> sync, one in the Playfield or documentation and one in the world ?
>
> Ideas and suggestions are welcomed
>
> Karl
> _______________________________________________
> Etoys mailing list
> Etoys at lists.laptop.org
> http://lists.laptop.org/listinfo/etoys
>
>   

-------------- next part --------------
'From etoys3.0 of 24 February 2008 [latest update: #1996] on 13 May 2008 at 2:30:26 pm'!
"Change Set:		ScreeshotOfScripts
Date:			13 May 2008
Author:			Karl Ramberg

It is currently not possible to have two versions of a the same script editor open. I miss that when I'm documenting the projects I make, and I put a script in a text it will dissapear from the text when I open the script in the world. 

Here is a work around that problem:
A menu item in scripts that open a sketch morph that looks like the script and it even updates when the script changes. Hopefully this makes documenting scripts easier.
 "!

SketchMorph subclass: #UpdatingSketchMorph
	instanceVariableNames: 'referenceMorph'
	classVariableNames: ''
	poolDictionaries: ''
	category: 'Morphic-Basic'!

!ScriptEditorMorph methodsFor: 'access' stamp: 'kfr 5/13/2008 14:25'!
showScreenshot
	| picture |
	picture := (UpdatingSketchMorph withForm: self imageForm).
	   picture referenceMorph: self.
	  picture openInHand.! !

!ScriptEditorMorph methodsFor: 'other' stamp: 'kfr 5/13/2008 14:10'!
offerScriptorMenu
	"Put up a menu in response to the user's clicking in the menu-request area of the scriptor's heaer"

	| aMenu count |

	self modernize.
	ActiveHand showTemporaryCursor: nil.

	Preferences eToyFriendly ifTrue: [^ self offerSimplerScriptorMenu].

	aMenu _ MenuMorph new defaultTarget: self.
	aMenu addTitle: scriptName asString.
	aMenu addStayUpItem.  "NB:  the kids version in #offerSimplerScriptorMenu does not deploy the stay-up item"

	aMenu addList: (self hasParameter
		ifTrue: [{
			{'remove parameter' translated.					#ceaseHavingAParameter}}]
		ifFalse: [{
			{'add parameter' translated.						#addParameter}}]).

	self hasParameter ifFalse:
		[aMenu addTranslatedList: {
			{'button to fire this script' translatedNoop. #tearOfButtonToFireScript}.
			{'fires per tick...' translatedNoop. #chooseFrequency}.
			#-
		}].

	aMenu addUpdating: #showingCaretsString  target: self action: #toggleShowingCarets.
	aMenu addLine.
	aMenu addList: {
		{'edit balloon help for this script' translated.		#editMethodDescription}.
		{'explain status alternatives' translated. 			#explainStatusAlternatives}.
		#-
	}.


	Preferences universalTiles ifFalse:
		[count _ self savedTileVersionsCount.
		self showingMethodPane
			ifFalse:				"currently showing tiles"
				[aMenu add: 'show code textually' translated action: #toggleWhetherShowingTiles.
				count > 0 ifTrue: 
					[aMenu add: 'revert to tile version...' translated action:	 #revertScriptVersion].
				aMenu add: 'save this version' translated	action: #saveScriptVersion]

			ifTrue:				"current showing textual source"
				[count >= 1 ifTrue:
					[aMenu add: 'revert to tile version' translated action: #toggleWhetherShowingTiles]]].

	"aMenu addLine.
	self addGoldBoxItemsTo: aMenu."

	aMenu addLine.
	
	aMenu addTranslatedList: {
		{'reveal my object' translatedNoop. #findObject.	'This script belongs to some object.  Show me where that object is on the screen' translatedNoop}.
		{'open viewer' translatedNoop. #openObjectsViewer.  'open the viewer of the object to which this script belongs' translatedNoop}.
		{'detached method pane' translatedNoop. #makeIsolatedCodePane. 'open a little window that shows the Smalltalk code underlying this script.' translatedNoop}.
		#-.
		{'destroy this script' translatedNoop. #destroyScript}
	}.
	
	aMenu add: 'screenshot of this script' translated action:	 #showScreenshot.
	aMenu popUpInWorld: self currentWorld.
! !


!UpdatingSketchMorph methodsFor: 'as yet unclassified' stamp: 'kfr 5/13/2008 14:02'!
referenceMorph: aMorph
	referenceMorph := aMorph! !

!UpdatingSketchMorph methodsFor: 'as yet unclassified' stamp: 'kfr 5/13/2008 14:28'!
step
	(referenceMorph isNil) | ((referenceMorph isInWorld) not) ifTrue: [^self stopStepping].
	self form: referenceMorph imageForm! !

!UpdatingSketchMorph methodsFor: 'as yet unclassified' stamp: 'kfr 5/13/2008 13:57'!
stepTime
	^1000! !