;GIL-3
(
(
	:type                   :popup-window
	:name                   popup
	:owner                  nil
	:width                  379
	:height                 207
	:background-color       ""
	:foreground-color       ""
	:label                  "Display settings"
	:label-type             :string
	:initial-state          :invisible
	:show-footer            nil
	:resizable              nil
	:pinned                 t
	:done-handler           nil
	:event-handler          nil
	:user-data              ()
	:actions                ()
)
(
	:type                   :control-area
	:name                   controls1
	:owner                  popup
	:help                   ""
	:x                      47
	:y                      9
	:width                  274
	:height                 198
	:background-color       ""
	:foreground-color       ""
	:initial-state          :visible
	:show-border            nil
	:menu                   nil
	:event-handler          nil
	:user-data              ()
	:actions                ()
)
(
	:type                   :setting
	:name                   setting1
	:owner                  controls1
	:help                   ""
	:x                      40
	:y                      16
	:width                  204
	:height                 110
	:value-x                92
	:value-y                16
	:rows                   0
	:columns                1
	:layout-type            :horizontal
	:foreground-color       ""
	:setting-type           :check
	:selection-required     t
	:label                  "Select:"
	:label-type             :string
	:notify-handler         settings_proc
	:event-handler          nil
	:choices                ("No formatting" "No attribute names" "Quiet" "Very quiet" )
	:choice-label-types     (:string :string :string :string )
	:choice-colors          ("" "" "" "" )
	:initial-selections     (nil nil nil nil )
	:initial-state          :active
	:user-data              ()
	:actions                (
		(
		:from                   (popup setting1)
		:when                   (Notify )
		:to                     (popup setting1)
		:function_type          CallFunction
		:arg_type               ()
		:action                 (settings_proc)
		)
	)
)
(
	:type                   :setting
	:name                   setting2
	:owner                  controls1
	:help                   ""
	:x                      44
	:y                      132
	:width                  203
	:height                 52
	:value-x                91
	:value-y                132
	:rows                   0
	:columns                1
	:layout-type            :horizontal
	:foreground-color       ""
	:setting-type           :check
	:selection-required     t
	:label                  "Show:"
	:label-type             :string
	:notify-handler         catalog_settings_proc
	:event-handler          nil
	:choices                ("Catalog classes" "Catalog classes only" )
	:choice-label-types     (:string :string )
	:choice-colors          ("" "" )
	:initial-selections     (nil nil )
	:initial-state          :active
	:user-data              ()
	:actions                (
		(
		:from                   (popup setting2)
		:when                   (Notify )
		:to                     (popup setting2)
		:function_type          CallFunction
		:arg_type               ()
		:action                 (catalog_settings_proc)
		)
	)
)
)