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.
10 lines
318 B
10 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]
|
|
|