%% set helpbg [option get .hyperhelp.view.file background Tk] if {$helpbg == ""} {set helpbg white} label $blt_htext(widget).examine -bitmap examine -bg $helpbg $blt_htext(widget) append $blt_htext(widget).examine %% Examining Files/Directories --------------------------------------------------------------- When a file token is dropped on the "examine" icon, a window will appear displaying a representation of the file: If the file is a... Then... DIRECTORY - relative sizes for component files are shown in a %% hyperhelp_link "graphical usage display" Display %% ASCII FILE - contents displayed in a text window OTHER FILE - description from system "file" command displayed in a message box