LiquidCode Moderator Team
Joined: 05 Dec 2000 Posts: 1751 Location: Space and Time
|
Posted: Sun Dec 22, 2002 1:21 am Post subject: No Label Error Fix |
|
|
I (on occasion ) have made a complete dialog interface and have not
created the code for each one, so, to cover for not having all the labels
this error code was created. The oroginal code was made by Mac I think,
and I adjusted it to look for error 12 and show a "Function not yet available".
message. Hope someone else will find this as usefull as I do.
Code: |
:DebugCode
rem -- Remove this if using "debug" at command line --
%1 = "debug"
rem == Debugging procedure =================================
:DEBUG
if @equal(%1, "debug")
option ERRORTRAP, ERROR
end
goto DEBUG_END
:ERROR
%%ErrorType = @error(E)
%%ErrorLine = @error(N)
%%error = Error %%ErrorType at line %%ErrorLine
if @equal(%%ErrorType,12)
Warn Function not yet available.
goto evloop
end
if @ask(%%error@cr()@cr()Do you wish to stop?@cr()@cr()Press YES if main program window is not visible.@tab())
list CREATE, 9
list ADD, 9, @datetime(hh:mm:ss am/pm) %%error
list SAVEFILE, 9, @path(%0)@name(%0)_error.log
list close,9
stop
end
goto EVLOOP
:DEBUG_END
rem ========================================================
|
_________________ Chris
Http://theblindhouse.com |
|