-- <<<-


global theDebugPage := object (WebPage)
	title: "ScriptX Web Debug Dialog"
	base: theSXPrefix
	contents
		object (WebMacro)
			func: (self str props ->
				local form := new WebForm formMethod: "get"
				local heading := new WebHeading level: 1
				append form heading
				append heading "ScriptX Web Debug Dialog"
				local submitButton := new WebSubmitInput
				append submitButton "Resubmit Form"
				append form submitButton
				local resetButton := new WebResetInput
				append resetButton "Reset Properties"
				append form resetButton
				append form (new WebLineBreak)
				append form "I got a request with the following properties:"
				local list := new WebBulletedList
				append form list
				forEachBinding props (key val x ->
					local item := new WebBrokenLines
					local label := new WebBold
					append label (key as String)
					append item label
					append list item
					local field := new WebTextInput \
									   name: (key as String) \
									   size: 40 maxSize: 256
					append field val
					append item field
				) ok
				form
			)
		end
end


registerDialog theWebServer \
	(new WebDialog \
		 name: "Debug" \
		 handler: (dialog props params -> printHTML theDebugPage (new String) props))


registerDialog theWebServer \
	(new WebDialog \
		 name: "empty" \
		 handler: (dialog props params -> printHTML theDebugPage (new String) props))


-- >>>