#!/usr/local/bin/wish
source src.tcl
Source ""
pack [button .q -text quit -command "destroy ."] -anc nw

initSystemData


set ty [string tolower [lindex $argv 0]]


if { $ty == "p" } {
pack [frame .spe_RES -bd 0 -relief sunken] -fill both -expand 1 -anc nw
  	partEdit RES 
}


if { $ty == "d" } {
pack [frame .spe__Decal -bd 0 -relief sunken] -fill both -expand 1 -anc nw
	decalEdit Test 
}

if { $ty == "v" } {
pack [frame .spe_RESB-H -bd 0 -relief sunken] -fill both -expand 1 -anc nw
	visualEdit RESB-H 
	update
	canvasConfig RESB-H
}

if { $ty == "s" } {
pack [frame .spe_Test -bd 0 -relief sunken] -fill both -expand 1 -anc nw
schEdit Test 
}

if { $ty == "b" } {
pack [frame .spe_Test -bd 0 -relief sunken] -fill both -expand 1 -anc nw
pcbEdit Test 
}

