'From Squeak3.5 of ''11 April 2003'' [latest update: #5180] on 27 April 2003 at 6:13:08 pm'!
"Change Set:		importer-support
Date:			12 April 2003
Author:			Stephan B. Wessels
SM Name:		Skins Importer Support

This change set requires 'ChangeSet-Revision-Tag-sbw'.

Date		Update
-------------	-----------------------------------------------------------------------
20-apr-2003	Moved code in ChangeSet to 'ChangeSet-Revision-Tag-sbw'.
			Added prerequisite change set checking to preamble.

12-apr-2003	Added change set support for extracting revision string from
			some change set premables.

04-mar-2003	Initial release.
"

	| prereqSMName continue cs prereqCSName prereqRevDateRqd |
	prereqCSName _ 'ChangeSet-Revision-Tag-sbw'.
	prereqSMName _ 'ChangeSet Revision Tag'.
	prereqRevDateRqd _ '20-apr-2003' asDate.
	continue _ (ChangeSorter respondsTo: #assurePrerequisiteChangeSetNamed:withSqueakMapName:revisionDate:)
				ifTrue: [ChangeSorter
						assurePrerequisiteChangeSetNamed: prereqCSName
						withSqueakMapName: prereqSMName
						revisionDate: prereqRevDateRqd]
				ifFalse: [cs _ ChangeSorter changeSetNamed: prereqCSName.
					cs isNil
						ifTrue: [(Object confirm: 'The package "' , prereqSMName , '" is not installed in
your image.  Do you want me to install it for you?.
Please note that "' , prereqSMName , '" is required
for the package you are about to install.')
								and: [].
							(Smalltalk
								at: #SMSqueakMap
								ifAbsent: [])
								ifNil: [Object error: 'You don''t have installed Squeakmap in your image'].
							Utilities
								informUser: 'Installing "' , prereqSMName , '"...'
								during: [(Smalltalk at: #SMSqueakMap) default installPackageNamed: prereqSMName].
							true]
						ifFalse: [true]].
	continue
		ifFalse: [Object error: 'Unable to load prerequisite package.'].
!


!Object methodsFor: 'skins' stamp: 'sbw 4/8/2003 06:25'!
topView
	^self! !


!FileDirectory methodsFor: 'file operations' stamp: 'sbw 2/22/2003 08:54'!
contentsOfFile: aPath
	| stream result |
	stream _ self readOnlyFileNamed: aPath.
	result _ stream contents.
	stream close.
	^result! !


!FileDirectory class methodsFor: 'name utilities' stamp: 'sbw 2/23/2003 10:48'!
rootVolumeName
	^self default pathParts first! !


!FileList2 class methodsFor: 'modal dialogs' stamp: 'sbw 3/8/2003 21:52'!
modalFolderSelector: aDirectory prompt: promptString 
	| window fileModel |
	window _ self morphicViewFolderSelector: aDirectory promptString: promptString.
	fileModel _ window model.
	window openInWorld: self currentWorld extent: 300 @ 400.
	[window world notNil]
		whileTrue: [window outermostWorldMorph doOneCycleNow].
	^ fileModel getSelectedDirectory withoutListWrapper! !


!PositionableStream methodsFor: 'accessing' stamp: 'sbw 2/22/2003 10:35'!
numberOfLines
	| count |
	count _ 0.
	[self atEnd] whileFalse: [self nextLine. count _ count + 1].
	^count! !

!PositionableStream methodsFor: 'converting' stamp: 'sbw 2/22/2003 10:39'!
asLines
	| coll |
	coll _ OrderedCollection new.
	[self atEnd] whileFalse: [coll add: self nextLine].
	^coll! !