pro sample_colorbar


data=findgen(10)
mytitle=obj_new('IDLgrText','My Colorbar') ;create an object of IDLgrText class
bardims=[0.1,0.4]
redvalues=BINDGEN(256)
greenvalues=redvalues
bluevalues=reverse(redvalues)
mycolorbar=obj_new('IDLgrColorbar',redvalues,greenvalues,bluevalues,$
	TITLE=mytitle, DIMENSIONS=barDims,/Show_Axis,/Show_outline)

myplot=obj_new('IDLgrPlot',data)
mywindow=obj_new('IDLgrWindow')
myview=OBJ_NEW('IDLgrView')
mymodel=obj_new('IDLgrModel')
myview->Add,mymodel
mymodel->add,mycolorbar

barplustextdims=mycolorbar->ComputeDimensions(mywindow)
mymodel->Translate, -bardims[0]+(barplustextdims[0]/2.), $
	-bardims[1]+(barplustextdims[1]/2.),0
mymodel->Add,myplot
mywindow->Draw,myview

stop
end