Question

所以我有以下Tk界面，我想从中运行我的客户端和服务器。问题是，当我想运行服务器时，它不会让它们保持打开状态，只执行一次然后关闭它们，就像普通的Tcl脚本一样。你能告诉我一种打开和运行脚本并让它在没有运行的情况下运行的方法吗？

package require Tk

wm title . "Image Organizor"
grid [ttk::frame .c -padding "3 3 12 12"] -column 0 -row 0 -sticky nwes

grid [ttk::label .c.serverLabel -text "Servers"] -column 1 -row 1 -sticky e
grid [ttk::label .c.idServerLabel -text "Test Clients"] -column 2 -row 1 - sticky e
grid [ttk::button .c.slbl -text "Server" -command server] -column 1 -row 2 -sticky e
grid [ttk::button .c.idlbl -text "Id Server" -command idServer] -column 1 -row 3 -sticky e
grid [ttk::button .c.c1lbl -text "Client 1" -command client1] -column 2 -row 2 -sticky e
grid [ttk::button .c.c2lbl -text "Client 2" -command client2] -column 2 -row 3 -sticky e
grid [ttk::button .c.c3lbl -text "Client 3" -command client3] -column 3 -row 2 -sticky e
grid [ttk::button .c.c4lbl -text "Client 4" -command client4] -column 3 -row 3 -sticky e
grid [ttk::button .c.configlbl -text "Config" -command config] -column 1 -row 4 -sticky e

foreach w [winfo children .c] {grid configure $w -padx 5 -pady 5}

proc server {} {  
source ImageOrganizor/imageOrganizorServer.tcl
}

proc config {} {  
exec notepad.exe ImageOrganizor/config.txt
}

Answer 1

您可以使用thread::create
或者仅在单独的过程中通过外壳执行脚本，例如exec ImageOrganizor/imageOrganizorServer.tcl
或者在根级别source上执行代码，然后执行proc来启动服务器，这又可能启动线程，执行或派生新进程。

如何从Tk接口运行服务器

1 个答案: