;GIL-3
(
(
	:type                   :popup-window
	:name                   popup1
	:owner                  nil
	:width                  400
	:height                 128
	:background-color       ""
	:foreground-color       ""
	:label                  "Load object file"
	:label-type             :string
	:initial-state          :invisible
	:show-footer            t
	:resizable              nil
	:pinned                 nil
	:done-handler           nil
	:event-handler          nil
	:user-data              ()
	:actions                ()
)
(
	:type                   :control-area
	:name                   controls1
	:owner                  popup1
	:help                   ""
	:x                      21
	:y                      13
	:width                  354
	:height                 114
	:background-color       ""
	:foreground-color       ""
	:initial-state          :visible
	:show-border            nil
	:menu                   nil
	:event-handler          nil
	:user-data              ()
	:actions                ()
)
(
	:type                   :text-field
	:name                   textfield1
	:owner                  controls1
	:help                   ""
	:x                      4
	:y                      26
	:width                  346
	:height                 15
	:value-x                78
	:value-y                26
	:value-length           34
	:stored-length          80
	:rows                   3
	:foreground-color       ""
	:text-type              :alphanumeric
	:label                  "Directory:"
	:label-type             :string
	:layout-type            :horizontal
	:value-underlined       t
	:initial-value          ""
	:initial-state          :active
	:read-only              nil
	:notify-handler         nil
	:event-handler          nil
	:user-data              ()
	:actions                ()
)
(
	:type                   :text-field
	:name                   textfield2
	:owner                  controls1
	:help                   ""
	:x                      2
	:y                      68
	:width                  346
	:height                 15
	:value-x                76
	:value-y                68
	:value-length           34
	:stored-length          80
	:rows                   3
	:foreground-color       ""
	:text-type              :alphanumeric
	:label                  "Filename:"
	:label-type             :string
	:layout-type            :horizontal
	:value-underlined       t
	:initial-value          ""
	:initial-state          :active
	:read-only              nil
	:notify-handler         load_file_proc
	:event-handler          nil
	:user-data              ()
	:actions                (
		(
		:from                   (popup1 textfield2)
		:when                   (Notify )
		:to                     (popup1 textfield2)
		:function_type          CallFunction
		:arg_type               ()
		:action                 (load_file_proc)
		)
	)
)
)