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
11 lines
318 B
5 years ago
|
#!/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]
|