; $Id: insget.pro,v 1.7 2001/01/15 22:28:06 scottm Exp $
;
; Copyright (c) 1996-2001, Research Systems, Inc.  All rights reserved.
;       Unauthorized reproduction prohibited.
;+
; NAME:
;       INSGET
;
; PURPOSE:
;       Stub for INSGET.  Displays message saying that Insight must be running.
;       Once Insight is restored and running this routine will be replaced by
;       the actual compiled version in the Insight save file.
;
; NOTES:
;       - See the online documentation for usage information.
;
;------------------------------------------------------------------------------
function InsGet, $
    arg1,  arg2,  arg3,  $
    arg4,  arg5,  arg6,  $
    arg7,  arg8,  arg9,  $
    arg10, arg11, arg12, $
    arg13, arg14, arg15, $
    arg16, arg17, arg18, $
    arg19, arg20, arg21, $
    arg22, arg23, arg24, $
    arg25, _EXTRA=extra

    ;;  Notify user that Insight must be running to use this function.
    ;;
    result = DIALOG_MESSAGE($
        ['Insight must be running in order to use InsGet.', $
        'Please start Insight and try again.'] )
    RETURN, 0
end