Hi everyone, To avoid the sometimes inpractical debugger (debug doesn't update the variables always, no command keys, awkward scrolling, impractical portable mice, and limited screen real estate), I usually put a script line like:
put "a status to check:" && a variableortwo which gives me a quick and dirty status of a script. The downside of this is that sometimes you forget about one or two of these status display lines when you release software. So here is a script that reports them... The only little problem with this line is that if you force wrap the statement with a backslash it will not be detected but this is a rather benign problem which you can solve easily. Since I use lots of dynamic scripts, I also included a check for those! Enjoy Xavier http://monsieurx.com on mouseUp put "yourstackname" into thisstack put the short name of the topstack into laststack set the defaultstack to thisstack put the script of stack thisstack into dscript put findputs(dscript) into resultlist if resultlist is not empty then put "Stack" && thisstack & CR & resultlist & CR after xoutput end if repeat with x = 1 to the number of cds put the script of cd x into dscript put findputs(dscript) into resultlist if resultlist is not empty then put "card" && x & CR & resultlist & CR after xoutput end if end repeat repeat with c = 1 to the number of controls put the script of control c into dscript put findputs(dscript) into resultlist if resultlist is not empty then put "Control" && c && the short name of control c && "ID:" & the short id of control c & CR \ & resultlist & CR after xoutput end if end repeat set the defaultstack to laststack put xoutput end mouseUp function findPuts dscript put "" into lineslist repeat with l = 1 to the number of lines in dscript set cursor to busy get line l of dscript if word 1 of it is "put" then if "into" is not in it and "after" is not in it and "before" is not in it then put l & cr after lineslist end if end if if word 1 of l is "do" then if quote&"put" is in l and "into" is not in it and "after" is not in it and "before" is not in it then put l & "*" & cr after linelist end if end if end repeat return lineslist end findPuts _______________________________________________ use-revolution mailing list [EMAIL PROTECTED] http://lists.runrev.com/mailman/listinfo/use-revolution
