source /home/ventana/source/but_small_popup2.tcl source /home/ventana/source/slidebar_popup2.tcl source /home/ventana/source/tms_popup2.tcl ################################ # Create the "Surface" submenu # ################################ proc create_surface_submenu2 { } { global surface2 set surface2 .ventana2.bar.maintenance.menu.element.surface .ventana2.bar.maintenance.menu.element add cascade -label Surface \ -menu $surface2 menu $surface2 # Create the "Button" popup menu $surface2 add command -label "TMS Display" \ -command tms_popup2 # Create the "Button" popup menu $surface2 add command -label "Button" \ -command but_small_popup2 # Create the "Slide Bar" popup menu $surface2 add command -label "Slide Bar" \ -command slidebar_popup2 #------------------------------------------------------------------------------------ ########################################################### # Another submenu of "Surface called "Digital In" # # Create the "Digital In" Submenu that contain 96 element # ########################################################### $surface2 add cascade -label "Digital In" \ -menu $surface2.digin menu $surface2.digin # Add the elements of submenu "Digital In" $surface2.digin add cascade -label "1-16" \ -menu $surface2.digin.part1 menu $surface2.digin.part1 # Adding the first 16 elements $surface2.digin.part1 add command -label "1 [get_element_name 1 1 1]" -command { popup2 1 1 1 } $surface2.digin.part1 add command -label "2 [get_element_name 1 1 2]" -command { popup2 1 1 2 } $surface2.digin.part1 add command -label "3 [get_element_name 1 1 3]" -command { popup2 1 1 3 } $surface2.digin.part1 add command -label "4 [get_element_name 1 1 4]" -command { popup2 1 1 4 } $surface2.digin.part1 add command -label "5 [get_element_name 1 1 5]" -command { popup2 1 1 5 } $surface2.digin.part1 add command -label "6 [get_element_name 1 1 6]" -command { popup2 1 1 6 } $surface2.digin.part1 add command -label "7 [get_element_name 1 1 7]" -command { popup2 1 1 7 } $surface2.digin.part1 add command -label "8 [get_element_name 1 1 8]" -command { popup2 1 1 8 } $surface2.digin.part1 add command -label "9 [get_element_name 1 1 9]" -command { popup2 1 1 9 } $surface2.digin.part1 add command -label "10 [get_element_name 1 1 10]" -command { popup2 1 1 10 } $surface2.digin.part1 add command -label "11 [get_element_name 1 1 11]" -command { popup2 1 1 11 } $surface2.digin.part1 add command -label "12 [get_element_name 1 1 12]" -command { popup2 1 1 12 } $surface2.digin.part1 add command -label "13 [get_element_name 1 1 13]" -command { popup2 1 1 13 } $surface2.digin.part1 add command -label "14 [get_element_name 1 1 14]" -command { popup2 1 1 14 } $surface2.digin.part1 add command -label "15 [get_element_name 1 1 15]" -command { popup2 1 1 15 } $surface2.digin.part1 add command -label "16 [get_element_name 1 1 16]" -command { popup2 1 1 16 } $surface2.digin add cascade -label "17-32" \ -menu $surface2.digin.part2 menu $surface2.digin.part2 # Adding the elements 17-32 $surface2.digin.part2 add command -label "17 [get_element_name 1 1 17]" -command { popup2 1 1 17 } $surface2.digin.part2 add command -label "18 [get_element_name 1 1 18]" -command { popup2 1 1 18 } $surface2.digin.part2 add command -label "19 [get_element_name 1 1 19]" -command { popup2 1 1 19 } $surface2.digin.part2 add command -label "20 [get_element_name 1 1 20]" -command { popup2 1 1 20 } $surface2.digin.part2 add command -label "21 [get_element_name 1 1 21]" -command { popup2 1 1 21 } $surface2.digin.part2 add command -label "22 [get_element_name 1 1 22]" -command { popup2 1 1 22 } $surface2.digin.part2 add command -label "23 [get_element_name 1 1 23]" -command { popup2 1 1 23 } $surface2.digin.part2 add command -label "24 [get_element_name 1 1 24]" -command { popup2 1 1 24 } $surface2.digin.part2 add command -label "25 [get_element_name 1 1 25]" -command { popup2 1 1 25 } $surface2.digin.part2 add command -label "26 [get_element_name 1 1 26]" -command { popup2 1 1 26 } $surface2.digin.part2 add command -label "27 [get_element_name 1 1 27]" -command { popup2 1 1 27 } $surface2.digin.part2 add command -label "28 [get_element_name 1 1 28]" -command { popup2 1 1 28 } $surface2.digin.part2 add command -label "29 [get_element_name 1 1 29]" -command { popup2 1 1 29 } $surface2.digin.part2 add command -label "30 [get_element_name 1 1 30]" -command { popup2 1 1 30 } $surface2.digin.part2 add command -label "31 [get_element_name 1 1 31]" -command { popup2 1 1 31 } $surface2.digin.part2 add command -label "32 [get_element_name 1 1 32]" -command { popup2 1 1 32 } $surface2.digin add cascade -label "33-48" \ -menu $surface2.digin.part3 menu $surface2.digin.part3 # Adding the elements 33 - 48 $surface2.digin.part3 add command -label "33 [get_element_name 1 1 33]" -command { popup2 1 1 33 } $surface2.digin.part3 add command -label "34 [get_element_name 1 1 34]" -command { popup2 1 1 34 } $surface2.digin.part3 add command -label "35 [get_element_name 1 1 35]" -command { popup2 1 1 35 } $surface2.digin.part3 add command -label "36 [get_element_name 1 1 36]" -command { popup2 1 1 36 } $surface2.digin.part3 add command -label "37 [get_element_name 1 1 37]" -command { popup2 1 1 37 } $surface2.digin.part3 add command -label "38 [get_element_name 1 1 38]" -command { popup2 1 1 38 } $surface2.digin.part3 add command -label "39 [get_element_name 1 1 39]" -command { popup2 1 1 39 } $surface2.digin.part3 add command -label "40 [get_element_name 1 1 40]" -command { popup2 1 1 40 } $surface2.digin.part3 add command -label "41 [get_element_name 1 1 41]" -command { popup2 1 1 41 } $surface2.digin.part3 add command -label "42 [get_element_name 1 1 42]" -command { popup2 1 1 42 } $surface2.digin.part3 add command -label "43 [get_element_name 1 1 43]" -command { popup2 1 1 43 } $surface2.digin.part3 add command -label "44 [get_element_name 1 1 44]" -command { popup2 1 1 44 } $surface2.digin.part3 add command -label "45 [get_element_name 1 1 45]" -command { popup2 1 1 45 } $surface2.digin.part3 add command -label "46 [get_element_name 1 1 46]" -command { popup2 1 1 46 } $surface2.digin.part3 add command -label "47 [get_element_name 1 1 47]" -command { popup2 1 1 47 } $surface2.digin.part3 add command -label "48 [get_element_name 1 1 48]" -command { popup2 1 1 48 } $surface2.digin add cascade -label "49-64" \ -menu $surface2.digin.part4 menu $surface2.digin.part4 # Adding the elements 49-64 $surface2.digin.part4 add command -label "49 [get_element_name 1 1 49]" -command { popup2 1 1 49 } $surface2.digin.part4 add command -label "50 [get_element_name 1 1 50]" -command { popup2 1 1 50 } $surface2.digin.part4 add command -label "51 [get_element_name 1 1 51]" -command { popup2 1 1 51 } $surface2.digin.part4 add command -label "52 [get_element_name 1 1 52]" -command { popup2 1 1 52 } $surface2.digin.part4 add command -label "53 [get_element_name 1 1 53]" -command { popup2 1 1 53 } $surface2.digin.part4 add command -label "54 [get_element_name 1 1 54]" -command { popup2 1 1 54 } $surface2.digin.part4 add command -label "55 [get_element_name 1 1 55]" -command { popup2 1 1 55 } $surface2.digin.part4 add command -label "56 [get_element_name 1 1 56]" -command { popup2 1 1 56 } $surface2.digin.part4 add command -label "57 [get_element_name 1 1 57]" -command { popup2 1 1 57 } $surface2.digin.part4 add command -label "58 [get_element_name 1 1 58]" -command { popup2 1 1 58 } $surface2.digin.part4 add command -label "59 [get_element_name 1 1 59]" -command { popup2 1 1 59 } $surface2.digin.part4 add command -label "60 [get_element_name 1 1 60]" -command { popup2 1 1 60 } $surface2.digin.part4 add command -label "61 [get_element_name 1 1 61]" -command { popup2 1 1 61 } $surface2.digin.part4 add command -label "62 [get_element_name 1 1 62]" -command { popup2 1 1 62 } $surface2.digin.part4 add command -label "63 [get_element_name 1 1 63]" -command { popup2 1 1 63 } $surface2.digin.part4 add command -label "64 [get_element_name 1 1 64]" -command { popup2 1 1 64 } $surface2.digin add cascade -label "65-80" \ -menu $surface2.digin.part5 menu $surface2.digin.part5 # Adding the elements 65-80 $surface2.digin.part5 add command -label "65 [get_element_name 1 1 65]" -command { popup2 1 1 65 } $surface2.digin.part5 add command -label "66 [get_element_name 1 1 66]" -command { popup2 1 1 66 } $surface2.digin.part5 add command -label "67 [get_element_name 1 1 67]" -command { popup2 1 1 67 } $surface2.digin.part5 add command -label "68 [get_element_name 1 1 68]" -command { popup2 1 1 68 } $surface2.digin.part5 add command -label "69 [get_element_name 1 1 69]" -command { popup2 1 1 69 } $surface2.digin.part5 add command -label "70 [get_element_name 1 1 70]" -command { popup2 1 1 70 } $surface2.digin.part5 add command -label "71 [get_element_name 1 1 71]" -command { popup2 1 1 71 } $surface2.digin.part5 add command -label "72 [get_element_name 1 1 72]" -command { popup2 1 1 72 } $surface2.digin.part5 add command -label "73 [get_element_name 1 1 73]" -command { popup2 1 1 73 } $surface2.digin.part5 add command -label "74 [get_element_name 1 1 74]" -command { popup2 1 1 74 } $surface2.digin.part5 add command -label "75 [get_element_name 1 1 75]" -command { popup2 1 1 75 } $surface2.digin.part5 add command -label "76 [get_element_name 1 1 76]" -command { popup2 1 1 76 } $surface2.digin.part5 add command -label "77 [get_element_name 1 1 77]" -command { popup2 1 1 77 } $surface2.digin.part5 add command -label "78 [get_element_name 1 1 78]" -command { popup2 1 1 78 } $surface2.digin.part5 add command -label "79 [get_element_name 1 1 79]" -command { popup2 1 1 79 } $surface2.digin.part5 add command -label "80 [get_element_name 1 1 80]" -command { popup2 1 1 80 } $surface2.digin add cascade -label "81-96" \ -menu $surface2.digin.part6 menu $surface2.digin.part6 # Adding the elements 81-96 $surface2.digin.part6 add command -label "81 [get_element_name 1 1 81]" -command { popup2 1 1 81 } $surface2.digin.part6 add command -label "82 [get_element_name 1 1 82]" -command { popup2 1 1 82 } $surface2.digin.part6 add command -label "83 [get_element_name 1 1 83]" -command { popup2 1 1 83 } $surface2.digin.part6 add command -label "84 [get_element_name 1 1 84]" -command { popup2 1 1 84 } $surface2.digin.part6 add command -label "85 [get_element_name 1 1 85]" -command { popup2 1 1 85 } $surface2.digin.part6 add command -label "86 [get_element_name 1 1 86]" -command { popup2 1 1 86 } $surface2.digin.part6 add command -label "87 [get_element_name 1 1 87]" -command { popup2 1 1 87 } $surface2.digin.part6 add command -label "88 [get_element_name 1 1 88]" -command { popup2 1 1 88 } $surface2.digin.part6 add command -label "89 [get_element_name 1 1 89]" -command { popup2 1 1 89 } $surface2.digin.part6 add command -label "90 [get_element_name 1 1 90]" -command { popup2 1 1 90 } $surface2.digin.part6 add command -label "91 [get_element_name 1 1 91]" -command { popup2 1 1 91 } $surface2.digin.part6 add command -label "92 [get_element_name 1 1 92]" -command { popup2 1 1 92 } $surface2.digin.part6 add command -label "93 [get_element_name 1 1 93]" -command { popup2 1 1 93 } $surface2.digin.part6 add command -label "94 [get_element_name 1 1 94]" -command { popup2 1 1 94 } $surface2.digin.part6 add command -label "95 [get_element_name 1 1 95]" -command { popup2 1 1 95 } $surface2.digin.part6 add command -label "96 [get_element_name 1 1 96]" -command { popup2 1 1 96 } #------------------------------------------------------------------------------------ ########################################################### # Another submenu of "Surface called "Analog In" # # Create the "Analog In" submenu that contain 16 element # ########################################################### $surface2 add cascade -label "Analog In" \ -menu $surface2.anain menu $surface2.anain # Analog Input 1- 16 $surface2.anain add cascade -label "1-16" \ -menu $surface2.anain.part1 menu $surface2.anain.part1 # Add the elements of submenu "Analog In" $surface2.anain.part1 add command -label "1 [get_element_name 1 0 1]" -command { popup2 1 0 1 } $surface2.anain.part1 add command -label "2 [get_element_name 1 0 2]" -command { popup2 1 0 2 } $surface2.anain.part1 add command -label "3 [get_element_name 1 0 3]" -command { popup2 1 0 3 } $surface2.anain.part1 add command -label "4 [get_element_name 1 0 4]" -command { popup2 1 0 4 } $surface2.anain.part1 add command -label "5 [get_element_name 1 0 5]" -command { popup2 1 0 5 } $surface2.anain.part1 add command -label "6 [get_element_name 1 0 6]" -command { popup2 1 0 6 } $surface2.anain.part1 add command -label "7 [get_element_name 1 0 7]" -command { popup2 1 0 7 } $surface2.anain.part1 add command -label "8 [get_element_name 1 0 8]" -command { popup2 1 0 8 } $surface2.anain.part1 add command -label "9 [get_element_name 1 0 9]" -command { popup2 1 0 9 } $surface2.anain.part1 add command -label "10 [get_element_name 1 0 10]" -command { popup2 1 0 10 } $surface2.anain.part1 add command -label "11 [get_element_name 1 0 11]" -command { popup2 1 0 11 } $surface2.anain.part1 add command -label "12 [get_element_name 1 0 12]" -command { popup2 1 0 12 } $surface2.anain.part1 add command -label "13 [get_element_name 1 0 13]" -command { popup2 1 0 13 } $surface2.anain.part1 add command -label "14 [get_element_name 1 0 14]" -command { popup2 1 0 14 } $surface2.anain.part1 add command -label "15 [get_element_name 1 0 15]" -command { popup2 1 0 15 } $surface2.anain.part1 add command -label "16 [get_element_name 1 0 16]" -command { popup2 1 0 16} # Analog Input 17- 32 $surface2.anain add cascade -label "17-32" \ -menu $surface2.anain.part2 menu $surface2.anain.part2 # Add the elements of first part of submenu "Analog In" $surface2.anain.part2 add command -label "17 [get_element_name 1 0 17]" -command { popup 1 0 17 } $surface2.anain.part2 add command -label "18 [get_element_name 1 0 18]" -command { popup 1 0 18 } $surface2.anain.part2 add command -label "19 [get_element_name 1 0 19]" -command { popup 1 0 19 } $surface2.anain.part2 add command -label "20 [get_element_name 1 0 20]" -command { popup 1 0 20 } $surface2.anain.part2 add command -label "21 [get_element_name 1 0 21]" -command { popup 1 0 21 } $surface2.anain.part2 add command -label "22 [get_element_name 1 0 22]" -command { popup 1 0 22 } $surface2.anain.part2 add command -label "23 [get_element_name 1 0 23]" -command { popup 1 0 23 } $surface2.anain.part2 add command -label "24 [get_element_name 1 0 24]" -command { popup 1 0 24 } $surface2.anain.part2 add command -label "25 [get_element_name 1 0 25]" -command { popup 1 0 25 } $surface2.anain.part2 add command -label "26 [get_element_name 1 0 26]" -command { popup 1 0 26 } $surface2.anain.part2 add command -label "27 [get_element_name 1 0 27]" -command { popup 1 0 27 } $surface2.anain.part2 add command -label "28 [get_element_name 1 0 28]" -command { popup 1 0 28 } $surface2.anain.part2 add command -label "29 [get_element_name 1 0 29]" -command { popup 1 0 29 } $surface2.anain.part2 add command -label "30 [get_element_name 1 0 30]" -command { popup 1 0 30 } $surface2.anain.part2 add command -label "31 [get_element_name 1 0 31]" -command { popup 1 0 31 } $surface2.anain.part2 add command -label "32 [get_element_name 1 0 32]" -command { popup 1 0 32} # Analog Input 33- 48 $surface2.anain add cascade -label "33-48" \ -menu $surface2.anain.part3 menu $surface2.anain.part3 # Add the elements of first part of submenu "Analog In" $surface2.anain.part3 add command -label "33 [get_element_name 1 0 33]" -command { popup 1 0 33 } $surface2.anain.part3 add command -label "34 [get_element_name 1 0 34]" -command { popup 1 0 34 } $surface2.anain.part3 add command -label "35 [get_element_name 1 0 35]" -command { popup 1 0 35 } $surface2.anain.part3 add command -label "36 [get_element_name 1 0 36]" -command { popup 1 0 36 } $surface2.anain.part3 add command -label "37 [get_element_name 1 0 37]" -command { popup 1 0 37 } $surface2.anain.part3 add command -label "38 [get_element_name 1 0 38]" -command { popup 1 0 38 } $surface2.anain.part3 add command -label "39 [get_element_name 1 0 39]" -command { popup 1 0 39 } $surface2.anain.part3 add command -label "40 [get_element_name 1 0 40]" -command { popup 1 0 40 } $surface2.anain.part3 add command -label "41 [get_element_name 1 0 41]" -command { popup 1 0 41 } $surface2.anain.part3 add command -label "42 [get_element_name 1 0 42]" -command { popup 1 0 42 } $surface2.anain.part3 add command -label "43 [get_element_name 1 0 43]" -command { popup 1 0 43 } $surface2.anain.part3 add command -label "44 [get_element_name 1 0 44]" -command { popup 1 0 44 } $surface2.anain.part3 add command -label "45 [get_element_name 1 0 45]" -command { popup 1 0 45 } $surface2.anain.part3 add command -label "46 [get_element_name 1 0 46]" -command { popup 1 0 46 } $surface2.anain.part3 add command -label "47 [get_element_name 1 0 47]" -command { popup 1 0 47 } $surface2.anain.part3 add command -label "48 [get_element_name 1 0 48]" -command { popup 1 0 48} # Analog Input 49- 64 $surface2.anain add cascade -label "49-64" \ -menu $surface2.anain.part4 menu $surface2.anain.part4 # Add the elements of first part of submenu "Analog In" $surface2.anain.part4 add command -label "49 [get_element_name 1 0 49]" -command { popup 1 0 49 } $surface2.anain.part4 add command -label "50 [get_element_name 1 0 50]" -command { popup 1 0 50 } $surface2.anain.part4 add command -label "51 [get_element_name 1 0 51]" -command { popup 1 0 51 } $surface2.anain.part4 add command -label "52 [get_element_name 1 0 52]" -command { popup 1 0 52 } $surface2.anain.part4 add command -label "53 [get_element_name 1 0 53]" -command { popup 1 0 53 } $surface2.anain.part4 add command -label "54 [get_element_name 1 0 54]" -command { popup 1 0 54 } $surface2.anain.part4 add command -label "55 [get_element_name 1 0 55]" -command { popup 1 0 55 } $surface2.anain.part4 add command -label "56 [get_element_name 1 0 56]" -command { popup 1 0 56 } $surface2.anain.part4 add command -label "57 [get_element_name 1 0 57]" -command { popup 1 0 57 } $surface2.anain.part4 add command -label "58 [get_element_name 1 0 58]" -command { popup 1 0 58 } $surface2.anain.part4 add command -label "59 [get_element_name 1 0 59]" -command { popup 1 0 59 } $surface2.anain.part4 add command -label "60 [get_element_name 1 0 60]" -command { popup 1 0 60 } $surface2.anain.part4 add command -label "61 [get_element_name 1 0 61]" -command { popup 1 0 61 } $surface2.anain.part4 add command -label "62 [get_element_name 1 0 62]" -command { popup 1 0 62 } $surface2.anain.part4 add command -label "63 [get_element_name 1 0 63]" -command { popup 1 0 63 } $surface2.anain.part4 add command -label "64 [get_element_name 1 0 64]" -command { popup 1 0 64} ############################################################# # Another submenu of "Surface called "Analog Out" # # Create the "Analog Out" submenu that contain 4 element # # The first two element come from the first analog card, and the last two # # comes from the second analog card # # Each element selection will call "out_popup" which will display the # # analog output properties, eg: gain, offset, etc. # # The function is implemented in file called "out_elem_prop.tcl" # ############################################################# # Analog Input 1- 16 $surface2 add cascade -label "Analog Out" \ -menu $surface2.anaout menu $surface2.anaout # Add the elements of first part of submenu "Analog In" $surface2.anaout add command -label "1 [get_element_name 1 3 1]" -command { out_popup2 1 3 1 } $surface2.anaout add command -label "2 [get_element_name 1 3 2]" -command { out_popup2 1 3 2 } $surface2.anaout add command -label "3 [get_element_name 1 3 3]" -command { out_popup2 1 3 3 } $surface2.anaout add command -label "4 [get_element_name 1 3 4]" -command { out_popup2 1 3 4 } # end of create_surface_submenu proc }