comp.lang.idl-pvwave archive
Messages from Usenet group comp.lang.idl-pvwave, compiled by Paulo Penteado
Home » Public Forums » archive » Re: outputting formated text version of code
Show: Today's Messages :: Show Polls :: Message Navigator
E-mail to friend  		Return to the default flat view Create a new topic Submit Reply
Re: outputting formated text version of code [message #13687 is a reply to message #13678] Mon, 07 December 1998 00:00 Go to previous messageGo to previous message
R.Bauer is currently offline  R.Bauer
Messages: 1424
Registered: November 1998
Senior Member
<PRE>



<FONT COLOR="#009900">; Copyright (c) 1998, Forschungszentrum Juelich GmbH ICG-1</FONT><FONT COLOR="#000000">
<FONT COLOR="#009900">; All rights reserved.</FONT><FONT COLOR="#000000">
<FONT COLOR="#009900">; Unauthorized reproduction prohibited.</FONT><FONT COLOR="#000000">
<FONT COLOR="#009900">; This software may be used, copied, or redistributed as long as it is not</FONT><FONT COLOR="#000000">
<FONT COLOR="#009900">; sold and this copyright notice is reproduced on each copy made. This</FONT><FONT COLOR="#000000">
<FONT COLOR="#009900">; routine is provided as is without any express or implied warranties</FONT><FONT COLOR="#000000">
<FONT COLOR="#009900">; whatsoever.</FONT><FONT COLOR="#000000">
<FONT COLOR="#009900">;</FONT><FONT COLOR="#000000">
<FONT COLOR="#009900">;+</FONT><FONT COLOR="#000000">
<FONT COLOR="#009900">; NAME:</FONT><FONT COLOR="#000000">
<FONT COLOR="#009900">; x_breaker</FONT><FONT COLOR="#000000">
<FONT COLOR="#009900">;</FONT><FONT COLOR="#000000">
<FONT COLOR="#009900">; PURPOSE:</FONT><FONT COLOR="#000000">
<FONT COLOR="#009900">; This widget procedure is used to break a routine by sending a breakpoint</FONT><FONT COLOR="#000000">
<FONT COLOR="#009900">;</FONT><FONT COLOR="#000000">
<FONT COLOR="#009900">; CATEGORY:</FONT><FONT COLOR="#000000">
<FONT COLOR="#009900">; PROG_TOOLS/WIDGETS</FONT><FONT COLOR="#000000">
<FONT COLOR="#009900">;</FONT><FONT COLOR="#000000">
<FONT COLOR="#009900">; CALLING SEQUENCE:</FONT><FONT COLOR="#000000">
<FONT COLOR="#009900">; x_breaker</FONT><FONT COLOR="#000000">
<FONT COLOR="#009900">;</FONT><FONT COLOR="#000000">
<FONT COLOR="#009900">;</FONT><FONT COLOR="#000000">
<FONT COLOR="#009900">; EXAMPLE:</FONT><FONT COLOR="#000000">
<FONT COLOR="#009900">; PRO test</FONT><FONT COLOR="#000000">
<FONT COLOR="#009900">; result=x_breaker()</FONT><FONT COLOR="#000000">
<FONT COLOR="#009900">; FOR i=0l,100000l DO BEGIN</FONT><FONT COLOR="#000000">
<FONT COLOR="#009900">; res=WIDGET_EVENT(result.base,/nowait)</FONT><FONT COLOR="#000000">
<FONT COLOR="#009900">; WAIT,0.01</FONT><FONT COLOR="#000000">
<FONT COLOR="#009900">; PRINT,i</FONT><FONT COLOR="#000000">
<FONT COLOR="#009900">; ENDFOR</FONT><FONT COLOR="#000000">
<FONT COLOR="#009900">; END</FONT><FONT COLOR="#000000">
<FONT COLOR="#009900">;</FONT><FONT COLOR="#000000">
<FONT COLOR="#009900">;</FONT><FONT COLOR="#000000">
<FONT COLOR="#009900">; MODIFICATION HISTORY:</FONT><FONT COLOR="#000000">
<FONT COLOR="#009900">; Written by: R.Bauer (ICG-1), 1998-Dec-07</FONT><FONT COLOR="#000000">
<FONT COLOR="#009900">;-</FONT><FONT COLOR="#000000">


<FONT COLOR="#CC0000">PRO</FONT> x_breaker_event,ev
<FONT COLOR="#000099">WIDGET_CONTROL</FONT>, ev.id, get_uval=cmd
<FONT COLOR="#000099">WIDGET_CONTROL</FONT>, ev.top, get_uval=map
<FONT COLOR="#000099">WIDGET_CONTROL</FONT>, map.base, get_uval=struct
<FONT COLOR="#CC0000">IF</FONT> <FONT COLOR="#3366FF">SIZE</FONT>(cmd,/type) <FONT COLOR="#CC0000">NE</FONT> 8 <FONT COLOR="#CC0000">THEN</FONT> <FONT COLOR="#CC0000">BEGIN</FONT>
<FONT COLOR="#CC0000">CASE</FONT> cmd[0] <FONT COLOR="#CC0000">OF</FONT>
'<FONT COLOR="#FF6666">BREAK</FONT>': <FONT COLOR="#CC0000">BEGIN</FONT>
<FONT COLOR="#000099">HELP</FONT>,call=call
line=<FONT COLOR="#3366FF">LONG</FONT>((<FONT COLOR="#3366FF"><FONT COLOR="#3366FF">STR_SEP</FONT></FONT>((STR_SEP(call[1],'('))[1],')'))[0])
file=(<FONT COLOR="#3366FF"><FONT COLOR="#3366FF">STR_SEP</FONT></FONT>((STR_SEP(call[1],' <'))[1],'('))[0]
<FONT COLOR="#000099">BREAKPOINT</FONT>,file,line
<FONT COLOR="#CC0000">END</FONT>
<FONT COLOR="#CC0000">ELSE</FONT>:
<FONT COLOR="#CC0000">ENDCASE</FONT>
<FONT COLOR="#CC0000">ENDIF</FONT>
<FONT COLOR="#CC0000">END</FONT>


<FONT COLOR="#CC0000">FUNCTION</FONT> x_breaker
base=<FONT COLOR="#3366FF">WIDGET_BASE</FONT>(col=3,title='<FONT COLOR="#FF6666">Break a running Script</FONT>')
id_break=<FONT COLOR="#3366FF">WIDGET_BUTTON</FONT>(base,Value='<FONT COLOR="#FF6666"><FONT COLOR="#FF6666">BREAK</FONT></FONT>',UVALUE='BREAK',/ALIGN_CENTER,event_pro=' <FONT COLOR="#FF6666">x_breaker_event</FONT>')
result={base:base}
<FONT COLOR="#000099">WIDGET_CONTROL</FONT>,base,set_uval= result,/realize , /XMANAGER_ACTIVE_COMMAND
<FONT COLOR="#CC0000">RETURN</FONT>,result
<FONT COLOR="#CC0000">END</FONT>

Report message to a moderator

[Message index]
 
Read Message
Read Message
Read Message
Read Message
Read Message
Previous Topic: Are .SAV files platform independent?
Next Topic: Re: New dollar coin designed using IDL (please vote)

-=] Back to Top [=-
[ Syndicate this forum (XML) ] [ RSS ] [ PDF ]

Current Time: Sat Oct 11 15:29:47 PDT 2025

Total time taken to generate the page: 1.20198 seconds
.:: Contact :: Home ::.

Powered by: FUDforum 3.0.7.
Copyright ©2001-2013 FUDforum Bulletin Board Software