| Line 27... |
Line 27... |
#
|
#
|
# Author(s):
|
# Author(s):
|
# - Olivier Girard, olgirard@gmail.com
|
# - Olivier Girard, olgirard@gmail.com
|
#
|
#
|
#------------------------------------------------------------------------------
|
#------------------------------------------------------------------------------
|
# $Rev: 35 $
|
# $Rev: 87 $
|
# $LastChangedBy: olivier.girard $
|
# $LastChangedBy: olivier.girard $
|
# $LastChangedDate: 2009-12-29 21:12:19 +0100 (Tue, 29 Dec 2009) $
|
# $LastChangedDate: 2011-02-05 14:40:22 +0100 (Sat, 05 Feb 2011) $
|
#------------------------------------------------------------------------------
|
#------------------------------------------------------------------------------
|
|
|
global serial_baudrate
|
global serial_baudrate
|
global serial_device
|
global serial_device
|
global serial_status
|
global serial_status
|
| Line 198... |
Line 198... |
|
|
# Create the Server Menu budget
|
# Create the Server Menu budget
|
frame .server
|
frame .server
|
pack .server -side top -padx 10 -pady 10 -fill x
|
pack .server -side top -padx 10 -pady 10 -fill x
|
|
|
|
# Create the TCL script field
|
|
frame .tclscript
|
|
pack .tclscript -side top -padx 10 -pady 10 -fill x
|
|
|
|
|
####################################
|
####################################
|
# CREATE THE REST #
|
# CREATE THE REST #
|
####################################
|
####################################
|
|
|
| Line 247... |
Line 251... |
pack .server.t -side top -padx 10 -pady 10 -fill x
|
pack .server.t -side top -padx 10 -pady 10 -fill x
|
set server(log) [text .server.t.log -width 80 -height 10 -borderwidth 2 \
|
set server(log) [text .server.t.log -width 80 -height 10 -borderwidth 2 \
|
-setgrid true -yscrollcommand {.server.t.scroll set}]
|
-setgrid true -yscrollcommand {.server.t.scroll set}]
|
pack .server.t.log -side left -fill both -expand true
|
pack .server.t.log -side left -fill both -expand true
|
scrollbar .server.t.scroll -command {.server.t.log yview}
|
scrollbar .server.t.scroll -command {.server.t.log yview}
|
pack .server.t.scroll -side right -fill both -expand true
|
pack .server.t.scroll -side right -fill both
|
|
|
|
|
# Log commands
|
# Log commands
|
frame .server.cmd
|
frame .server.cmd
|
pack .server.cmd -side top -fill x
|
pack .server.cmd -side top -fill x
|
button .server.cmd.clear -text "Clear log" -command {$server(log) delete 1.0 end}
|
button .server.cmd.clear -text "Clear log" -command {$server(log) delete 1.0 end}
|
pack .server.cmd.clear -side left -padx 10
|
pack .server.cmd.clear -side left -padx 10
|
checkbutton .server.cmd.verbose -text "Verbose" -variable verbose
|
checkbutton .server.cmd.verbose -text "Verbose" -variable verbose
|
pack .server.cmd.verbose -side right -padx 10
|
pack .server.cmd.verbose -side right -padx 10
|
|
|
No newline at end of file
|
No newline at end of file
|
|
|
|
# Load TCL script fields
|
|
frame .tclscript.ft
|
|
pack .tclscript.ft -side top -fill x
|
|
label .tclscript.ft.l -text "TCL script:" -state disabled
|
|
pack .tclscript.ft.l -side left -padx "0 10"
|
|
entry .tclscript.ft.file -width 58 -relief sunken -textvariable tcl_file_name -state disabled
|
|
pack .tclscript.ft.file -side left -padx 10
|
|
button .tclscript.ft.browse -text "Browse" -state disabled -command {set tcl_file_name [tk_getOpenFile -filetypes {{{TCL Files} {.tcl}} {{All Files} *}}]}
|
|
pack .tclscript.ft.browse -side left -padx 5
|
|
frame .tclscript.fb
|
|
pack .tclscript.fb -side top -fill x
|
|
button .tclscript.fb.read -text "Source TCL script !" -state disabled -command {if {[file exists $tcl_file_name]} {source $tcl_file_name}}
|
|
pack .tclscript.fb.read -side left -padx 5 -fill x
|
|
|
|
|
No newline at end of file
|
No newline at end of file
|
