diff --git a/gui/initgui.tcl b/gui/initgui.tcl index 042120a0..4d64cdb2 100644 --- a/gui/initgui.tcl +++ b/gui/initgui.tcl @@ -43,46 +43,46 @@ # global variables # FUNCTION # GUI-related global varibles -# +# # * newlink -- helps when creating a new link. If there is no # link currently created, this value is set to an empty string. # * selectbox -- the value of the box representing all the selected items # * selected -- containes the list of node_id's of all selected nodes. -# * newCanvas -- +# * newCanvas -- # -# * animatephase -- starting dashoffset. With this value the effect of -# rotating line around selected itme is achived. +# * animatephase -- starting dashoffset. With this value the effect of +# rotating line around selected itme is achived. # * undolevel -- control variable for undo. # * redolevel -- control variable for redo. # * undolog -- control variable for saving all the past configurations. -# * changed -- control variable for indicating that there something changed +# * changed -- control variable for indicating that there something changed # in active configuration. # * badentry -- control variable indicating that there has been a bad entry # in the text box. # * cursorstate -- control variable for animating cursor. # * clock_seconds -- control variable for animating cursor. -# * oper_mode -- control variable reresenting operating mode, possible +# * oper_mode -- control variable reresenting operating mode, possible # values are edit and exec. -# * grid -- control variable representing grid distance. All new -# elements on the +# * grid -- control variable representing grid distance. All new +# elements on the # canvas are snaped to grid. Default value is 24. # * sizex -- X size of the canvas. # * sizey -- Y size of the canvas. # * curcanvas -- the value of the current canvas. -# * autorearrange_enabled -- control variable indicating is +# * autorearrange_enabled -- control variable indicating is # autorearrange enabled. # # * defLinkColor -- defines the default link color, default link color is set # to red. # * defLinkWidth -- defines the width of the link, default is 2. -# * defEthBandwidth -- defines the ethernet bandwidth, default is set to +# * defEthBandwidth -- defines the ethernet bandwidth, default is set to # 100000000. # * defSerBandwidth -- defines the serail link bandwidth, default is 2048000. # * defSerDelay -- defines the serail link delay, default is 2500. # * showIfNames -- control variable for showing interface names, default is 1 -# * showIfIPaddrs -- control variable for showing interface IPv4 addresses, +# * showIfIPaddrs -- control variable for showing interface IPv4 addresses, # default is 1 (addresses are visible). -# * showIfIPv6addrs -- control variable for showing interface IPv4 +# * showIfIPv6addrs -- control variable for showing interface IPv4 # addresses, default is 1 (addresses are visible). # * showNodeLabels -- control variable for showing node labels, default is 1. # * showLinkLabels -- control variable for showing link labels, default is 1. @@ -118,19 +118,19 @@ set resizemode false set thruplotResize false # dictionary that maps cursor style to resize mode -set cursorToResizemode [dict create top_left_corner lu] +set cursorToResizemode [dict create top_left_corner lu] dict set cursorToResizemode bottom_left_corner ld dict set cursorToResizemode left_side l dict set cursorToResizemode top_right_corner ru dict set cursorToResizemode bottom_right_corner rd dict set cursorToResizemode right_side r dict set cursorToResizemode top_side u - dict set cursorToResizemode bottom_side d + dict set cursorToResizemode bottom_side d -# dictionary that maps thruplot to color +# dictionary that maps thruplot to color set thruPlotColor [dict create default blue] set thruPlotDragStart false -set thruPlotCur null +set thruPlotCur null set curPlotLineColor blue set curPlotFillColor "#7f9eee" @@ -143,7 +143,7 @@ set defThruPlotMaxKBPS 10 # # Initialize a few variables to default values # -set defLinkColor Red +set defLinkColor Red set defFillColor Gray set defLinkWidth 2 set defEthBandwidth 0 @@ -224,7 +224,7 @@ bind . "fileNewDialogBox" bind . "fileOpenDialogBox" .menubar.file add command -label "Reload" -underline 0 \ - -command { openFile $currentFile } + -command { openFile $currentFile } .menubar.file add command -label Save -underline 0 \ -accelerator "Ctrl+S" -command { fileSaveDialogBox "" } @@ -245,7 +245,7 @@ bind . "fileSaveDialogBox {}" .menubar.file add separator .menubar.file add command -label "Open current file in editor..." \ - -underline 21 -command { + -underline 21 -command { global currentFile set ed [get_text_editor false] set t [get_term_prog false] @@ -428,10 +428,10 @@ menu .menubar.tools.experimental toplevel .ns2im-dialog wm transient .ns2im-dialog . wm title .ns2im-dialog "ns2imunes converter" - + set f1 [frame .ns2im-dialog.entry1] set f2 [frame .ns2im-dialog.buttons] - + label $f1.l -text "ns2 file:" entry $f1.e -width 25 -textvariable ns2srcfile button $f1.b -text "Browse" -width 8 \ @@ -440,13 +440,13 @@ menu .menubar.tools.experimental -initialfile $ns2srcfile] $f1.e delete 0 end $f1.e insert 0 "$srcfile" - } + } button $f2.b1 -text "OK" -command { ns2im $srcfile destroy .ns2im-dialog } button $f2.b2 -text "Cancel" -command { destroy .ns2im-dialog} - + pack $f1.b $f1.e -side right pack $f1.l -side right -fill x -expand true pack $f2.b1 -side left -expand true -anchor e @@ -594,10 +594,10 @@ menu .menubar.session -tearoff 1 # Help # menu .menubar.help -tearoff 0 -.menubar.help add command -label "Online manual (www)" -command \ - "_launchBrowser https://downloads.pf.itd.nrl.navy.mil/docs/core/core-html/" -.menubar.help add command -label "CORE website (www)" -command \ - "_launchBrowser https://www.nrl.navy.mil/itd/ncs/products/core" +.menubar.help add command -label "CORE GitHub (www)" -command \ + "_launchBrowser https://github.com/coreemu/core" +.menubar.help add command -label "CORE Documentation (www)" -command \ + "_launchBrowser https://coreemu.github.io/core/" .menubar.help add command -label "Mailing list (www)" -command \ "_launchBrowser https://publists.nrl.navy.mil/mailman/listinfo/core-users" .menubar.help add command -label "About" -command popupAbout @@ -686,7 +686,7 @@ pack .bottom -side bottom -fill x label .bottom.textbox -relief sunken -bd 1 -anchor w -width 999 label .bottom.zoom -relief sunken -bd 1 -anchor w -width 10 label .bottom.cpu_load -relief sunken -bd 1 -anchor w -width 9 -label .bottom.mbuf -relief sunken -bd 1 -anchor w -width 9 +label .bottom.mbuf -relief sunken -bd 1 -anchor w -width 9 label .bottom.indicators -relief sunken -bd 1 -anchor w -width 5 pack .bottom.indicators .bottom.mbuf .bottom.cpu_load \ .bottom.zoom .bottom.textbox -side right -padx 0 -fill both @@ -808,7 +808,7 @@ set ::tk::dialog::file::showHiddenBtn 1 # switchCanvas first -focus -force . +focus -force . # # Fire up the animation loop - used basically for selectbox