hbox={name=noborder
button={ label=quit   name=quit   action=QUIT }
button={ label=Launch name=launch action="echo moduli=$modfile nt=$nt type=$type srctype=$srctype >>Ultimod.p ; Ultimod par=Ultimod.p <$srcfile >junk" }

menubutton={ label="tell me about" value=1 
         action="xtpanel -file panel.tellme.$val &" 
!         item={ label="who wrote me"      value=1 }
         item={ label="input model grid"  value=2 }
         item={ label="grid size"  value=3 }
!        item={ label="tomorrows weather" value=4 }
         item={ label="absorbing boundaries" value=5 }
         item={ label="parameter units" value=6 }
         item={ label="source type" value=7 }
	}

button={ label="compile" action="ASSIGN text1 $text1 `cake layer.h`" }

menubutton={ label="example runs" action="cake $val" value="acoust"
         item={ label="ti" value="ti" }
         item={ label="ortho" value="ortho"}
         item={ label="mono" value="mono"}
	 item={ label="acoust" value="acoust"}
	 item={label="acoust2c" value="acoust2c" }
	 item={label="inline2c" value="inline2c" }
	 item={ label="pressure2c" value="pressure2c"}
	 item={ label="marmousi" value="marmousi"}
	 item={ label="pumps" value="pumps"}
       }
}


text={ label="messages" value="Ultimod is an attempt of writing compact reusable code in 
Fortran 90 for seismic modeling. This interactive demo lets 
you vary some modeling parameters. To successful run the 
program you must connect to a Connection Machine.
Have fun.
"  }



hbox={name=noborder
menubutton={ label="medium type" value=1 name=type
         item={ label=ACOUSTIC value=1 }
         item={ label=ISOTROPIC value=2 }
         item={ label=CUBIC value=3 }
         item={ label=TI  value=4 }
         item={ label=ORTHO value=5 }
         item={ label=MONO value=6 }
         item={ label=TRICLINIC value=7 }
       }

button={ label="build model" action="xtpanel -file panel.model &"}
}

hbox={name=noborder
menubutton={ label="source type" value=0 name="srctype"
         item={ label="acceleration force" value=0 }
         item={ label="pressure, principal stress source" value=1 }
         item={ label="shear tangential stress source" value=2 }
         item={ label="couple force shear source"  value=3 }
       }

button={ label="source function" action="xtpanel -file panel.wavelet &"}
}

hbox={name=noborder
button={ label="source position" action="xtpanel -file panel.srcpos &"}

button={ label="receiver position" action="xtpanel -file panel.recpos &"}
}



vbox={ name=noborder
hbox={name=noborder
button={ label="recording" action="xtpanel -file panel.record &"}

button={ label="display" action="xtpanel -file panel.display &"}
}


vbox={ name=noborder
slider={ label="number of timesteps to compute" min=0 max=3000 value=300
	width=500 format="%0.f" name=nt
        } 

dialog={ label="source filename" name=srcfile 
         value=wavelet}

dialog={ label="model filename" name=modfile 
         value=moduli}

}
}
