#!/usr/bin/wish 

# GUI Frontend for j3w and j3dasm
#   Jun Mizutani  12/23/97 - 1/4/98

. configure -width 400 -height 400

frame .f0
frame .f1
text .f1.t0 -wrap none \
            -xscrollcommand ".f1.sx set" \
            -yscrollcommand ".f1.sy set"
scrollbar .f1.sx -orient horizontal -command ".f1.t0 xview"
scrollbar .f1.sy -orient vertical   -command ".f1.t0 yview"

set pipe 0

button .b0 -text "Execute j3w" -command {
    global pipe
    set types {
        {{j3w object files} {.j3d}}
        {{All files}        *     }
    }
    set filename [tk_getOpenFile -filetypes $types]
    if {$filename != ""} {
         set pipe [open "|j3w $filename"]
         fconfigure $pipe -buffering none
         fileevent $pipe readable showtext
    }
}

button .b1 -text "Assemble Source" -command {
    set types {
        {{j3w source files} {.j3s}}
        {{All files}        *     }
    }
    set filename [tk_getOpenFile -filetypes $types]
    if {$filename != ""} {
         set pipe2 [open "|j3dasm $filename"]
         set t [read $pipe2]
         .f1.t0 insert end $t
    }
}

button .b2 -text "Quit" -command "exit"

proc showtext { } {
    global pipe
    if [eof $pipe] { 
        catch {close $pipe}
        return
    }
        set t [read $pipe 1]
        set s $t
        while { $s > 127 } { 
            set s [read $pipe 1]
            append t $s
        }
        .f1.t0 insert end $t
        update idletasks
}

place .f0 -relx 0.0 -rely 0.0  -relwidth 1.0 -relheight 0.08
place .f1 -relx 0.0 -rely 0.08 -relwidth 1.0 -relheight 0.92
place .b0 -in .f0 -relx 0.0   -rely 0.0 -relwidth 0.333 -relheight 1.0
place .b1 -in .f0 -relx 0.333 -rely 0.0 -relwidth 0.333 -relheight 1.0 
place .b2 -in .f0 -relx 0.667 -rely 0.0 -relwidth 0.333 -relheight 1.0 
pack .f1.sx -side bottom -fill x
pack .f1.sy -side right  -fill y
pack .f1.t0 -side left -fill both -expand true

while {1} {
    update
    after 100
}