ForkMaster/netgen
1
0
Fork 0
mirror of https://github.com/NGSolve/netgen.git synced 2024-09-22 09:42:50 +05:00
Code Issues Packages Projects Releases Wiki Activity

Removed socket entry from special menu

Browse Source
This commit is contained in:
Gerhard Kitzler 2016-11-10 11:45:06 +01:00
parent 3beaad374f
commit 21c077e23e
1 changed files with 37 additions and 37 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

74
ng/sockets.tcl
View File

@ -33,24 +33,24 @@ proc clientsocketdialog { } {
global sockets.serverhost global sockets.serverhost
global sockets.serverport global sockets.serverport
frame $w.general ttk::frame $w.general
frame $w.host ttk::frame $w.host
label $w.host.lab -text "Serverhost: " ttk::label $w.host.lab -text "Serverhost: "
entry $w.host.name -width 30 -relief sunken -textvariable sockets.serverhost ttk::entry $w.host.name -width 30 -textvariable sockets.serverhost
pack $w.host.lab $w.host.name -side left pack $w.host.lab $w.host.name -side left
pack $w.host pack $w.host
frame $w.ports ttk::frame $w.ports
label $w.ports.lab1 -text "Serverport: " ttk::label $w.ports.lab1 -text "Serverport: "
entry $w.ports.statport -width 6 -relief sunken -textvariable sockets.serverport ttk::entry $w.ports.statport -width 6 -textvariable sockets.serverport
pack $w.ports.lab1 $w.ports.statport -side left pack $w.ports.lab1 $w.ports.statport -side left
pack $w.ports pack $w.ports
frame $w.listboxes ttk::frame $w.listboxes
frame $w.listboxes.choosesocketframe ttk::frame $w.listboxes.choosesocketframe
tixScrolledListBox $w.listboxes.choosesocketframe.choosesocket -scrollbar auto tixScrolledListBox $w.listboxes.choosesocketframe.choosesocket -scrollbar auto
@ -62,21 +62,21 @@ proc clientsocketdialog { } {
${sockets.serverlistbox} configure -selectmode browse ${sockets.serverlistbox} configure -selectmode browse
${sockets.serverlistbox} configure -exportselection false ${sockets.serverlistbox} configure -exportselection false
button $w.addserver -text "Add ServerSocket" -command { ttk::button $w.addserver -text "Add ServerSocket" -command {
Ng_Socket addserver ${sockets.serverport} ${sockets.serverhost} Ng_Socket addserver ${sockets.serverport} ${sockets.serverhost}
updateserverlist updateserverlist
} }
pack $w.addserver pack $w.addserver
label $w.linefeed -text "\n" ttk::label $w.linefeed -text "\n"
pack $w.linefeed pack $w.linefeed
frame $w.clientidframe ttk::frame $w.clientidframe
label $w.clientidframe.lab -text "Client ID: "; ttk::label $w.clientidframe.lab -text "Client ID: ";
global sockets.myidlabel global sockets.myidlabel
entry $w.clientidframe.val -width 5 -relief sunken -textvariable sockets.myidlabel ttk::entry $w.clientidframe.val -width 5 -textvariable sockets.myidlabel
button $w.clientidframe.but -text "Set" -command { ttk::button $w.clientidframe.but -text "Set" -command {
set opsel [${sockets.serverlistbox} curselection] set opsel [${sockets.serverlistbox} curselection]
if {[llength $opsel] > 0} { if {[llength $opsel] > 0} {
set opserver [lindex $opsel 0] set opserver [lindex $opsel 0]
@ -95,13 +95,13 @@ proc clientsocketdialog { } {
# pack $w.clientidlabel # pack $w.clientidlabel
label $w.listboxes.choosesocketframe.chooselab -text [format "\n\n%-16s %6s %6s " Host Socket MyID ] ttk::label $w.listboxes.choosesocketframe.chooselab -text [format "\n\n%-16s %6s %6s " Host Socket MyID ]
pack $w.listboxes.choosesocketframe.chooselab pack $w.listboxes.choosesocketframe.chooselab
pack $w.listboxes.choosesocketframe.choosesocket pack $w.listboxes.choosesocketframe.choosesocket
frame $w.listboxes.choosesocketframe.serverbuttons ttk::frame $w.listboxes.choosesocketframe.serverbuttons
button $w.listboxes.choosesocketframe.serverbuttons.save -text "Save" -command { ttk::button $w.listboxes.choosesocketframe.serverbuttons.save -text "Save" -command {
Ng_Socket saveserverlist Ng_Socket saveserverlist
} }
@ -109,7 +109,7 @@ proc clientsocketdialog { } {
Ng_Socket loadserverlist Ng_Socket loadserverlist
updateserverlist updateserverlist
button $w.listboxes.choosesocketframe.serverbuttons.delete -text "Delete" -command { ttk::button $w.listboxes.choosesocketframe.serverbuttons.delete -text "Delete" -command {
set opsel [${sockets.serverlistbox} curselection] set opsel [${sockets.serverlistbox} curselection]
if {[llength $opsel] > 0} { if {[llength $opsel] > 0} {
Ng_Socket deletesocket [lindex $opsel 0] Ng_Socket deletesocket [lindex $opsel 0]
@ -120,17 +120,17 @@ proc clientsocketdialog { } {
pack $w.listboxes.choosesocketframe.serverbuttons.save $w.listboxes.choosesocketframe.serverbuttons.delete -side left pack $w.listboxes.choosesocketframe.serverbuttons.save $w.listboxes.choosesocketframe.serverbuttons.delete -side left
pack $w.listboxes.choosesocketframe.serverbuttons pack $w.listboxes.choosesocketframe.serverbuttons
frame $w.listboxes.statusframe ttk::frame $w.listboxes.statusframe
label $w.listboxes.statusframe.statuslabel1 -text "\n\njobqueue" ttk::label $w.listboxes.statusframe.statuslabel1 -text "\n\njobqueue"
tixScrolledListBox $w.listboxes.statusframe.queuestatus -scrollbar auto tixScrolledListBox $w.listboxes.statusframe.queuestatus -scrollbar auto
label $w.listboxes.statusframe.statuslabel2 -text "\ncurrent job" ttk::label $w.listboxes.statusframe.statuslabel2 -text "\ncurrent job"
tixScrolledListBox $w.listboxes.statusframe.currentjobstatus -scrollbar auto tixScrolledListBox $w.listboxes.statusframe.currentjobstatus -scrollbar auto
label $w.listboxes.statusframe.statuslabel3 -text "\nanswers" ttk::label $w.listboxes.statusframe.statuslabel3 -text "\nanswers"
tixScrolledListBox $w.listboxes.statusframe.answers -scrollbar auto tixScrolledListBox $w.listboxes.statusframe.answers -scrollbar auto
@ -157,7 +157,7 @@ proc clientsocketdialog { } {
${sockets.answerlistbox} configure -selectmode browse ${sockets.answerlistbox} configure -selectmode browse
${sockets.answerlistbox} configure -exportselection false ${sockets.answerlistbox} configure -exportselection false
button $w.listboxes.statusframe.updatebutton -text "Update" -command { ttk::button $w.listboxes.statusframe.updatebutton -text "Update" -command {
set opsel [${sockets.serverlistbox} curselection] set opsel [${sockets.serverlistbox} curselection]
if {[llength $opsel] > 0} { if {[llength $opsel] > 0} {
set opserver [lindex $opsel 0] set opserver [lindex $opsel 0]
@ -199,14 +199,14 @@ proc clientsocketdialog { } {
pack $w.listboxes pack $w.listboxes
label $w.lab1 -text "\n" ttk::label $w.lab1 -text "\n"
pack $w.lab1 pack $w.lab1
frame $w.buttons1 ttk::frame $w.buttons1
frame $w.buttons2 ttk::frame $w.buttons2
button $w.buttons1.getid -text "Get ID" -command { ttk::button $w.buttons1.getid -text "Get ID" -command {
set opsel [${sockets.serverlistbox} curselection] set opsel [${sockets.serverlistbox} curselection]
if {[llength $opsel] > 0} { if {[llength $opsel] > 0} {
set opserver [lindex $opsel 0] set opserver [lindex $opsel 0]
@ -216,7 +216,7 @@ proc clientsocketdialog { } {
} }
} }
button $w.buttons1.killjob -text "Kill Cur. Job" -command { ttk::button $w.buttons1.killjob -text "Kill Cur. Job" -command {
set opsel [${sockets.serverlistbox} curselection] set opsel [${sockets.serverlistbox} curselection]
if {[llength $opsel] > 0} { if {[llength $opsel] > 0} {
set opserver [lindex $opsel 0] set opserver [lindex $opsel 0]
@ -224,7 +224,7 @@ proc clientsocketdialog { } {
} }
} }
button $w.buttons2.sendmesh -text "Send Mesh" -command { ttk::button $w.buttons2.sendmesh -text "Send Mesh" -command {
set opsel [${sockets.serverlistbox} curselection] set opsel [${sockets.serverlistbox} curselection]
if {[llength $opsel] > 0} { if {[llength $opsel] > 0} {
set opserver [lindex $opsel 0] set opserver [lindex $opsel 0]
@ -233,7 +233,7 @@ proc clientsocketdialog { } {
} }
} }
button $w.buttons2.sendpde -text "Send PDE" -command { ttk::button $w.buttons2.sendpde -text "Send PDE" -command {
set opsel [${sockets.serverlistbox} curselection] set opsel [${sockets.serverlistbox} curselection]
if {[llength $opsel] > 0} { if {[llength $opsel] > 0} {
set opserver [lindex $opsel 0] set opserver [lindex $opsel 0]
@ -241,7 +241,7 @@ proc clientsocketdialog { } {
} }
} }
button $w.buttons2.solvepde -text "Solve PDE" -command { ttk::button $w.buttons2.solvepde -text "Solve PDE" -command {
set opsel [${sockets.serverlistbox} curselection] set opsel [${sockets.serverlistbox} curselection]
if {[llength $opsel] > 0} { if {[llength $opsel] > 0} {
set opserver [lindex $opsel 0] set opserver [lindex $opsel 0]
@ -249,7 +249,7 @@ proc clientsocketdialog { } {
} }
} }
button $w.buttons2.writesol -text "Write Solution" -command { ttk::button $w.buttons2.writesol -text "Write Solution" -command {
set opsel [${sockets.serverlistbox} curselection] set opsel [${sockets.serverlistbox} curselection]
if {[llength $opsel] > 0} { if {[llength $opsel] > 0} {
set opserver [lindex $opsel 0] set opserver [lindex $opsel 0]
@ -257,7 +257,7 @@ proc clientsocketdialog { } {
} }
} }
button $w.buttons2.sendsol -text "Receive Solution" -command { ttk::button $w.buttons2.sendsol -text "Receive Solution" -command {
set opsel [${sockets.serverlistbox} curselection] set opsel [${sockets.serverlistbox} curselection]
if {[llength $opsel] > 0} { if {[llength $opsel] > 0} {
set opserver [lindex $opsel 0] set opserver [lindex $opsel 0]
@ -265,7 +265,7 @@ proc clientsocketdialog { } {
} }
} }
button $w.buttons1.blockserver -text "Block Server" -command { ttk::button $w.buttons1.blockserver -text "Block Server" -command {
set opsel [${sockets.serverlistbox} curselection] set opsel [${sockets.serverlistbox} curselection]
if {[llength $opsel] > 0} { if {[llength $opsel] > 0} {
set opserver [lindex $opsel 0] set opserver [lindex $opsel 0]
@ -273,7 +273,7 @@ proc clientsocketdialog { } {
} }
} }
button $w.buttons1.unblockserver -text "UnBlock Server" -command { ttk::button $w.buttons1.unblockserver -text "UnBlock Server" -command {
set opsel [${sockets.serverlistbox} curselection] set opsel [${sockets.serverlistbox} curselection]
if {[llength $opsel] > 0} { if {[llength $opsel] > 0} {
set opserver [lindex $opsel 0] set opserver [lindex $opsel 0]
@ -299,5 +299,5 @@ proc clientsocketdialog { } {
} }
.ngmenu.special add command -label "Client Socket" \ #.ngmenu.special add command -label "Client Socket" \
-command { clientsocketdialog } -command { clientsocketdialog }