The quicklook package displays a native QuickLook preview panel in a Tk application. The quicklook::quicklook path takes a file path as an argument and then displays a QuickLook panel of the file.
More information:http://opensource.codebykevin.com