GuidoForm HoopsStream {
-default_buttons
-label "Export HOOPS Interchange Format"
-layout BoxLayout Y_AXIS
-tip "EXPORTSTREAMFILE_TIP_003"
GuidoFiller space {
-height 0.5
}
GuidoPanel typePanel {
-layout CentrelineLayout
GuidoFileBrowserField filename {
-label SAVE_OUTPUT_FILE
-display_length 30
-format none
-file_access write
-file_mask "*.hsf"
-max_length 256
-null false
-extension false
-tip "EXPORTSTREAMFILE_TIP_001"
}
GuidoCheckBox html {
-default true
-label "Generate HTML page?"
-tip "Do you wish to generate a HTML stub file to display the output HSF file in Internet Explorer?"
}
}
GuidoFiller space {
-height 0.5
}
GuidoPanel htmlPanel {
-layout CentrelineLayout
-border etched true
-label "HTML Properties"
-dependency {"[$html getCurrentValue]" == "true"}
GuidoField title {
-label "Page Title"
-display_length 16
-max_length 64
-format none
-default "GEOVIA"
-tip "Enter the HTML page title"
}
GuidoScrollPane sp {
-label "Description of scene"
-height 5
-width 40
GuidoTextArea description {
-tip "EXPORTSTREAMFILE_TIP_004"
}
}
GuidoField width {
-label "Width of preview area"
-display_length 4
-max_length 12
-format double
-low_bound 100
-high_bound 1500
-default 600
-tip "EXPORTSTREAMFILE_TIP_006"
}
GuidoField height {
-label "Height of preview area"
-display_length 4
-max_length 12
-format double
-low_bound 100
-high_bound 1500
-default 500
-tip "EXPORTSTREAMFILE_TIP_005"
}
}
}
set formStatus [$HoopsStream interact]
GuidoApp appHandle "EXPORT INTERCHANGE FORMAT"
$appHandle setParam filename [$filename getCurrentValue]
$appHandle setParam html [$html getCurrentValue]
$appHandle setParam title [$title getCurrentValue]
$appHandle setParam description [$description getCurrentValue]
$appHandle setParam width [$width getCurrentValue]
$appHandle setParam height [$height getCurrentValue]
$HoopsStream destroy
if {$formStatus == "apply"} {
set appStatus [$appHandle invoke]
}
$appHandle destroy
