Avi,

My DVS fileOut is being truncated for some reason.  Here is a sample.  
The last line should read "self rendPackageList" but instead it says 
"self renderP"

Any idea what might be causing that?

Thank you,
Derek

Smalltalk organization addCategory: 'WebDVS'!

WATreeVisitor subclass: #WADirectoryVisitor
	instanceVariableNames: ''
	classVariableNames: ''
	poolDictionaries: ''
	category: 'WebDVS'!

WADirectoryVisitor class
	instanceVariableNames: ''!

WAComponent subclass: #WAFileList
	instanceVariableNames: 'tree '
	classVariableNames: ''
	poolDictionaries: ''
	category: 'WebDVS'!

WAFileList class
	instanceVariableNames: ''!

WATreeVisitor subclass: #WAFileNameVisitor
	instanceVariableNames: ''
	classVariableNames: ''
	poolDictionaries: ''
	category: 'WebDVS'!

WAFileNameVisitor class
	instanceVariableNames: ''!

WAComponent subclass: #WebDVS
	instanceVariableNames: 'fileList '
	classVariableNames: ''
	poolDictionaries: ''
	category: 'WebDVS'!

WebDVS class
	instanceVariableNames: ''!

!WebDVS methodsFor: 'as yet unclassified' stamp: 'djb 11/29/2002 11:39'!
addPackage
	|packageName|
	packageName_ self call: (WAInputDialog new message: 'Name of package').
	FilePackageManager named: packageName.
	! !

!WAFileList methodsFor: 'as yet unclassified' stamp: 'djb 12/4/2002 
08:30'!
buildTreeFor: aFileName
	| oc dir newTree|
	newTree_ WATree new.
	oc _ OrderedCollection new.
	dir _ FileDirectory default.
	oc addFirst: dir fullName.
	[dir pathName = '']
		whileFalse: [dir _ dir containingDirectory.
					 oc addFirst: dir fullName].
	oc do: [:ea | newTree select: ea].
	newTree childVisitor: WADirectoryVisitor new.
	newTree labelVisitor: WAFileNameVisitor new.
	^ newTree! !

!WebDVS methodsFor: 'as yet unclassified' stamp: 'djb 12/4/2002 11:11'!
editDirectoryForPackage: pkg
	pkg directory: (
	FileDirectory on: (
	self call: (
	WAFileList on: (
	FileDirectory dirPathFor: pkg fileName))))! !

!WebDVS methodsFor: 'as yet unclassified' stamp: 'djb 12/2/2002 22:23'!
fileList
	^fileList ifNil:[fileList_WAFileList new]! !

!WebDVS class methodsFor: 'as yet unclassified' stamp: 'djb 11/29/2002 
11:52'!
initialize
	self registerAsApplication: 'WebDVS' sessionClass: WASession ! !

!WAFileList class methodsFor: 'as yet unclassified' stamp: 'djb 
12/4/2002 08:36'!
on: aDirectory
	^self new startOn: aDirectory
! !

!WebDVS methodsFor: 'as yet unclassified' stamp: 'djb 11/29/2002 14:45'!
packageListView
	^[:html |  html table: [
			PackageManager allManagers do: [ :pkg|
				html tableRow: [
					html tableData: [html text: pkg asString] fixTemps.
					html tableData:
					[html form: [
						html textInputWithValue: (FileDirectory dirPathFor: pkg fileName)
							callback: [:v | pkg directory: v] fixTemps.
						html submitButton.]].
					html tableData: [html anchorWithAction:[pkg unregister] fixTemps
						text:'delete '].
					html tableData: [html anchorWithAction:[self 
halt. pkg fileOut] fixTemps
						text: 'fileOut'].
					html tableData: [html anchorWithAction:[pkg fileIn] fixTemps
						text: 'fileIn']
				]
			]fixTemps
	]fixTemps]
				! !

!WebDVS methodsFor: 'as yet unclassified' stamp: 'djb 11/29/2002 15:10'!
renderControlsForPackage: pkg on: html
	html anchorWithAction: [pkg unregister]  text: 'delete '; space.
	html anchorWithAction: [pkg fileOut]  text: 'fileOut'; space.
	^html anchorWithAction: [pkg fileIn]  text: 'fileIn'! !

!WebDVS methodsFor: 'as yet unclassified' stamp: 'djb 12/4/2002 11:14'!
renderDirectoryEditorForPackage: pkg on: html
	html form:
			[html
			attributes: {'size' -> 50};
			textInputWithValue: (FileDirectory dirPathFor:pkg fileName)
			callback: [:path | pkg directory: (FileDirectory on: path)].
			html space.
			html anchorWithAction: [self editDirectoryForPackage: pkg] 
text: 'browse'.].
		
	! !

!WAFileList methodsFor: 'as yet unclassified' stamp: 'djb 12/3/2002 
09:52'!
renderOn: html
	html
		form: [html render: self tree.
			html
				submitButtonWithAction: [self select]
				text: 'select']! !

!WebDVS methodsFor: 'as yet unclassified' stamp: 'djb 12/4/2002 11:40'!
renderOn: html
	html heading: 'WebDVS'.
	html anchorWithAction:[self addPackage] text:'Add Package'.
	self renderP


Nerd on a Wire: Web and Information Solutions
Website Design - Database Systems - Site Hosting
604.874.6463
mailto:info at nerdonawire.com
For more information, visit http://nerdonawire.com