func jpeg_option_widget(iq)
 ;options for some types of files
 if defined(thiswidget) ne 1 then {
 thiswidget = xmtoplevel_board(0,0, 'JPEG save file options',10,10)
 
 ;4/2/97, many things removed, only JPEG quality left now

 ;the JPEG quality
 ix = 10		iy = 10
 fw=xmframe(thiswidget,4,4)
 xmposition,fw, ix, iy
 board=xmboard(fw, 0, 0)
 iq = xmlabel(board, 'JPEG quality (1-100)', $f4)
 xmposition,iq, 10, 6
 xmgetwidgetsize, iq, dx, dy
 ty,'label dx, dy =', dx, dy
 $jpegvalue = xmtextfield(board,'',4,'',$f3,'white')
 xmposition, $jpegvalue, 10+dx+10, 0, 50, 35
 
 xmtextfieldsetstring,$jpegvalue,'100'
 }
 return, thiswidget
 endfunc
 ;===============================================================================