?? demo-stdin.tcl
字號:
#!/usr/bin/tclsh ## Tcl demo with GTK-server 1.3 using STDIN## Tested with Tcl 8.4.6 on Slackware Linux 10.1## Feb 27, 2005 - PvE.#---------------------------------------------------# GTK communication functionproc gtk str { global IO puts $IO $str flush $IO gets $IO tmp return $tmp}# Create bidirectional pipeset IO [open "| gtk-server stdin" r+]# Build GUIgtk "gtk_init NULL NULL"set win [gtk "gtk_window_new 0"]gtk "gtk_window_set_title $win \"Tcl GTK-server demo\""gtk "gtk_widget_set_usize $win 300 100"gtk "gtk_window_set_position $win 1"set tbl [gtk "gtk_table_new 20 20 1"]gtk "gtk_container_add $win $tbl" set but [gtk "gtk_button_new_with_label \"Click to Quit\""]gtk "gtk_table_attach_defaults $tbl $but 12 19 12 19"set lab [gtk "gtk_label_new \"Tcl uses GTK now!!\""]gtk "gtk_table_attach_defaults $tbl $lab 1 15 1 10"gtk "gtk_widget_show_all $win"# Initializeset event 0# Mainloopwhile { $event != $but & $event != $win} { set event [gtk "gtk_server_callback WAIT"] }# Exit GTK-servergtk "gtk_exit 0"# Close pipeclose $IO
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -