;GIL-2
(
(
	:type                   :popup-window
	:name                   pop
	:owner                  nil
	:width                  327
	:height                 232
	:background-color       ""
	:foreground-color       ""
	:label                  "Select or name instance "
	:label-type             :string
	:mapped                 nil
	:show-footer            t
	:resizable              nil
	:pinned                 nil
	:done-handler           nil
	:event-handler          nil
	:events                 ()
	:user-data              ()
)
(
	:type                   :control-area
	:name                   controls1
	:owner                  pop
	:help                   ""
	:x                      0
	:y                      0
	:width                  327
	:height                 232
	:background-color       ""
	:foreground-color       ""
	:show-border            nil
	:menu                   nil
	:event-handler          nil
	:events                 ()
	:user-data              ()
)
(
	:type                   :text-field
	:name                   new_instance_field
	:owner                  controls1
	:help                   ""
	:x                      20
	:y                      16
	:width                  193
	:height                 32
	:foreground-color       ""
	:text-type              :alphanumeric
	:label                  "Type in new instance name:"
	:label-type             :string
	:value-x                20
	:value-y                33
	:layout-type            :vertical
	:value-length           16
	:stored-length          80
	:read-only              nil
	:notify-handler         add_new_instance_proc
	:event-handler          nil
	:events                 ()
	:user-data              ()
)
(
	:type                   :scrolling-list
	:name                   instances_list
	:owner                  controls1
	:help                   ""
	:x                      8
	:y                      64
	:width                  200
	:height                 163
	:foreground-color       ""
	:label                  "       or select an instance name:"
	:label-type             :string
	:layout-type            :vertical
	:rows                   7
	:read-only              t
	:multiple-selections    nil
	:selection-required     nil
	:menu                   nil
	:notify-handler         select_existing_instance_proc
	:event-handler          nil
	:events                 ()
	:user-data              ()
)
(
	:type                   :button
	:name                   done_button
	:owner                  controls1
	:help                   ""
	:x                      260
	:y                      104
	:constant-width         nil
	:button-type            :normal
	:width                  49
	:height                 20
	:foreground-color       ""
	:label                  "Done"
	:label-type             :string
	:menu                   nil
	:notify-handler         instance_done_proc
	:event-handler          nil
	:events                 ()
	:user-data              ()
)
)