You can not select more than 25 topics Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.

11 lines
318 B

#!/usr/bin/env tclsh
package require Tk
proc callwindowify {number} {
font create AppHighlightFont -size 40 -weight bold
grid [ttk::label .l -text "In Call with $number" -font AppHighlightFont]
grid [ttk::button .button -text "Return to Call Menu (unwindowify)" -command exit]
}
callwindowify [lindex $argv 0]