PRO qImage_cw_Histogram, state, event

;+
; NAME:
;	qImage_cw_Histogram
; PURPOSE:
;	Starts the qBar widget in histogram mode using the section of the
;	current image defined by the current box
; CATEGORY:
;	Compound widget qImage_cw
; CALLING SEQUENCE:
;	qImage_cw_Histogram, state
; INPUTS:
;	state		array[1]; type: structure
;					qImage_cw state structure
; OUTPUTS:
; INCLUDE:
	@compile_opt.pro			; On error, return to caller
; CALLS:
;	qImage_cw_Box, qImage_cw_BoxImage, qBar
; PROCEDURE:
; MODIFICATION HISTORY:
;	FEB-2000, Paul Hick (UCSD/CASS; pphick@ucsd.edu)
;-

qImage_cw_Box, state, box, /get

IF qImage_cw_BoxImage(state, box, sub_img=sub_img) THEN	BEGIN
	IF (where(sub_img NE long(sub_img)))[0] EQ -1 THEN sub_img = long(sub_img)
	qBar, sub_img, /histogram_mode, group=event.top
ENDIF

RETURN  &  END