PRO SCREEN_to_jpg, filename

IF N_PARAMS() EQ 0 THEN filename=Dialog_Pickfile(/Write, $
                                                 Title='Name of Jpeg File...', File='screendump.jpeg')

                                ; Get the screen dump of the current graphics window.
write_jpeg,filename,tvrd(true=1,/order),true=1,/order


END