;
pro writeimage,path,base,form
case form of
  'PNG': begin
    title = "Select file to write PNG image"
    file = dialog_pickfile(path=path,/write,group=base,title=title)
    if (file ne '') then begin
      widget_control,base,hourglass=1
      saveimage,file,/PNG
    endif
  end
  'GIF': begin
    title = "Select file to write GIF image"
    file = dialog_pickfile(path=path,/write,group=base,title=title)
    if (file ne '') then begin
      widget_control,base,hourglass=1
      saveimage,file,/GIF
    endif
  end
  'BMP': begin
    title = "Select file to write BMP image"
    file = dialog_pickfile(path=path,/write,group=base,title=title)
    if (file ne '') then begin
      widget_control,base,hourglass=1
      saveimage,file,/BMP
    endif
  end
  'JPEG': begin
    title = "Select file to write JPEG image"
    file = dialog_pickfile(path=path,/write,group=base,title=title)
    if (file ne '') then begin
      widget_control,base,hourglass=1
      saveimage,file,/JPEG
    endif
  end
  'TIFF': begin
    title = "Select file to write TIFF image"
    file = dialog_pickfile(path=path,/write,group=base,title=title)
    if (file ne '') then begin
      widget_control,base,hourglass=1
      saveimage,file,/TIFF
    endif
  end
endcase
end