pro check_cancel, STOPIT=stit
if N_ELEMENTS(stit) eq 0 then stit = 0
a = get_kbrd(0)
; ; uncomment this line if the codes breaks with get_kbrd (there was a
; bug in mac os Leopard where this was necessary) should be fine now.
;a= ''
if N_elements(a) gt 0 then $
  if (a[0] eq 'c' or a[0] eq 'C') then begin
    stopit = 1
    stit = 1
endif
end