klnx_p.tcl

# INTERFAZ PARA LA PILA DE KAREL
############################################################################
####	INTERFAZ PARA LA PILA DE KAREL
############################################################################
catch {destroy .pila }

proc vTclWindow.pila {base} {
    if {$base == ""} {
        set base .pila
    }
    if {[winfo exists $base]} {
        wm deiconify $base; return
    }


    toplevel $base -class Toplevel \
        -background #0080ff 
    wm focusmodel $base passive
    wm geometry $base 246x232+554+198
    wm maxsize $base 1028 749
    wm minsize $base 132 1
    wm overrideredirect $base 0
    wm resizable $base 1 1
    wm deiconify $base
    wm title $base "Pila"
    frame $base.frame \
        -borderwidth 1 -height 30 -relief raised -width 30 
    scrollbar $base.frame.scrollx \
        -borderwidth 1 -command {.pila.frame.text xview} -orient horiz \
        -width 10 
    scrollbar $base.frame.scrolly \
        -borderwidth 1 -command {.pila.frame.text yview} -orient vert \
        -width 10 
    text $base.frame.text \
        -background #ffffff \
        -font -Adobe-Helvetica-Medium-R-Normal-*-*-120-*-*-*-*-*-* -height 1 \
        -width 8 -xscrollcommand {.pila.frame.scrollx set} \
        -yscrollcommand {.pila.frame.scrolly set} 
    place $base.frame \
        -x 5 -y 5 -width 238 -height 221 -anchor nw 
    grid columnconf $base.frame 0 -weight 1
    grid rowconf $base.frame 0 -weight 1
    grid $base.frame.scrollx \
        -in .pila.frame -column 0 -row 1 -columnspan 1 -rowspan 1 -sticky ew 
    grid $base.frame.scrolly \
        -in .pila.frame -column 1 -row 0 -columnspan 1 -rowspan 1 -sticky ns 
    grid $base.frame.text \
        -in .pila.frame -column 0 -row 0 -columnspan 1 -rowspan 1 \
        -sticky nesw 
}

#Window show .
#Window show .pila