The script in the button to the right can be used to automatically name any newly created object. Place this script into the script of your book or include it within a system book that you use for authoring. To activate this script, start by creating an object. When you create an object and this script is available, it will add a menu named Auto Name to your Object menu in author mode. When you select the Auto Name menu item, the menu item becomes checked. While this menu item is checked, you will be prompted to name each newly created object, such as buttons, rectangles, stages, and so on. When you uncheck the Auto Name menu item, you no longer will be prompted for a name.
example
autoMenu
Auto Name
autoName
Name of new
Object
Auto Name
Object
autoName
4autoMenu
"Auto Name" alias "autoName" \
c"Object"
menuItemChecked("
1) =
q" &&
l) =
Add auto name menu
Controlling Authoring Capabilities with MenussItem Checkmarkss
CDBSE&File
&Open... Ctrl+O
&Save Ctrl+S
Save &As...
saveas
&Import...
import
&Export...
export
Print Set&up...
printsetup
&Print Pages... Ctrl+P
printpages
Prin&t Report...
printreport
Send &Mail...
sendmail
&Run...
E&xit Alt+F4
&Edit
&Undo Ctrl+Z
Cu&t Ctrl+X
&Copy Ctrl+C
&Paste Ctrl+V
paste
C&lear Del
clear
Select &All Shift+F9
selectall
Select Pa&ge Shift+F12
selectpage
&Size to Page F11
sizetopage
F&ind... F5
Re&place...
replace
Aut&hor F3
author
&Text
&Character... F6
character
&Paragraph... F7
paragraph
&Regular Ctrl+Space
regular
&Bold Ctrl+B
&Italic Ctrl+I
italic
&Underline Ctrl+U
underline
Stri&keout Ctrl+K
strikeout
Superscrip&t/Subscript
superscriptSubscript
&Normal Script
normalscript
Su&bscript Ctrl+L
subscript
Su&perscript Ctrl+Shift+L
superscript
&Show Hotwords F9
showhotwords
&Page
&Next Alt+Right
&Previous Alt+Left
previous
&First Alt+Up
first
&Last Alt+Down
&Back Shift+F2
&History... Ctrl+F2
history
N&ew Page Ctrl+N
newpage
&Help
&Contents F1
contents
Status &Bar F12
statusbar
CDBSAM&File
&Open... Ctrl+O
&Save Ctrl+S
Save &As...
saveas
&Import...
import
&Export...
export
Print Set&up...
printsetup
&Print Pages... Ctrl+P
printpages
Prin&t Report...
printreport
Send &Mail...
sendmail
&Run...
E&xit Alt+F4
&Edit
&Undo Ctrl+Z
Cu&t Ctrl+X
&Copy Ctrl+C
&Paste Ctrl+V
paste
C&lear Del
clear
Select &All Shift+F9
selectall
Select Pa&ge Shift+F12
selectpage
&Size to Page F11
sizetopage
F&ind... F5
Re&place...
replace
Aut&hor F3
author
&Media
Media
Media Test Menu
notifybefore
"0,0"
"0,0"
moved
ssm = sysSuspendMessages
notifyBefore ASYM_Reset
{loc;
buttonClick
rightButtonClick
enterpage
moved
ASYM_Reset
buttonDown
buttonUp
buttonClick
buttonDoubleClick
rightButtonDown
rightButtonUp
rightButtonClick
rightButtonClick
rightButtonDoubleClick
new-4
Music
24mtb01.wav
e\bonanza
%+ %,
%%4+%%%%,%,,4,,,,%,%,,%
%,+ +
%%%%%%+%44+%%,,,8,,,%,%+
%4+ +
%% ++%
%+%%+%%% +%%%%%%%, %
%%%%%
+ %%+ % 4%+%
4 %
%% %%
%%%+%+% %%%%4%% %
% % %+% %+ ++
+%
% %%%
###!#
*;*&)
&9))(
'&*55
()5*(
)9*)*
'5&('
&)).('
H2)&)
))($$
$(*$$(
&*?D$
($95)&)(
'($;'
'()*K25
'(****)
$.**)
$$*&(
$(5('('
$&9)(
')*;)
$$$))
$$**$
$)*$)
)*5$.)
)*9;*).(
$***)**$'
$$*$$
.)5*$
).()*))'
)*))$
(5?.(
#!##!
%
$)))$'
+%
%%,%
+,,
#""!"
%%%% !
%%%%
%%%%%
++ +%
((.$(
$$.).$
'($$$
%% %+8
%% %
+%%%+4%%
$.$))$($$.)$)).($)).$$)(($)$(
).$$(
).$$$((
% %
%
%! %
%% %%%
,,,%
4%4 4
% %%%
% +
+ %
%+% %%C +%,
4%%+%
%%+%%
++,%,
,%%%%
%%4,
%%%,,
,%,+
%%%+%
+%%%,,%,+%%
%%%%%
%,,4,%,4%8,8,%,+% + %%+4%%
%,,%%%%%,,%, %%%+%, %
%+
488,%% ,,,% 4%%, %8%
%,,>C,8+,,, %+%,8,,
% ,>,C>,%+,%
%, ,%% %%%%
%,,%,CC>%%,% +8%%%++
+%,%4,88%,
+% %,%
%%,,%%8,,%
%%>,+488,,
% +%
,>,,% +,4,%%%,4
,,,,,,44%%, ,, %
,%4,%4 ++
+%%48%%,%%%
%%%%%%,,,8%
%%4%%C%,4,,
%%%,%
%,%4
84%, 4%%
%8 %,
,8%,
%%%
4 %+%
% %%%%
(').'
()$$(
B/7/2
.712/
$.0502
./1//
$.0502
$0203
$$*=0/
$$$5=/7
$&$$10//
$)&$&07/
$.&&&)12/0
$&&&$)0</
&)&.&&&2/0
&)&)&$&1102J
&--&&$$)1/03
&&&).$&11/2
B&--&&$$)1/03
&&-&&$$)$/00
&*&*&&&&&$36/=
&&&*$&)&$130/
B**&&&&*&&.1600
**-&-.*&&$&6000
-*&&&&&-&&&&167/
**-&-.&&&$&1000
-*&&&&&-&&&&167/
&&&&&.--&&&1777
&&&&&&&-**&&&607
&&&&&&&&-*&&&2607(
-&-&&&&&&-*&-&106/
-&&&-&-&&-*&&&-066
&---&&*&)&)&--&)1600
E&-&-&&*&)*)*&-))700$
&&&&&**&&*$&&&&&&066
&&&&&-****-&*&&&&176/
*.&$$$*-&-*$.&&&&&2663
'.*$$((
&&&&&-***&-$*&&&&176/
*.&$$$*-&-*$.&&&&&2663
*)&&$$&-*-*&.&&&&&$667
5&$&$$$&&&**)&&&&.$<0000
.$)((
5$$&)$.&-.*))&&&).&1030
*&$&)-&&-)---&&..$$*2366
*&@&&&&&-&.-&&&..$
&&3/67
&-&)&$*-)&)&)&&)$$$$*526A6
$&&-&&&.-&-&..$$&&2/67
&-&)&$*-)&)&)&&)$$$$*526A6
-&$&&&-&&.&)&&&$$$$**2/77F
*&&&&$$$.&$)$$$&)$
*<I0AF
5&&&&$$$$.$.)$$$&)
&*<10AF*
B<*-&.$$$:$
-*<36A
**-&..$$@$
$&<2666
.<-&&.&&$$
&<2367
*<-&-&&$$
:$$$:$-<=36(
--**.-&&&$&$
&2/07
&-&*-&&&&&$$@
$-/=70
$-&&&&&&&&.&$$
)22/3
&-&*-&-&&&$&
$-2=00
$-&&&&&&&&.&$$
)22/3
--&-&&&&&$&.$
$1223
&-&&--&&&&&$:$$$
*-*&-&&-&&&$
$//2/
---*-&)---$$$$$
$3//$
.-*--&)&--&$$
$$$10//
&***&&.*&&$$)$$$100/
.-*-*&&&--&$$:$$
&***&&.*&&$$)$$$100/
***&-..-&$$$$$.133/
.*--&&-).&
$$$133/
M*---&&-)$&$$$$10//
*&*--&&.$:$$
M***---&.&
$$J1//2
.&&<*&$$$$$$133/
&&&<-&$$$$$$/33
&&-*&$$
$1//3N
$&)*-)$$
&//33!
$$&)&.$$
$0/=/
$&)--)$$
:&1//3
$$&)&.$$
$0/=/
$$)&&$.@
&&&&&$.&100/
E-&&-&$.$300/
&&*.$)&000'
&&&-$$&2303
&&&)$&2000
&&&-.$)2303$
&&&)$&2000
&&&$.2030
.$&)2/03
$$&&2/03
:.&//0
&1//0
$-/2/
$$///
;55K*
$E2//
)9*?5
')$($
($($$'
(*.$$
($$$($
Using notify
The script in the field to the right can be used to automatically name any newly created object. Place this script into the script of your book or include it within a system book that you use for authoring. To activate this script, start by creating an object. When you create an object and this script is available, it will add a menu named Auto Name to your Object menu in author mode. When you select the Auto Name menu item, the menu item becomes checked. While this menu item is checked, you will be prompted to name each newly created object, such as buttons, rectangles, stages, and so on. When you uncheck the Auto Name menu item, you no longer will be prompted for a name..
to handle make
forward
system autoMenu
if autoMenu <> true
add menuItem "Auto Name" alias "autoName" \
to menu "Object" position 1 at author
autoMenu = true
end
if menuItemChecked("Auto Name" in menu "Object") = true
ask "Name of new" && object of selection
name of selection = it
end
to handle autoName
if menuItemChecked("Auto Name" in menu "Object") = true
uncheck menuItem "Auto Name" in menu "Object"
else
check menuItem "Auto Name" in menu "Object"
end
ASYM_BeenHere
l) =
d auto name menu
Controlling Authoring Capabilities with MenussItem Checkmarkss
(.txt)