Artifact d2f2ad8adb67c622a4cda93d82510a9000f9a9ba:

• Executable file examples/embed_firefox.tcl — part of check-in [f841a312f7] at 2014-10-22 06:24:12 on branch trunk — Improve examples. (user: stu size: 540)

#! /usr/bin/env tclsh

package require TkXext

pack [frame .controls]
pack [button .controls.b -text "I'm from Tk"] -side left
pack [frame .f -width 200 -height 200 -container 1] -fill both -expand 1
exec firefox http://www.google.com &
set moz [TkXext.find.window Google*];
if {0 eq $moz} {
 return -code error "unable to find the Firefox window"
}
pack [button .controls.x -text X -command [list TkXext.delete.or.kill $moz]] -side right
TkXext.reparent.window $moz [winfo id .f]
bind .f <Configure> [list TkXext.resize.window $moz %w %h]