From 51aa713baa7cac8aca05555cdcb0a939c3dd5d03 Mon Sep 17 00:00:00 2001
From: Duncan Foster <dfoster@openoffice.org>
Date: Thu, 29 May 2003 14:31:20 +0000
Subject: #i13211# Fixed Events list.

---
 scripting/workben/bindings/ScriptBinding.xba | 12 ++++++++----
 1 file changed, 8 insertions(+), 4 deletions(-)

(limited to 'scripting/workben')

diff --git a/scripting/workben/bindings/ScriptBinding.xba b/scripting/workben/bindings/ScriptBinding.xba
index 14a04fc07025..34f47230496a 100644
--- a/scripting/workben/bindings/ScriptBinding.xba
+++ b/scripting/workben/bindings/ScriptBinding.xba
@@ -1276,6 +1276,9 @@ sub populateEventList( focusPosition as integer )
 	for n = 0 to ubound( allEventTypes() ) 	
 		&apos; If the line number is 1 then SB macro
 		&apos; more than 1 it is the line number of the script
+		if isApp and n &gt; 12 then
+			exit for
+		endif
 		if isApp then
 			lineNumber = allEventTypesApp( n ).Value
 			scriptName = allEventTypesApp( n ).Name
@@ -1359,10 +1362,11 @@ sub createAllEventTypes()
 	allEventTypes( 11 ).Value = &quot;DeActivate document&quot;
 	allEventTypes( 12 ).Name = &quot;OnPrint&quot;
 	allEventTypes( 12 ).Value = &quot;Print Document&quot;
-	allEventTypes( 13 ).Name = &quot;OnError&quot;
-	allEventTypes( 13 ).Value = &quot;JavaScript Error&quot;
-	allEventTypes( 14 ).Name = &quot;OnNewMail&quot;
-	allEventTypes( 14 ).Value = &quot;Message received&quot;
+	REM The following are document-only events
+	allEventTypes( 13 ).Name = &quot;on-mail-merge&quot;
+	allEventTypes( 13 ).Value = &quot;Print form letters&quot;
+	allEventTypes( 14 ).Name = &quot;page-count-change&quot;
+	allEventTypes( 14 ).Value = &quot;Changing the page count&quot;
 end sub
 
 
-- 
cgit