home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Wacky Windows Stuff...
/
WACKY.iso
/
toolbook
/
scrptdmp.tbk
(
.txt
)
< prev
next >
Wrap
Asymetrix ToolBook File
|
1992-03-03
|
26KB
|
584 lines
System
Range choice
ochoice
buttonUp
buttonUp
choice
choice
Current Page
Whole Book
Whole Book
Current Page
4s_pg
"toolbook"
("Dump scripts
which
buttonUp
buttonUp
pagenumber of this page
toolbook
Dump scripts for which page number?
Single Page
Dump scripts offf
Insert page breaks
Insert page breaks before
background, page and group scriptsss
List all
List pages and backgrounds even
when their script is null
Dumps ToolBook scripts to an ASCII file. Version 0.1 by C.O.
DumpScriptsOf
4s_oldDumpSpec
"ToolBook"
("File
8whose scripts you want
dump:"\
DumpScriptsToFile
buttonUp
buttonUp
name of this book
ToolBook
File name of the book whose scripts you want to dump:
DumpScriptsToFile
s_oldDumpSpec
Dump scripts of...
Whole Book
init
c"Object"
"Dump Scripts To File..."
deinit
DumpScriptsToFile theBook, thePage, fN, options
4s_all, s_bookN,
, s_pg, s_pgBreak, s_dumpfN
Zerror
initDump
_fN,
pgmax
dumpTxt "(All scripts
8)" & CRLF &
s_Book
bkgList
" && p1 && "only)" &
cp1 <= pgMax
(pg)
closeDump
dumped OK
file" &&
:" &&
Wincomplete"
oldTF
default
DumpBitmapList
DumpObjectList "paint"
DumpRoundedRectList
DumpEllipseList
DumpArcList
mwhat
4s_dumpFn,
, s_cursor
7 & ".lst"
DumpTxt
Q &&
<> bk
DumpObjects
, kind
objs
objCount, s_objWithScript
<> "
" &&
= 36
s_objCount
"Cancel
f"&Yes"
"&No"
p > 0
"Hold [S]
stop." &
& ":" &&
p - 1
CR &
(12) -- FormFeed
" &&
&& "("\
& ")" &
on" &&
(Name =" &&
& ")"
p=" &&
& ")" &
_________________________________________________"\
CR &
(12) --
>" &
" &&
& ")" &
__" &
k <>
x, obj
4s__last
o(12) -- don't
z2 formfeeds
a row!
x = "
mpBitmapList
leavebook
DumpRoundedRectList
DumpEllipseList
enterbook
DumpArcList
DumpScriptsToFile
DumpObjectList
DumpObjects
DumpScript
DumpBitmapList
dumpTxt
enterbook
Object
Dump Scripts To File...
Object
leavebook
deinit
DumpScriptsToFile
uinitDump
R]dumpTxt
(All scripts in book)
DumpScript
s_Book
s_Book
DumpScript
R]dumpTxt
(Scripts for page
only)
pgMax
DumpScript
closeDump
Scripts dumped OK to file
Script dump error:
Dump incomplete
default
oldTF
bkgList
pgmax
error
s_all
s_bookN
s_book
s_pgBreak
s_dumpfN
options
thePage
theBook
DumpBitmapList
DumpObjectList
paint
DumpRoundedRectList
DumpObjectList
RoundedRect
DumpEllipseList
DumpObjectList
Ellipse
DumpArcList
DumpObjectList
DumpObjectList
R]DumpTxt
DumpObjects
DumpObjects
default
s_dumpFn
s_book
s_cursor
DumpObjects
R]DumpTxt
field,recordfield,page,background,group
DumpObjects
default
DumpScript
of book
Cancel dump?
of book
Hold [S] to stop.
group
background
R]dumpTxt
R]dumpTxt
=================================================
Script of
R]dumpTxt
R]dumpTxt
R]dumpTxt
(Name =
R]dumpTxt
R]dumpTxt
R]dumpTxt
name =
R]dumpTxt
_________________________________________________
R]dumpTxt
script
R]dumpTxt
R]dumpTxt
R]dumpTxt
<No script>
R]dumpTxt
====================
Script of
R]dumpTxt
(Name =
R]dumpTxt
____________________
R]dumpTxt
script
R]dumpTxt
group
background
DumpScript
default
s_cursor
s_all
s_book
s_pgBreak
s_objCount
s_objWithScript
dumpTxt
script
s_dumpFn
s__last
c"Text"
c"Edit"
c"Page"
c"File"
c"Help"
"&Open..."
"E&xit"
"&Run..."
"&Author"
deinit
initDump theBook, thePage, fN, options
4s_all, s_bookN,
, s_pg, s_pgBreak, s_dumpfN
4s_objCount, s_objWithScript
s_Book
".TBK"
"Cannot find
8" &&
&& ".
cancelled."
s_BookN
"Untitled"
~(".",
".TXT"
file:"
choice
"range
"Whole
scripts
f"This &
"&Cancel"
"List
backgroundd even
their
f"&No"
"&Yes"
"PageNumber
"ToolBook"\
-- there
another instance
B"Insert
Breaks"
"Unable
create
canceled."
default
oldTF
j:sec AMPM"
dumpTxt "
started on" &&
p&& "
)" &&
& CRLF &
s_Pg
"Dumping
" &&
order:
Backgrounds, Pages" &
" &&
&& "
" &&
closeDump
, s_DumpfN
=$" \
completed
)" &&
&& "
}found;"\
&& "had a
initDump
deinit
closeDump
sizeToPage
&File
&Open...
E&xit
&Run...
&Edit
&Author
deinit
initDump
s_Book
Cannot find book
. Dump cancelled.
s_BookN
Untitled
File name for script dump file:
range choice
choice
Whole Book
Dump all scripts for
This &Page
This &Book
&Cancel
Cancel
Cancel
List all pages and backgroundd even if their script is null?
Whole Book
PageNumber of this page
ToolBook
s_BookN
List all
Insert Page Breaks
Unable to create dump file. Dump canceled.
h:min:sec AMPM
R]dumpTxt
Script dump started on
Dumping script(s) of
R]dumpTxt
Dump order: Book, Backgrounds, Pages
Dumping script(s) of page
oldTF
default
s_objCount
s_objWithScript
s_all
s_bookN
s_book
s_pgBreak
s_dumpfN
options
thePage
theBook
closeDump
R]dumpTxt
=====================================
===============
R]dumpTxt
Script dump completed at
objects found;
had a script.
s_objCount
s_objWithScript
s_DumpfN
3x0x0We
init
c"Object"
"Dump Scripts To File..."
deinit
DumpScriptsToFile theBook, thePage, fN, options
4s_all, s_bookN,
, s_pg, s_pgBreak, s_dumpfN
Zerror
initDump
_fN,
pgmax
dumpTxt "(All scripts
8" &&
& ")" & CRLF &
s_Book
bkgList
" &&
&& "only)" &
cp1 <= pgMax
(pg)
closeDump
dumped OK
file" &&
:" &&
Wincomplete"
oldTF
default
DumpBitmapList
DumpObjectList "paint"
DumpRoundedRectList
DumpEllipseList
DumpArcList
mwhat
4s_dumpFn,
, s_cursor
7 & ".lst"
DumpTxt
Q &&
<> bk
DumpObjects
, kind
objs
objCount, s_objWithScript
<> "
" &&
= 36
s_objCount
"Cancel
f"&Yes"
"&No"
p > 0
"Hold [S]
stop." &
& ":" &&
p - 1
CR &
(12) -- FormFeed
" &&
&& "("\
& ")" &
on" &&
(Name =" &&
& ")"
p=" &&
& ")" &
_________________________________________________"\
CR &
(12) --
>" &
" &&
& ")" &
__" &
k <>
x, obj
4s__last
o(12) -- don't
z2 formfeeds
a row!
x = "
mpBitmapList
leavebook
DumpRoundedRectList
DumpEllipseList
enterbook
DumpArcList
DumpScriptsToFile
DumpObjectList
DumpObjects
DumpScript
DumpBitmapList
dumpTxt
enterbook
Object
Dump Scripts To File...
Object
leavebook
deinit
DumpScriptsToFile
uinitDump
R]dumpTxt
(All scripts in book
DumpScript
s_Book
s_Book
DumpScript
R]dumpTxt
s_Book
(Scripts for page
only)
pgMax
DumpScript
closeDump
Scripts dumped OK to file
Script dump error:
Dump incomplete
default
oldTF
bkgList
pgmax
error
s_all
s_bookN
s_book
s_pgBreak
s_dumpfN
options
thePage
theBook
DumpBitmapList
DumpObjectList
paint
DumpRoundedRectList
DumpObjectList
RoundedRect
DumpEllipseList
DumpObjectList
Ellipse
DumpArcList
DumpObjectList
DumpObjectList
R]DumpTxt
DumpObjects
DumpObjects
default
s_dumpFn
s_book
s_cursor
DumpObjects
R]DumpTxt
field,recordfield,page,background,group
DumpObjects
default
DumpScript
of book
Cancel dump?
of book
Hold [S] to stop.
group
background
R]dumpTxt
R]dumpTxt
=================================================
Script of
R]dumpTxt
R]dumpTxt
R]dumpTxt
(Name =
R]dumpTxt
R]dumpTxt
R]dumpTxt
name =
R]dumpTxt
_________________________________________________
R]dumpTxt
script
R]dumpTxt
R]dumpTxt
R]dumpTxt
<No script>
R]dumpTxt
====================
Script of
R]dumpTxt
(Name =
R]dumpTxt
____________________
R]dumpTxt
script
R]dumpTxt
group
background
DumpScript
default
s_cursor
s_all
s_book
s_pgBreak
s_objCount
s_objWithScript
dumpTxt
script
s_dumpFn
s__last