; Define the dicomtest class which extends the IDLffDICOM class
pro dicomtest__define 
struct = {dicomtest, image: ptr_new(), INHERITS IDLffDICOM }
end

; Define the dicomtest init method
function dicomtest::init
; Return 0 if the superclass did not init
if (NOT (self -> IDLffDICOM::init())) then return, 0
return, 1
end

; This procedure starts and runs the dicomtest wrapper object
pro dicomtest__test1
filename = 'dummyfilename'
help, file_test(filename)
dicom_obj = obj_new('dicomtest')
if (dicom_obj -> read(filename)) then print, 'ok'
end