home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Amiga Format 117
/
af117a.adf
/
archives
/
af117a1.lzx
/
Fiasco_2.2
/
Databases
/
Multimedia
/
gotoxref.frx
< prev
next >
Wrap
Text File
|
1998-09-22
|
1KB
|
88 lines
/* gotoxref.frx
* Copyright © 1997 Nils Bandener
* $VER: gotoxref.frx 6.2 (3.10.97)
*/
scriptname = "Goto Cross Reference"
Options Results
fiasco_port = address()
Signal on Syntax
Signal on Halt
Signal on Break_C
Signal on Failure
LockGUI
CalculateFormula '"active(xrefs)"'
if result ~= -1 then
do
GetField 'xrefs listentry ' || result || ' var pat'
NewSearchInfo 'Name MMEncSI'
SetSearchField 'SearchInfo MMEncSI FieldID Term Pattern ' || pat
Find 'SearchInfo MMEncSI Record 0'
if rc = 0 then
do
ActiveRecord 'Record ' || result
end
end
else
do
RequestChoice 'Title "Goto Cross Reference" "No cross reference selected" "Cancel"'
end
bail_out:
Interpret Address fiasco_port
UnlockGUI
/* ResetStatus */
exit
syntax:
failure:
if show("Ports", fiasco_port) then
do
Interpret Address fiasco_port
RequestChoice '"Error ' || rc || ' in line ' || sigl || ':*n' || errortext(rc) || '" "Cancel" Title "' || scriptname || '"'
end
else
do
say "Error" rc "in line" sigl ":" errortext(rc)
say "Enter to continue"
pull dummy
end
call bail_out
halt:
break_c:
if show("Ports", fiasco_port) then
do
Interpret Address fiasco_port
RequestChoice '"Script Abort Requested" "Abort Script|Continue Script" Title "' || scriptname || '"'
if result = 0 then return
end
else
do
say "*** Break"
say "Enter to continue"
pull dummy
end
call bail_out