-- <<<-


-- The properties whose names begin with "XS." have values that are externalized
-- notifier objects that want to be notified when the form is submitted. 
-- Send them all a submitForm message, with the props as an argument. 
global theGenericDialog := object (WebMacro)
	func: (self str props ->
		forEachBinding props (propName propVal xxx ->
			local prop := propName as String
			if ((getRange prop 1 3) = "XS.") do (
				local valName := getRange prop 4 999
				local val := props[valName as NameClass]
				local notifier := internalize theWebServer propVal
				if (notifier != empty) do (
					submitForm notifier props
				)
			)
		) ok
		undefined
	)
end


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


-- >>>