'From etoys2.2 of 21 September 2007 [latest update: #1673] on 28 September 2007 at 10:43:27 pm'!
"Change Set:		GuideInPrs-tk
Date:			28 September 2007
Author:			Ted Kaehler

The QuickGuideGenerator converts files from .pr to Yoshiki's new format.  
This update makes the converter larger, so the file list works better.  

QuickGuideGenerator new openInWorld.

Select the folder with the .pr files.  Press Generate."!


!QuickGuideGenerator methodsFor: 'all' stamp: 'tk 9/28/2007 17:02'!
makeInputDirList

	| m |
	fileList _ FileList2 morphicView model.
	fileList directory: (FileDirectory default).
	m _ (SimpleHierarchicalListMorph 
		on: self
		list:  #initialDirectoryList
		selected: #currentDirectorySelected
		changeSelected: #setSelectedDirectoryTo:
		menu: nil
		keystroke: nil)
			autoDeselect: false;
			enableDrag: false;
			enableDrop: true;
			yourself.
	m extent: m extent + (200@200).
	^ m.
! !

!QuickGuideGenerator methodsFor: 'all' stamp: 'tk 9/28/2007 17:07'!
setup

	| button |
	self color: Color lightBlue.
	self extent: 650@360.
	self addMorph: self makeInputDirList.
	inputMorph _ PluggableTextMorph on: self text: #getInput accept: #setInput:.
	inputMorph acceptOnCR: true.
	self addMorph: inputMorph.
	inputMorph extent: 300@50.
	inputMorph position: 355@0.

	outputMorph _ PluggableTextMorph on: self text: #getOutput accept: #setOutput:.
	outputMorph acceptOnCR: true.
	outputMorph extent: 300@50.
	outputMorph position: 355@50.
	self addMorph: outputMorph.

	button _ SimpleButtonMorph new.
	button
		labelString: 'Generate' font: Preferences standardMenuFont;
		actionSelector: #generate;
		arguments: #();
		target: self.
	button position: 365@125.
	self addMorph: button.

		! !