# TWAPI example # Get HTML contents of the clipboard package require twapi # Internet Explorer registers the clipboard format name as "HTML Format" # First get the format identifier for this name set html_fmt [twapi::register_clipboard_format "HTML Format"] # Then open the clipboard ... twapi::open_clipboard # ... and get available formats set available_fmts [twapi::get_clipboard_formats] # See if HTML format is in the list if {[lsearch -integer $available_fmts $html_fmt] < 0} { puts stderr "HTML format is not available on the clipboard" exit 1 } # Read the contents ... set html [twapi::read_clipboard $html_fmt] # ...and close it twapi::close_clipboard # For HTML format, it so happens that the contents are UTF8 so we # can just print it puts $html