; $Id: insput.pro,v 1.10 2004/01/21 15:54:55 scottm Exp $ ; ; Copyright (c) 1996-2004, Research Systems, Inc. All rights reserved. ; Unauthorized reproduction prohibited. ;+ ; NAME: ; INSPUT ; ; PURPOSE: ; Stub for INSPUT. 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. ; ;------------------------------------------------------------------------------ pro InsPut, $ 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 InsPut.', $ 'Please start Insight and try again.'] ) end