pro intmask_ev, event

common sdwcom5, intmask
common im,textim

  case event.id of
  textim: begin
    Widget_Control, event.id, Get_Value = imtext
    intmask = fix(imtext(0))
    Widget_Control, event.top, /Destroy
    pp
    end
  endcase
end


pro sdw_intmask, group=group

common sdwcom5, intmask
common im,textim

  if(XRegistered("sdw_intmask")) then return
        
  intmaskbase  = Widget_Base(title = 'Integer Mask', /Column, XOffset = 300, $
			 YOffset = 300)
  widebase = Widget_Base(intmaskbase, /Row)
  labelim  = Widget_Label(widebase,Value='IntMask:') 
  textim   = Widget_Text(widebase, Value = ' ', XSize = 14, /Edit)

  Widget_Control, intmaskbase, /Realize

  XManager, "sdw_intmask", intmaskbase, Event_Handler = "intmask_ev", $
	  Group_Leader = Group
end