Add MenuItem help

[Georgie Cooper]

I use a development submenu at author level for fast page creation (see
below ...)

add menu "Paste Page" alias "PastePage" at author

add menuitem "Intro Page" alias "PastePage1" to menu "PastePage" at author

add menuitem "Text" alias "PastePage7" to menu "PastePage" at author

add menuitem "Text + HW" alias "PastePage3" to menu "PastePage" at author

add menuitem "Text + HW & Bullets" alias "PastePage5" to menu "PastePage" at
author

add menuitem "Text with bulleted HWs 4" alias "PastePage12" to menu
"PastePage" at author

add menuitem "Ab" alias "PastePage10" to menu "PastePage" at author

add menuitem "aB" alias "PastePage6" to menu "PastePage" at author

add menuitem "aBc Slider" alias "PastePage2" to menu "PastePage" at author

add menuitem "Abc" alias "PastePage11" to menu "PastePage" at author

add menuitem "aBc" alias "PastePage4" to menu "PastePage" at author

add menuitem "abC" alias "PastePage14" to menu "PastePage" at author

add menuitem "Multi Yes/No 3" alias "PastePage16" to menu "PastePage" at
author

add menuitem "Multi Yes/No 4" alias "PastePage15" to menu "PastePage" at
author

add menuitem "Multi Yes/No 5" alias "PastePage8" to menu "PastePage" at
author

add menuitem "Graphic with Hotspots 5" alias "PastePage9" to menu
"PastePage" at author

add menuitem "Summary" alias "PastePage13" to menu "PastePage" at author

-------------

What I want is to have all the "Text Page" items on the same submenu item,
thus

Paste Page > Text Page > Text

Paste Page > Text Page > Text + HW

Paste Page > Text Page > Text + HW & Bullets

Paste Page > Text Page > Text with bulleted HWs

any ideas please ?

TIA

[Stephanie Hicks]

I wanted to do something like this so I decided that I wanted to take
record field information that was automatically created when I imported
a .txt file in toolbook, and then moved the information from these record
field to group text fields at page level, giving me more freedom to move
things around.

In the code below I have taken several different layout options
(arrangements of text boxes) and saved them as groups. Then I auto place
these groups on the page based on text in a particular text field. My next
step is to then take the information from the record fields and paste it
into these "groups". I also have it stepping through my whole book so I
don't have to do it a page at a time. Hope that makes since, hope this
helps.

See code below:

step n from 1 to pageCount of this book
if text of recordField "Frame Type Field" = "layout 3"
get copyObject(group "3. 2 Column Layout" of page "No Del - Layouts", this
page)
text of Field "Txt1_Inst Field" = text of recordField "TXT1_Inst Field"
text of Field "Txt2_WA1 Field" = text of recordField "TXT2_WA1 Field"
end if
if text of recordField "Frame Type Field" = "layout 1"
get copyObject(group "1. 2 row Centered Layout" of page "No Del - Layouts",
this page)
text of Field "Txt1_Inst Field" = text of recordField "TXT1_Inst Field"
text of Field "Txt2_WA1 Field" = text of recordField "TXT2_WA1 Field"
end if
if text of recordField "Frame Type Field" = "layout 4"
get copyObject(group "4. 3 Column Layout" of page "No Del - Layouts", this
page)
text of Field "Txt1_Inst Field" = text of recordField "TXT1_Inst Field"
text of Field "Txt2_WA1 Field" = text of recordField "TXT2_WA1 Field"
text of Field "Txt3_WA2 Field" = text of recordField "TXT3_WA2 Field"
end if
if text of recordField "Frame Type Field" = "layout 5"
get copyObject(group "5. 1 row 1 column w/gaphic" of page "No Del -
Layouts", this page)
text of Field "Txt1_Inst Field" = text of recordField "TXT1_Inst Field"
text of Field "Txt2_WA1 Field" = text of recordField "TXT2_WA1 Field"
end if
if text of recordField "Frame Type Field" = "layout 6"
get copyObject(group "6. 1 Column w/graphic" of page "No Del - Layouts",
this page)
text of Field "Txt1_Inst Field" = text of recordField "TXT1_Inst Field"
end if
if text of recordField "Frame Type Field" = "layout 7"
get copyObject(group "7. Centered 1 row w/graphic" of page "No Del -
Layouts", this page)
text of Field "Txt1_Inst Field" = text of recordField "TXT1_Inst Field"
end if
if text of recordField "Frame Type Field" = "layout 8"
get copyObject(group "8. L shape w/graphic" of page "No Del - Layouts",
this page)
text of Field "Txt1_Inst Field" = text of recordField "TXT1_Inst Field"
text of Field "Txt2_WA1 Field" = text of recordField "TXT2_WA1 Field"
text of Field "Txt3_WA2 Field" = text of recordField "TXT3_WA2 Field"
end if
if text of recordField "Frame Type Field" = "layout 10"
get copyObject(group "10. Left Graphic Right Text" of page "No Del -
Layouts", this page)
text of Field "Txt1_Inst Field" = text of recordField "TXT1_Inst Field"
text of Field "Txt2_WA1 Field" = text of recordField "TXT2_WA1 Field"
text of Field "Txt3_WA2 Field" = text of recordField "TXT3_WA2 Field"
end if
go to next page
end step

end layouts

[Georgie Cooper]

Thanks for that, but that's not what I do with mine.

I have whole pages as Templates with all the actions and objects (thus I
know that the top-left field is always called "TextField1" etc).

I put all these pages at the back of a systembook, then when i'm working
through my if i need (say) an ABC question with C as the correct answer I
select that particular pagetype from the menu and it goes and gets it for me
(our stuff tends to be TextPage, Question, TextPage, TextPage, Drag & Drop,
TextPage etc.) ...

to handle PastePage14
system TempPath,donorFile
import pages 15 to 15 of book donorFile
go to next page
end PastePage14
where TempPath is the current directory and donorFile is the name of the
sysbook.

I've found it's quicker that having zillions of pages in My Objects in the
Catalog

[Stephanie Hicks]

ok, I wasn't sure if that info would help you. I like the idea of storing
things in your system book instead of the current book. I have a few pages
I may do this with.

thanks for the idea.

[Dom Sinclair]

Georgie

Are you essentially asking how do I create nested sub menus?

ie (and assuming the list doesn't mess up the formatting!)

Pages
Text Pages
With Picture
Without Picture
Question Pages
With difficult question
With easy question
Cool Authoring Tools
My fist set of tools

Etc etc

Dom

[Georgie Cooper]

Yep, that's exactly what I'm looking to do. Just didn't have the right words
<expects Dom to say "well you can't do that in Toolbook">

[Georgie Cooper]

let me know if you need an example. I'll willingly send it to you.

[Dom Sinclair]

Georgie

Somewhere I have an example of just that in a system book of mine. I'll
dig it out and send the relevant code to you. Finding it may take a
little while though so it may not be in the next few minutes.

[Georgie Cooper]

That's ok Dom. It's pub time now. Many thanks in advance for your help.

[Dom Sinclair]

Georgie

I have forwarded a system book to you, but have received a couple of
undeliverable mail notifications. If you haven't received it yet
perhaps you could send me an e mail off list with an alternative address
to try.