; cips_tool__define.pro ; Created by: James Everton ; ; Procedures and functions created in this file: ; func cips_tool::INIT ; pro cips_tool__define ; ; Purpose: ; In this file, I create an iTool that handles the image sent ; in to the view_scene routine (in view_scene.pro). I create ; menus and buttons that handle basic image handling, along with ; utilizing the IDLitVisImage class to actually output the image ; in the window. ; I should also point out that most of what I used here was ; taken from the file IDLitToolBase__define.pro (where they ; outline the IDLitToolBase class) because both cips_tool ; and IDLitToolBase are derived from the IDLitTool class. ; For reference, the IDLitToolBase__define.pro file is located in: ; .../rsi/idl_6.3/lib/itools/framework/ ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; function cips_tool::INIT, _REF_EXTRA = _extra ;; Pragmas compile_opt idl2, hidden ;; Call our super class if (~self->IDLitToolBase::Init(_EXTRA=_extra, TYPE='CIPS')) then $ return, 0 oSystem = self->_GetSystem() self->RegisterVisualization, 'Image', 'IDLitVisImage', $ ICON = 'Image', IDENTIFIER = 'MainWindow', /DEFAULT return, 1 end ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; pro cips_tool__define ; Pragmas ??? compile_opt idl2, hidden void = {cips_tool, $ INHERITS IDLitToolbase } ; Provides iTool interface end