Pro TVObj,image,Window=Window, Model=Model, View=View, $
Image_Obj=Image_Obj

   ; Create a window object of 'default size'
Window = Obj_New('IDLgrWindow',Retain=2, $
Dimension=[400,300])

   ; Create an image object
Image_Obj= Obj_New('IDLgrImage', Data=image)

   ; Create the view object
View = Obj_New('IDLgrView', Viewplane_Rect=[0,0,400,300])

   ; Create a model object
Model = Obj_New('IDLgrModel')

   ; Organize the object hierarchy
Model -> Add, Image_Obj
View -> Add, Model

   ;Render the contents of the view object in the window
Window -> Draw, View
end