source: trunk/gui/apps/driver @ 6

#!/bin/sh
# ----------------------------------------------------------------------
#  USER INTERFACE DRIVER
#
#  This driver program loads a tool description from a tool.xml file,
#  and a UI configuration from a config.xml file, and produces a
#  user interface automatically to drive an application.  The user
#  can set up input, click and button to launch a tool, and browse
#  through output.
#
#  RUN AS FOLLOWS:
#    driver ?-tool <toolfile>? ?-config <configfile>?
#
#  If the <toolfile> is not specified, this program looks for a
#  file called "tool.xml" in the current directory.  If the <configfile>
#  is not specified, it looks for "config.xml" in the current directory.
#
# ======================================================================
#  AUTHOR:  Michael McLennan, Purdue University
#  Copyright (c) 2004  Purdue Research Foundation, West Lafayette, IN
# ======================================================================
#\
exec wish "$0" $*
# ----------------------------------------------------------------------
# wish executes everything from here on...

package require Rappture

option add *MainWin.mode web startupFile
option add *MainWin.borderWidth 0 startupFile
option add *MainWin.anchor center startupFile

# "web site" look
option add *MainWin.bgScript {
    rectangle 0 0 200 <h> -outline "" -fill #5880BB
    rectangle 200 0 300 <h> -outline "" -fill #425F8B
    rectangle 300 0 <w> <h> -outline "" -fill #324565
} startupFile

# "clean" look
option add *MainWin.bgScript "" startupFile
option add *MainWin.bgColor white startupFile

image create photo in2out \
    -file [file join $Rappture::installdir scripts images in2out.gif]

#
# Process command line args to get the names of files to load...
#
set toolfile "tool.xml"
set configfile "config.xml"

while {[llength $argv] > 0} {
    set first [lindex $argv 0]
    set argv [lrange $argv 1 end]

    switch -- $first {
        -tool {
            if {[llength $argv] > 0} {
                set toolfile [lindex $argv 0]
                set argv [lrange $argv 1 end]
            } else {
                puts stderr "$argv0: missing value for -tool"
                exit 1
            }
        }
        -config {
            if {[llength $argv] > 0} {
                set configfile [lindex $argv 0]
                set argv [lrange $argv 1 end]
            } else {
                puts stderr "$argv0: missing value for -tool"
                exit 1
            }
        }
        default {
            puts stderr "usage: $argv0 ?-tool file? ?-config file?"
            exit 1
        }
    }
}

# open the XML file containing the material library
set lib [Rappture::library -std library.xml]
                                                                                
# open the XML file containing the tool parameters
if {![file exists $toolfile]} {
    puts stderr "tool file \"$toolfile\" doesn't exist"
    exit 1
}
set tool [Rappture::library $toolfile]
                                                                                
# open the XML file containing the configuration for this application
if {![file exists $configfile]} {
    puts stderr "config file \"$configfile\" doesn't exist"
    exit 1
}
set config [Rappture::library $configfile]

# ----------------------------------------------------------------------
# From here on, run in the directory containing the tool.xml file,
# so driver.xml files, etc., are created there
# ----------------------------------------------------------------------
cd [file dirname $toolfile]

# ----------------------------------------------------------------------
# USAGE: main_device_select
#
# Invoked automatically when a user selects a new device from the
# "Devices:" combobox.  Plugs the new device into the device viewer.
# ----------------------------------------------------------------------
proc main_device_select {} {
    set win [.main component app]
    set val [$win.input.devsel.dev value]
    set val [$win.input.devsel.dev translate $val]
    $win.input.device configure -device $val
    $win.output.analyze configure -device $val
}

# ----------------------------------------------------------------------
# MAIN WINDOW
# ----------------------------------------------------------------------
wm withdraw .
Rappture::MainWin .main -borderwidth 0

#.main configure -title [$config get title]

# build everything inside this main window
set win [.main component app]
$win configure -background #a6a6a6

frame $win.input -borderwidth 12 -relief flat
pack $win.input -side left -expand yes -fill both -padx {0 5}

frame $win.output -borderwidth 12 -relief flat
pack $win.output -side left -expand yes -fill both -padx {5 0}

# make an arrow that goes from input to output side
label $win.arrow -borderwidth 0 -image in2out
place $win.arrow -y 2 -anchor n
bind $win.input <Configure> [list align_arrow $win]
proc align_arrow {win} {
    place $win.arrow -x [expr {[winfo width $win.input]+5}]
}

# ----------------------------------------------------------------------
# INPUT AREA
# ----------------------------------------------------------------------
set w $win.input
set dfirst ""
set dlist [$config children -type structure controls]
if {"" != $dlist} {
    foreach dname $dlist {
        set obj [$config element -flavor object controls.$dname]
        set name [$obj get label]
        set devs($name) $obj
    }
    set devlist [lsort [array names devs]]

    if {[array size devs] > 1} {
        frame $w.devsel
        pack $w.devsel -side top -fill x
        label $w.devsel.l -text "Device:"
        pack $w.devsel.l -side left
        Rappture::Combobox $w.devsel.dev -width 30 -editable no
        pack $w.devsel.dev -side left
        bind $w.devsel.dev <<Value>> main_device_select

        foreach name $devlist {
            $w.devsel.dev choices insert end $devs($name) $name
        }
        $w.devsel.dev value [lindex $devlist 0]
    }

    set first [lindex $devlist 0]
    set dfirst $devs($first)
    Rappture::DeviceViewer1D $w.device -device $devs($first) \
        -tool $tool -library $lib
    pack $w.device -expand yes -fill both

    bind $w.device <<Edit>> [list $win.output.analyze reset]
}

# ----------------------------------------------------------------------
# OUTPUT AREA
# ----------------------------------------------------------------------
set w $win.output
Rappture::Analyzer $w.analyze -holdwindow $win.input \
    -tool $tool -analysis [$config element -flavor object analysis] \
    -device $dfirst
pack $w.analyze -expand yes -fill both

# ----------------------------------------------------------------------
# HOOK UP ANY CONTROLS CALLED OUT IN CONFIG.XML
# ----------------------------------------------------------------------
foreach access [$config children -type access controls] {
    set name [$config get controls.$access]
    switch -glob -- $name {
        parameters.ambient* - structure* {
            $win.input.device controls add $name
        }
    }
}