;GIL-3
(
(
	:type                   :popup-window
	:name                   popup1
	:owner                  nil
	:width                  399
	:height                 166
	:background-color       ""
	:foreground-color       ""
	:label                  "Popup Window"
	:label-type             :string
	:initial-state          :invisible
	:show-footer            t
	:resizable              t
	:pinned                 nil
	:done-handler           nil
	:event-handler          nil
	:user-data              ()
	:actions                ()
)
(
	:type                   :control-area
	:name                   controls1
	:owner                  popup1
	:help                   ""
	:x                      25
	:y                      15
	:width                  348
	:height                 151
	:background-color       ""
	:foreground-color       ""
	:initial-state          :visible
	:show-border            nil
	:menu                   nil
	:event-handler          nil
	:user-data              ()
	:actions                ()
)
(
	:type                   :setting
	:name                   font_family_setting
	:owner                  controls1
	:help                   ""
	:x                      24
	:y                      12
	:width                  241
	:height                 23
	:value-x                113
	:value-y                12
	:rows                   1
	:columns                0
	:layout-type            :horizontal
	:foreground-color       ""
	:setting-type           :stack
	:selection-required     t
	:label                  "Font family:"
	:label-type             :string
	:notify-handler         nil
	:event-handler          nil
	:choices                ("Default fixedwidth" "Default" "Lucida" "Lucida fixedwidth" "Roman" "Serif" "Courier" "CMR" "Gallent" "Helvetica" )
	:choice-label-types     (:string :string :string :string :string :string :string :string :string :string )
	:choice-colors          ("" "" "" "" "" "" "" "" "" "" )
	:choice-defaults        (nil nil nil nil nil nil nil nil nil nil )
	:initial-selections     (nil nil nil nil nil nil nil nil nil nil )
	:initial-state          :active
	:user-data              ()
	:actions                ()
)
(
	:type                   :setting
	:name                   font_style_setting
	:owner                  controls1
	:help                   ""
	:x                      36
	:y                      44
	:width                  192
	:height                 23
	:value-x                114
	:value-y                44
	:rows                   1
	:columns                0
	:layout-type            :horizontal
	:foreground-color       ""
	:setting-type           :stack
	:selection-required     t
	:label                  "Font style:"
	:label-type             :string
	:notify-handler         nil
	:event-handler          nil
	:choices                ("Default" "Normal" "Bold" "Italic" "Oblique" "Bold Italic" "Bold Oblique" )
	:choice-label-types     (:string :string :string :string :string :string :string )
	:choice-colors          ("" "" "" "" "" "" "" )
	:choice-defaults        (nil nil nil nil nil nil nil )
	:initial-selections     (nil nil nil nil nil nil nil )
	:initial-state          :active
	:user-data              ()
	:actions                ()
)
(
	:type                   :setting
	:name                   font_scale_setting
	:owner                  controls1
	:help                   ""
	:x                      34
	:y                      76
	:width                  166
	:height                 23
	:value-x                114
	:value-y                76
	:rows                   1
	:columns                0
	:layout-type            :horizontal
	:foreground-color       ""
	:setting-type           :stack
	:selection-required     t
	:label                  "Font scale:"
	:label-type             :string
	:notify-handler         nil
	:event-handler          nil
	:choices                ("Small" "Medium" "Large" "X-Large" )
	:choice-label-types     (:string :string :string :string )
	:choice-colors          ("" "" "" "" )
	:choice-defaults        (nil nil nil nil )
	:initial-selections     (nil nil nil nil )
	:initial-state          :active
	:user-data              ()
	:actions                ()
)
(
	:type                   :button
	:name                   button1
	:owner                  controls1
	:help                   ""
	:x                      32
	:y                      112
	:width                  53
	:height                 20
	:constant-width         nil
	:button-type            :normal
	:foreground-color       ""
	:label                  "Apply"
	:label-type             :string
	:initial-state          :active
	:menu                   nil
	:notify-handler         change_font
	:event-handler          nil
	:user-data              ()
	:actions                (
		(
		:from                   (popup1 button1)
		:when                   (Notify )
		:to                     (popup1 button1)
		:function_type          CallFunction
		:arg_type               ()
		:action                 (change_font)
		)
	)
)
(
	:type                   :button
	:name                   button2
	:owner                  controls1
	:help                   ""
	:x                      116
	:y                      112
	:width                  51
	:height                 20
	:constant-width         nil
	:button-type            :normal
	:foreground-color       ""
	:label                  "Reset"
	:label-type             :string
	:initial-state          :active
	:menu                   nil
	:notify-handler         cancel_fontset
	:event-handler          nil
	:user-data              ()
	:actions                (
		(
		:from                   (popup1 button2)
		:when                   (Notify )
		:to                     (popup1 button2)
		:function_type          CallFunction
		:arg_type               ()
		:action                 (cancel_fontset)
		)
	)
)
)