type gr_prompt = { pt_window : gr_window ; mutable pt_left : int ; mutable pt_top : int ; mutable pt_name : string } ;;
gr_draw_prompt : gr_prompt -> unit