set log2 .logging2 set log_channel -1 set log_entry "" set log_filename "disk_logging" set log_time 1 set log_interval 1 proc logging2 { } { global log2 log_filename log_time log_interval global disk_status if [winfo exists $log2] {destroy $log2} global env set env(DISPLAY) :0.1 toplevel $log2 -width 22c -height 16c wm title $log2 "Logging Field" label $log2.lab43 \ -foreground #0000d0 -relief groove -text {Add Logging Field} label $log2.lab44 \ -foreground #0000d0 -relief groove \ -text {Existing Logging Field} label $log2.lab58 \ -text {Logging Fields} listbox $log2.lis57 -font {Halvetica 10} \ -background white -yscroll "$log2.vscr set" -xscroll "$log2.hscr set" scrollbar $log2.vscr \ -command {$log2.lis57 yview} scrollbar $log2.hscr \ -command {$log2.lis57 xview} -orient horizontal # Type frame $log2.fra65 \ -borderwidth 2 -relief groove entry $log2.fra65.ent78 \ -background white -textvariable log_entry label $log2.lab71 \ -text {Select Type} radiobutton $log2.fra65.rad66 \ -text "Sub Analog" -variable log_type -value 0 -command {select_log_sub_analog2; set log_type 0} radiobutton $log2.fra65.rad67 \ -text "Surface Analog" -value 1 -command {select_log_surf_analog2;} radiobutton $log2.fra65.rad75 \ -text "Telemetry Error" -variable log_type -value 2 -command {set log_entry "Telemetry Error"; set log_type 2} radiobutton $log2.fra65.rad76 \ -text "Teleos Input" -variable log_type -value 3 -command {set log_entry "Teleos Input"; set log_type 3} radiobutton $log2.fra65.rad70 \ -text "Heading" -variable log_type -value 4 -command {set log_entry "Heading"; set log_type 4} radiobutton $log2.fra65.rad71 \ -text "Pitch" -variable log_type -value 5 -command {set log_entry "Pitch"; set log_type 5} radiobutton $log2.fra65.rad72 \ -text "Roll" -variable log_type -value 6 -command {set log_entry "Roll"; set log_type 6} radiobutton $log2.fra65.rad73 \ -text "Depth (Meter)" -variable log_type -value 7 -command {set log_entry "Depth"; set log_type 7} radiobutton $log2.fra65.rad74 \ -text "Depth (Milibar)" -variable log_type -value 8 -command {set log_entry "Milibar"; set log_type 8} radiobutton $log2.fra65.rad77 \ -text "Speed 1" -variable log_type -value 9 -command {set log_entry "Speed 1"; set log_type 9} radiobutton $log2.fra65.rad78 \ -text "Speed 2" -variable log_type -value 10 -command {set log_entry "Speed 2"; set log_type 10} radiobutton $log2.fra65.rad79 \ -text "Speed 3" -variable log_type -value 11 -command {set log_entry "Speed 3"; set log_type 11} radiobutton $log2.fra65.rad80 \ -text "Water Alarm" -variable log_type -value 12 -command {set log_entry "Water Alarm"; set log_type 12} radiobutton $log2.fra65.rad81 \ -text "GF Board 1" -variable log_type -value 13 -command {set log_entry "GF Board 1"; set log_type 13} radiobutton $log2.fra65.rad82 \ -text "GF Board 2" -variable log_type -value 14 -command {set log_entry "GF Board 2"; set log_type 14} # OK, Add, Remove, and Close button button $log2.ok -width 5 -height 2 -text OK -command check_log_name button $log2.but88 \ -command {add_log2 $log_entry } \ -width 5 -height 2 -text Add button $log2.but89 \ -command {delete_log2 $log_entry} \ -width 5 -height 2 -text Remove button $log2.but90 \ -command {destroy $log2} \ -width 5 -height 2 -text Close ################### # SETTING GEOMETRY ################### place $log2.lab43 \ -x 20 -y 15 -width 350 -height 20 place $log2.lab44 \ -x 400 -y 15 -width 200 -height 20 place $log2.lab58 \ -x 400 -y 50 # Listbox for the logging field (and scrollbar) place $log2.lis57 \ -x 400 -y 75 -width 200 -height 226 place $log2.vscr \ -x 600 -y 75 -width 16 -height 225 place $log2.hscr \ -x 400 -y 300 -width 200 -height 16 # Type place $log2.fra65 \ -x 20 -y 75 -width 350 -height 300 place $log2.fra65.ent78 \ -x 15 -y 15 place $log2.lab71 \ -x 20 -y 50 place $log2.fra65.rad66 \ -x 10 -y 50 place $log2.fra65.rad67 \ -x 10 -y 75 place $log2.fra65.rad75 \ -x 10 -y 100 place $log2.fra65.rad76 \ -x 10 -y 125 place $log2.fra65.rad70 \ -x 10 -y 150 place $log2.fra65.rad71 \ -x 10 -y 175 place $log2.fra65.rad72 \ -x 10 -y 200 place $log2.fra65.rad73 \ -x 10 -y 225 place $log2.fra65.rad74 \ -x 10 -y 250 place $log2.fra65.rad77 \ -x 200 -y 50 place $log2.fra65.rad78 \ -x 200 -y 75 place $log2.fra65.rad79 \ -x 200 -y 100 place $log2.fra65.rad80 \ -x 200 -y 125 place $log2.fra65.rad81 \ -x 200 -y 150 place $log2.fra65.rad82 \ -x 200 -y 175 # Filename label $log2.filename_label -text "Filename" entry $log2.filename_entry -textvariable log_filename \ -bg white -width 15 place $log2.filename_label -x 400 -y 325 place $log2.filename_entry -x 490 -y 325 # Length of time to Log label $log2.time_label -text "Logging Time" entry $log2.time_entry -textvariable log_time \ -bg white -width 10 label $log2.time_limit -text "min" place $log2.time_label -x 400 -y 350 place $log2.time_entry -x 490 -y 350 place $log2.time_limit -x 570 -y 350 # Sampling Interval label $log2.sampling_label -text "Sampling Int" entry $log2.sampling_entry -textvariable log_interval \ -bg white -width 10 label $log2.sampling_int -text "100 ms" place $log2.sampling_label -x 400 -y 375 place $log2.sampling_entry -x 490 -y 375 place $log2.sampling_int -x 570 -y 375 bind $log2.filename_entry { check_log_name } bind $log2.filename_entry { check_log_name } bind $log2.time_entry { check_log_name } # OK, Add, Remove, Close buttons place $log2.ok \ -x 330 -y 400 place $log2.but88 \ -x 400 -y 400 place $log2.but89 \ -x 470 -y 400 place $log2.but90 \ -x 540 -y 400 # Add a disk enable button # Calls c++ function to log data to disk and also print out data checkbutton $log2.disk_enable -text "Disk Enable" -variable disk_status \ -command check_log_name place $log2.disk_enable -x 30 -y 415 #---------------------------------------# # Display the previous selection # # Inserting data into the listbox # #---------------------------------------# set logging_size [get_log_count] #puts "logging_size $logging_size" for {set i 0} {$i < $logging_size} {incr i} { set temp [split [get_log_info $i] |] set log_filename [lindex $temp 0] set log_time [lindex $temp 1] set log_interval [lindex $temp 2] set temp_type [lindex $temp 3] set temp_channel [lindex $temp 4] #-----------------------------------------------------------------------# # We need this comparison so that when the user rename the # # element, then the name in the list also get updated # # Here, we avoid using outdated name stored in logging database # # However, if the name is empty, then we defaulted to # # "Sub Analog ###" or "Surface Analog ###" where "###" is the # # channel number # #-----------------------------------------------------------------------# if {$temp_type == 0} { set name [get_element_name 0 0 $temp_channel] if {$name == ""} {set name [lindex $temp 5]} } elseif {$temp_type == 1} { set name [get_element_name 1 0 $temp_channel] if {$name == ""} {set name [lindex $temp 5]} } elseif {$temp_type == 15} { set name [get_element_name 1 3 $temp_channel] if {$name == ""} {set name [lindex $temp 5]} } else { set name [lindex $temp 5] } $log2.lis57 insert end "$name" } } #-----------------------------------------------------------------------------# # # This procedure is to create menu for the sub analog channels (48 of them) # #-----------------------------------------------------------------------------# set log_sub_ana2 .logging_sub_analog2 proc select_log_sub_analog2 { } { global log_entry log_channel global log_sub_ana2 if [winfo exists $log_sub_ana2] { destroy $log_sub_ana2 } global env set env(DISPLAY) :0.1 toplevel $log_sub_ana2 label $log_sub_ana2.title -text "Analog Input" -relief groove -fg blue pack $log_sub_ana2.title -side top -fill x -padx 3 -pady 3 label $log_sub_ana2.title2 -text "Analog Output" -relief groove -fg blue menubutton $log_sub_ana2.b1 -text "1-8" -menu $log_sub_ana2.b1.menu menubutton $log_sub_ana2.b2 -text "9-16" -menu $log_sub_ana2.b2.menu menubutton $log_sub_ana2.b3 -text "17-24" -menu $log_sub_ana2.b3.menu menubutton $log_sub_ana2.b4 -text "25-32" -menu $log_sub_ana2.b4.menu menubutton $log_sub_ana2.b5 -text "33-40" -menu $log_sub_ana2.b5.menu menubutton $log_sub_ana2.b6 -text "41-48" -menu $log_sub_ana2.b6.menu menubutton $log_sub_ana2.b7 -text "1-8" -menu $log_sub_ana2.b7.menu menubutton $log_sub_ana2.b8 -text "9-16" -menu $log_sub_ana2.b8.menu menu $log_sub_ana2.b1.menu $log_sub_ana2.b1.menu add command -label "1 [get_element_name 0 0 1]" \ -command {destroy $log_sub_ana2 ; set log_channel 1; set log_entry [get_element_name 0 0 1]; subs_name $log_entry } $log_sub_ana2.b1.menu add command -label "2 [get_element_name 0 0 2]" \ -command {destroy $log_sub_ana2 ; set log_channel 2; set log_entry [get_element_name 0 0 2]; subs_name $log_entry } $log_sub_ana2.b1.menu add command -label "3 [get_element_name 0 0 3]" \ -command {destroy $log_sub_ana2 ; set log_channel 3; set log_entry [get_element_name 0 0 3]; subs_name $log_entry } $log_sub_ana2.b1.menu add command -label "4 [get_element_name 0 0 4]" \ -command {destroy $log_sub_ana2 ; set log_channel 4; set log_entry [get_element_name 0 0 4]; subs_name $log_entry } $log_sub_ana2.b1.menu add command -label "5 [get_element_name 0 0 5]" \ -command {destroy $log_sub_ana2 ; set log_channel 5; set log_entry [get_element_name 0 0 5]; subs_name $log_entry } $log_sub_ana2.b1.menu add command -label "6 [get_element_name 0 0 6]" \ -command {destroy $log_sub_ana2 ; set log_channel 6; set log_entry [get_element_name 0 0 6]; subs_name $log_entry } $log_sub_ana2.b1.menu add command -label "7 [get_element_name 0 0 7]" \ -command {destroy $log_sub_ana2 ; set log_channel 7; set log_entry [get_element_name 0 0 7]; subs_name $log_entry } $log_sub_ana2.b1.menu add command -label "8 [get_element_name 0 0 8]" \ -command {destroy $log_sub_ana2 ; set log_channel 8; set log_entry [get_element_name 0 0 8]; subs_name $log_entry } menu $log_sub_ana2.b2.menu $log_sub_ana2.b2.menu add command -label "9 [get_element_name 0 0 9]" \ -command {destroy $log_sub_ana2 ; set log_channel 9; set log_entry [get_element_name 0 0 9]; subs_name $log_entry } $log_sub_ana2.b2.menu add command -label "10 [get_element_name 0 0 10]" \ -command {destroy $log_sub_ana2 ; set log_channel 10; set log_entry [get_element_name 0 0 10]; subs_name $log_entry } $log_sub_ana2.b2.menu add command -label "11 [get_element_name 0 0 11]" \ -command {destroy $log_sub_ana2 ; set log_channel 11; set log_entry [get_element_name 0 0 11]; subs_name $log_entry } $log_sub_ana2.b2.menu add command -label "12 [get_element_name 0 0 12]" \ -command {destroy $log_sub_ana2 ; set log_channel 12; set log_entry [get_element_name 0 0 12]; subs_name $log_entry } $log_sub_ana2.b2.menu add command -label "13 [get_element_name 0 0 13]" \ -command {destroy $log_sub_ana2 ; set log_channel 13; set log_entry [get_element_name 0 0 13]; subs_name $log_entry } $log_sub_ana2.b2.menu add command -label "14 [get_element_name 0 0 14]" \ -command {destroy $log_sub_ana2 ; set log_channel 14; set log_entry [get_element_name 0 0 14]; subs_name $log_entry } $log_sub_ana2.b2.menu add command -label "15 [get_element_name 0 0 15]" \ -command {destroy $log_sub_ana2 ; set log_channel 15; set log_entry [get_element_name 0 0 15]; subs_name $log_entry } $log_sub_ana2.b2.menu add command -label "16 [get_element_name 0 0 16]" \ -command {destroy $log_sub_ana2 ; set log_channel 16; set log_entry [get_element_name 0 0 16]; subs_name $log_entry } menu $log_sub_ana2.b3.menu $log_sub_ana2.b3.menu add command -label "17 [get_element_name 0 0 17]" \ -command {destroy $log_sub_ana2 ; set log_channel 17; set log_entry [get_element_name 0 0 17]; subs_name $log_entry } $log_sub_ana2.b3.menu add command -label "18 [get_element_name 0 0 18]" \ -command {destroy $log_sub_ana2 ; set log_channel 18; set log_entry [get_element_name 0 0 18]; subs_name $log_entry } $log_sub_ana2.b3.menu add command -label "19 [get_element_name 0 0 19]" \ -command {destroy $log_sub_ana2 ; set log_channel 19; set log_entry [get_element_name 0 0 19]; subs_name $log_entry } $log_sub_ana2.b3.menu add command -label "20 [get_element_name 0 0 20]" \ -command {destroy $log_sub_ana2 ; set log_channel 20; set log_entry [get_element_name 0 0 20]; subs_name $log_entry } $log_sub_ana2.b3.menu add command -label "21 [get_element_name 0 0 21]" \ -command {destroy $log_sub_ana2 ; set log_channel 21; set log_entry [get_element_name 0 0 21]; subs_name $log_entry } $log_sub_ana2.b3.menu add command -label "22 [get_element_name 0 0 22]" \ -command {destroy $log_sub_ana2 ; set log_channel 22; set log_entry [get_element_name 0 0 22]; subs_name $log_entry } $log_sub_ana2.b3.menu add command -label "23 [get_element_name 0 0 23]" \ -command {destroy $log_sub_ana2 ; set log_channel 23; set log_entry [get_element_name 0 0 23]; subs_name $log_entry } $log_sub_ana2.b3.menu add command -label "24 [get_element_name 0 0 24]" \ -command {destroy $log_sub_ana2 ; set log_channel 24; set log_entry [get_element_name 0 0 24]; subs_name $log_entry } menu $log_sub_ana2.b4.menu $log_sub_ana2.b4.menu add command -label "25 [get_element_name 0 0 25]" \ -command {destroy $log_sub_ana2 ; set log_channel 25; set log_entry [get_element_name 0 0 25]; subs_name $log_entry } $log_sub_ana2.b4.menu add command -label "26 [get_element_name 0 0 26]" \ -command {destroy $log_sub_ana2 ; set log_channel 26; set log_entry [get_element_name 0 0 26]; subs_name $log_entry } $log_sub_ana2.b4.menu add command -label "27 [get_element_name 0 0 27]" \ -command {destroy $log_sub_ana2 ; set log_channel 27; set log_entry [get_element_name 0 0 27]; subs_name $log_entry } $log_sub_ana2.b4.menu add command -label "28 [get_element_name 0 0 28]" \ -command {destroy $log_sub_ana2 ; set log_channel 28; set log_entry [get_element_name 0 0 28]; subs_name $log_entry } $log_sub_ana2.b4.menu add command -label "29 [get_element_name 0 0 29]" \ -command {destroy $log_sub_ana2 ; set log_channel 29; set log_entry [get_element_name 0 0 29]; subs_name $log_entry } $log_sub_ana2.b4.menu add command -label "30 [get_element_name 0 0 30]" \ -command {destroy $log_sub_ana2 ; set log_channel 30; set log_entry [get_element_name 0 0 30]; subs_name $log_entry } $log_sub_ana2.b4.menu add command -label "31 [get_element_name 0 0 31]" \ -command {destroy $log_sub_ana2 ; set log_channel 31; set log_entry [get_element_name 0 0 31]; subs_name $log_entry} $log_sub_ana2.b4.menu add command -label "32 [get_element_name 0 0 32]" \ -command {destroy $log_sub_ana2 ; set log_channel 32; set log_entry [get_element_name 0 0 32]; subs_name $log_entry } menu $log_sub_ana2.b5.menu $log_sub_ana2.b5.menu add command -label "33 [get_element_name 0 0 33]" \ -command {destroy $log_sub_ana2 ; set log_channel 33; set log_entry [get_element_name 0 0 33]; subs_name $log_entry } $log_sub_ana2.b5.menu add command -label "34 [get_element_name 0 0 34]" \ -command {destroy $log_sub_ana2 ; set log_channel 34; set log_entry [get_element_name 0 0 34]; subs_name $log_entry } $log_sub_ana2.b5.menu add command -label "35 [get_element_name 0 0 35]" \ -command {destroy $log_sub_ana2 ; set log_channel 35; set log_entry [get_element_name 0 0 35]; subs_name $log_entry } $log_sub_ana2.b5.menu add command -label "36 [get_element_name 0 0 36]" \ -command {destroy $log_sub_ana2 ; set log_channel 36; set log_entry [get_element_name 0 0 36]; subs_name $log_entry } $log_sub_ana2.b5.menu add command -label "37 [get_element_name 0 0 37]" \ -command {destroy $log_sub_ana2 ; set log_channel 37; set log_entry [get_element_name 0 0 37]; subs_name $log_entry } $log_sub_ana2.b5.menu add command -label "38 [get_element_name 0 0 38]" \ -command {destroy $log_sub_ana2 ; set log_channel 38; set log_entry [get_element_name 0 0 38]; subs_name $log_entry } $log_sub_ana2.b5.menu add command -label "39 [get_element_name 0 0 39]" \ -command {destroy $log_sub_ana2 ; set log_channel 39; set log_entry [get_element_name 0 0 39]; subs_name $log_entry } $log_sub_ana2.b5.menu add command -label "40 [get_element_name 0 0 40]" \ -command {destroy $log_sub_ana2 ; set log_channel 40; set log_entry [get_element_name 0 0 40]; subs_name $log_entry } menu $log_sub_ana2.b6.menu $log_sub_ana2.b6.menu add command -label "41 [get_element_name 0 0 41]" \ -command {destroy $log_sub_ana2 ; set log_channel 41; set log_entry [get_element_name 0 0 41]; subs_name $log_entry } $log_sub_ana2.b6.menu add command -label "42 [get_element_name 0 0 42]" \ -command {destroy $log_sub_ana2 ; set log_channel 42; set log_entry [get_element_name 0 0 42]; subs_name $log_entry } $log_sub_ana2.b6.menu add command -label "43 [get_element_name 0 0 43]" \ -command {destroy $log_sub_ana2 ; set log_channel 43; set log_entry [get_element_name 0 0 43]; subs_name $log_entry } $log_sub_ana2.b6.menu add command -label "44 [get_element_name 0 0 44]" \ -command {destroy $log_sub_ana2 ; set log_channel 44; set log_entry [get_element_name 0 0 44]; subs_name $log_entry } $log_sub_ana2.b6.menu add command -label "45 [get_element_name 0 0 45]" \ -command {destroy $log_sub_ana2 ; set log_channel 45; set log_entry [get_element_name 0 0 45]; subs_name $log_entry } $log_sub_ana2.b6.menu add command -label "46 [get_element_name 0 0 46]" \ -command {destroy $log_sub_ana2 ; set log_channel 46; set log_entry [get_element_name 0 0 46]; subs_name $log_entry } $log_sub_ana2.b6.menu add command -label "47 [get_element_name 0 0 47]" \ -command {destroy $log_sub_ana2 ; set log_channel 47; set log_entry [get_element_name 0 0 47]; subs_name $log_entry } $log_sub_ana2.b6.menu add command -label "48 [get_element_name 0 0 48]" \ -command {destroy $log_sub_ana2 ; set log_channel 48; set log_entry [get_element_name 0 0 48]; subs_name $log_entry } menu $log_sub_ana2.b7.menu $log_sub_ana2.b7.menu add command -label "1 [get_element_name 0 0 49]" \ -command {destroy $log_sub_ana2 ; set log_channel 49; set log_entry [get_element_name 0 0 49]; subs_name $log_entry } $log_sub_ana2.b7.menu add command -label "2 [get_element_name 0 0 50]" \ -command {destroy $log_sub_ana2 ; set log_channel 50; set log_entry [get_element_name 0 0 50]; subs_name $log_entry } $log_sub_ana2.b7.menu add command -label "3 [get_element_name 0 0 51]" \ -command {destroy $log_sub_ana2 ; set log_channel 51; set log_entry [get_element_name 0 0 51]; subs_name $log_entry } $log_sub_ana2.b7.menu add command -label "4 [get_element_name 0 0 52]" \ -command {destroy $log_sub_ana2 ; set log_channel 52; set log_entry [get_element_name 0 0 52]; subs_name $log_entry } $log_sub_ana2.b7.menu add command -label "5 [get_element_name 0 0 53]" \ -command {destroy $log_sub_ana2 ; set log_channel 53; set log_entry [get_element_name 0 0 53]; subs_name $log_entry } $log_sub_ana2.b7.menu add command -label "6 [get_element_name 0 0 54]" \ -command {destroy $log_sub_ana2 ; set log_channel 54; set log_entry [get_element_name 0 0 54]; subs_name $log_entry } $log_sub_ana2.b7.menu add command -label "7 [get_element_name 0 0 55]" \ -command {destroy $log_sub_ana2 ; set log_channel 55; set log_entry [get_element_name 0 0 55]; subs_name $log_entry } $log_sub_ana2.b7.menu add command -label "8 [get_element_name 0 0 56]" \ -command {destroy $log_sub_ana2 ; set log_channel 56; set log_entry [get_element_name 0 0 56]; subs_name $log_entry } menu $log_sub_ana2.b8.menu $log_sub_ana2.b8.menu add command -label "41 [get_element_name 0 0 57]" \ -command {destroy $log_sub_ana2 ; set log_channel 57; set log_entry [get_element_name 0 0 57]; subs_name $log_entry } $log_sub_ana2.b8.menu add command -label "42 [get_element_name 0 0 58]" \ -command {destroy $log_sub_ana2 ; set log_channel 58; set log_entry [get_element_name 0 0 58]; subs_name $log_entry } $log_sub_ana2.b8.menu add command -label "43 [get_element_name 0 0 59]" \ -command {destroy $log_sub_ana2 ; set log_channel 59; set log_entry [get_element_name 0 0 59]; subs_name $log_entry } $log_sub_ana2.b8.menu add command -label "44 [get_element_name 0 0 60]" \ -command {destroy $log_sub_ana2 ; set log_channel 60; set log_entry [get_element_name 0 0 60]; subs_name $log_entry } $log_sub_ana2.b8.menu add command -label "45 [get_element_name 0 0 61]" \ -command {destroy $log_sub_ana2 ; set log_channel 61; set log_entry [get_element_name 0 0 61]; subs_name $log_entry } $log_sub_ana2.b8.menu add command -label "46 [get_element_name 0 0 62]" \ -command {destroy $log_sub_ana2 ; set log_channel 62; set log_entry [get_element_name 0 0 62]; subs_name $log_entry } $log_sub_ana2.b8.menu add command -label "47 [get_element_name 0 0 63]" \ -command {destroy $log_sub_ana2 ; set log_channel 63; set log_entry [get_element_name 0 0 63]; subs_name $log_entry } $log_sub_ana2.b8.menu add command -label "48 [get_element_name 0 0 64]" \ -command {destroy $log_sub_ana2 ; set log_channel 64; set log_entry [get_element_name 0 0 64]; subs_name $log_entry } # add a Close button button $log_sub_ana2.close -text Close -command {destroy $log_sub_ana2} # Pack things up pack $log_sub_ana2.b1 $log_sub_ana2.b2 $log_sub_ana2.b3 $log_sub_ana2.b4 \ $log_sub_ana2.b5 $log_sub_ana2.b6 -side top pack $log_sub_ana2.title2 -side top -fill x -padx 3 -pady 3 pack $log_sub_ana2.b7 $log_sub_ana2.b8 -side top pack $log_sub_ana2.close -pady 2m } #-----------------------------------------------------------------------------# # # This procedure is to create menu for the surface analog channels # (16 of them) # #-----------------------------------------------------------------------------# set log_surf_ana2 .logging_surf_analog2 proc select_log_surf_analog2 { } { global log_entry log_type log_channel global log_surf_ana2 if [winfo exists $log_surf_ana2] { destroy $log_surf_ana2 } global env set env(DISPLAY) :0.1 toplevel $log_surf_ana2 label $log_surf_ana2.title -text "Analog Input" -relief groove -fg blue pack $log_surf_ana2.title -side top -fill x -padx 3 -pady 3 label $log_surf_ana2.title2 -text "Analog Output" -relief groove -fg blue menubutton $log_surf_ana2.b1 -text "1-8" -menu $log_surf_ana2.b1.menu menubutton $log_surf_ana2.b2 -text "9-16" -menu $log_surf_ana2.b2.menu menubutton $log_surf_ana2.b3 -text "1-4" -menu $log_surf_ana2.b3.menu menu $log_surf_ana2.b1.menu $log_surf_ana2.b1.menu add command -label "1 [get_element_name 1 0 1]" \ -command {destroy $log_surf_ana2 ; set log_channel 1; set log_entry [get_element_name 1 0 1]; subs_name $log_entry } $log_surf_ana2.b1.menu add command -label "2 [get_element_name 1 0 2]" \ -command {destroy $log_surf_ana2 ; set log_channel 2; set log_entry [get_element_name 1 0 2]; subs_name $log_entry } $log_surf_ana2.b1.menu add command -label "3 [get_element_name 1 0 3]" \ -command {destroy $log_surf_ana2 ; set log_channel 3; set log_entry [get_element_name 1 0 3]; subs_name $log_entry } $log_surf_ana2.b1.menu add command -label "4 [get_element_name 1 0 4]" \ -command {destroy $log_surf_ana2 ; set log_channel 4; set log_entry [get_element_name 1 0 4]; subs_name $log_entry } $log_surf_ana2.b1.menu add command -label "5 [get_element_name 1 0 5]" \ -command {destroy $log_surf_ana2 ; set log_channel 5; set log_entry [get_element_name 1 0 5]; subs_name $log_entry } $log_surf_ana2.b1.menu add command -label "6 [get_element_name 1 0 6]" \ -command {destroy $log_surf_ana2 ; set log_channel 6; set log_entry [get_element_name 1 0 6]; subs_name $log_entry } $log_surf_ana2.b1.menu add command -label "7 [get_element_name 1 0 7]" \ -command {destroy $log_surf_ana2 ; set log_channel 7; set log_entry [get_element_name 1 0 7]; subs_name $log_entry } $log_surf_ana2.b1.menu add command -label "8 [get_element_name 1 0 8]" \ -command {destroy $log_surf_ana2 ; set log_channel 8; set log_entry [get_element_name 1 0 8]; subs_name $log_entry } menu $log_surf_ana2.b2.menu $log_surf_ana2.b2.menu add command -label "9 [get_element_name 1 0 9]" \ -command {destroy $log_surf_ana2 ; set log_channel 9; set log_entry [get_element_name 1 0 9]; subs_name $log_entry } $log_surf_ana2.b2.menu add command -label "10 [get_element_name 1 0 10]" \ -command {destroy $log_surf_ana2 ; set log_channel 10; set log_entry [get_element_name 1 0 10]; subs_name $log_entry } $log_surf_ana2.b2.menu add command -label "11 [get_element_name 1 0 11]" \ -command {destroy $log_surf_ana2 ; set log_channel 11; set log_entry [get_element_name 1 0 11]; subs_name $log_entry } $log_surf_ana2.b2.menu add command -label "12 [get_element_name 1 0 12]" \ -command {destroy $log_surf_ana2 ; set log_channel 12; set log_entry [get_element_name 1 0 12]; subs_name $log_entry } $log_surf_ana2.b2.menu add command -label "13 [get_element_name 1 0 13]" \ -command {destroy $log_surf_ana2 ; set log_channel 13; set log_entry [get_element_name 1 0 13]; subs_name $log_entry } $log_surf_ana2.b2.menu add command -label "14 [get_element_name 1 0 14]" \ -command {destroy $log_surf_ana2 ; set log_channel 14; set log_entry [get_element_name 1 0 14]; subs_name $log_entry } $log_surf_ana2.b2.menu add command -label "15 [get_element_name 1 0 15]" \ -command {destroy $log_surf_ana2 ; set log_channel 15; set log_entry [get_element_name 1 0 15]; subs_name $log_entry } $log_surf_ana2.b2.menu add command -label "16 [get_element_name 1 0 16]" \ -command {destroy $log_surf_ana2 ; set log_channel 16; set log_entry [get_element_name 1 0 16]; subs_name $log_entry } menu $log_surf_ana2.b3.menu $log_surf_ana2.b3.menu add command -label "1 [get_element_name 1 3 1]" \ -command {destroy $log_surf_ana2 ; set log_type 15; set log_channel 1; set log_entry [get_element_name 1 3 1]; subs_name $log_entry } $log_surf_ana2.b3.menu add command -label "2 [get_element_name 1 3 2]" \ -command {destroy $log_surf_ana2 ; set log_type 15; set log_channel 2; set log_entry [get_element_name 1 3 2]; subs_name $log_entry } $log_surf_ana2.b3.menu add command -label "3 [get_element_name 1 3 3]" \ -command {destroy $log_surf_ana2 ; set log_type 15; set log_channel 3; set log_entry [get_element_name 1 3 3]; subs_name $log_entry } $log_surf_ana2.b3.menu add command -label "4 [get_element_name 1 3 4]" \ -command {destroy $log_surf_ana2 ; set log_type 15; set log_channel 4; set log_entry [get_element_name 1 3 4]; subs_name $log_entry } # add a Close button button $log_surf_ana2.close -text Close -command {destroy $log_surf_ana2} # Pack things up pack $log_surf_ana2.b1 $log_surf_ana2.b2 -side top pack $log_surf_ana2.title2 -side top -fill x -padx 3 -pady 3 pack $log_surf_ana2.b3 -side top pack $log_surf_ana2.close -pady 2m } proc subs_name { entry_name } { #---------------------------------------# # Check the entry name (empty or not) # #---------------------------------------# global log_entry log_type log_channel if {$entry_name == ""} { if {$log_type == 0} { set log_entry "Sub Analog $log_channel" } elseif {$log_type == 1} { set log_entry "Surface Analog $log_channel" } elseif {$log_type == 15} { set log_entry "Surface Analog Out $log_channel" } } } proc add_log2 { type_ent } { global log2 log_type log_channel log_filename log_time log_interval #---------------------------------------# # Check the item existence # #---------------------------------------# if { [check_log_db $type_ent ] > 0 } { return } if { $log_type == -1 || $type_ent == "" } { return } #---------------------------------------# # Display it to the db and listbox # #---------------------------------------# add_log_item $type_ent $log_type $log_channel $log_filename $log_time $log_interval $log2.lis57 insert end "$type_ent" #---------------------------------------# # Reset type and channel # #---------------------------------------# set log_type -1 set log_channel -1 } proc delete_log2 { type } { global log2 log_type log_channel #---------------------------------------# # Get the index of line selected # # ( start from "0" to "end" ) # #---------------------------------------# set selected [$log2.lis57 curselection] if { $selected == "" } {set selected end} set deleted_item [$log2.lis57 get $selected] #------------------------------# # Delete it from the listbox # #------------------------------# #puts "---------- deleting ----------" #puts "log_type : $log_type" #puts "log_channel : $log_channel" if {$selected == "end"} {set selected [expr {[$log2.lis57 index end] - 1} ] } delete_log_item $selected $log2.lis57 delete $selected }