newlispfanclub.alh.net

Code: Select all

(define (action-handler)
	(if (= "MAIN:TheToggleButton" (args 0))
		(if (true? (args 1))
			(gs:disable 'TheButton 'TheImageButton 'TheRadioButton 'TheCheckBox 'TheMessage)
			(gs:enable 'TheButton 'TheImageButton 'TheRadioButton 'TheCheckBox 'TheMessage)
		))

	(if (= "MAIN:TheImageButton" (args 0))
		(gs:color-dialog 'TheFrame 'action-handler "Choose a color" 1 1 1))

	(if (= "MAIN:TheMessage" (args 0))
		(gs:confirm-dialog 'TheFrame 'action-handler 
				"A Message" "Enjoy GUI server" 
				"yes-no"
				;(amb "error" "informaton" "warning" "question" "plain")
		))

	(let (s "")
		(doargs (item)
			(write-buffer s (string item " ")))

		(if (or
			(= "MAIN:TheComboBox" (args 0))
			(= "MAIN:TheListBox" (args 0)))
			(write-buffer s (string (base64-dec (args 2)) " "))
		)

		(write-buffer s "\n")
		(gs:append-text 'MonitorArea s)
	)
)