From 78dc9c1d059b48ad79620f0cc536466e701a042d Mon Sep 17 00:00:00 2001
From: Alain Romedenne <LibreOfficiant@sfr.fr>
Date: Mon, 21 Sep 2020 16:04:09 +0200
Subject: tdf#131416 Basic Syntax Diagrams for Defxxx statements

- Basic language ref . toc additions
- Letter range option addition
- DefBool-based refactoring

Change-Id: I5744c63e9c21ad5ff2801cd03a119fd2c747fef3
Reviewed-on: https://gerrit.libreoffice.org/c/help/+/103056
Tested-by: Jenkins
Tested-by: Olivier Hallot <olivier.hallot@libreoffice.org>
Reviewed-by: Olivier Hallot <olivier.hallot@libreoffice.org>
---
 source/text/sbasic/shared/03101700.xhp | 10 +++++++---
 1 file changed, 7 insertions(+), 3 deletions(-)

(limited to 'source/text/sbasic/shared/03101700.xhp')

diff --git a/source/text/sbasic/shared/03101700.xhp b/source/text/sbasic/shared/03101700.xhp
index 42b09fc9f9..db099499cc 100644
--- a/source/text/sbasic/shared/03101700.xhp
+++ b/source/text/sbasic/shared/03101700.xhp
@@ -32,14 +32,18 @@
 <section id="defobj">
 <bookmark xml-lang="en-US" branch="index" id="bm_id3149811"><bookmark_value>DefObj statement</bookmark_value>
 </bookmark>
-<paragraph role="heading" id="hd_id3149811" xml-lang="en-US" level="1"><link href="text/sbasic/shared/03101700.xhp" name="DefObj Statement">DefObj Statement</link></paragraph>
+<h1 id="hd_id3149811"><link href="text/sbasic/shared/03101700.xhp" name="DefObj Statement">DefObj Statement</link></h1>
 <paragraph role="paragraph" id="par_id3147573" xml-lang="en-US">Sets the default variable type, according to a letter range, if no type-declaration character or keyword is specified.</paragraph>
 </section>
 
 <embed href="text/sbasic/shared/03101100.xhp#PrefixDefCommon"/>
-<paragraph role="paragraph" id="par_id3150769" xml-lang="en-US">
-<emph>DefObj:</emph> Object</paragraph>
 
 <embed href="text/sbasic/shared/03101100.xhp#ExamplePrefixDefCommon"/>
+<bascode>
+  <paragraph id="par_idm871792224" role="bascode" localize="false">Sub DefObj_example</paragraph>
+  <paragraph id="par_id3255273" role="bascode" xml-lang="en-US">    Print Typename(properties), VarType(ordinal), IsNull(unique), IsObject(org)' Result is: Object 9 True False</paragraph>
+  <paragraph id="par_idm871789232" role="bascode" localize="false">End Sub</paragraph>
+</bascode>
+
 </body>
 </helpdocument>
-- 
cgit