afonso/core-extra
1
0
Fork 0
Code Issues Pull requests Projects Releases Wiki Activity

updated gui help menu to point to github home page and github documentation

Browse source
This commit is contained in:
Blake J. Harnden 2018-07-25 12:50:19 -07:00
parent 9ce28da658
commit 055f732cc7
1 changed files with 29 additions and 29 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

58
gui/initgui.tcl
View file

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