Add <bascode> in BASIC snipets.

Change-Id: I484036b9c9694a58f7f113b2cf1c04a1f0e2c4dc
Reviewed-on: https://gerrit.libreoffice.org/37552
Reviewed-by: Olivier Hallot <olivier.hallot@edx.srv.br>
Tested-by: Olivier Hallot <olivier.hallot@edx.srv.br>

2 files changed, 25 insertions, 17 deletions

diff --git a/source/text/sbasic/shared/03103800.xhp b/source/text/sbasic/shared/03103800.xhp
index baea53fc49..eb34752254 100644
--- a/source/text/sbasic/shared/03103800.xhp
+++ b/source/text/sbasic/shared/03103800.xhp
@@ -37,15 +37,19 @@
 <paragraph role="paragraph" id="par_id3155341" xml-lang="en-US">Enables an object to be addressed at run-time as a string parameter through the object name.</paragraph>
 </section>
 <paragraph role="paragraph" id="par_id3150669" xml-lang="en-US">For example, the following command:</paragraph>
-<paragraph role="paragraph" id="par_id3148473" xml-lang="en-US">MyObj.Prop1.Command = 5</paragraph>
+<bascode>
+<paragraph role="bascode" id="par_id3148473" xml-lang="en-US">MyObj.Prop1.Command = 5</paragraph>
+</bascode>
 <paragraph role="paragraph" id="par_id3156023" xml-lang="en-US">corresponds to the command block:</paragraph>
-<paragraph role="paragraph" id="par_id3153896" xml-lang="en-US">Dim ObjVar as Object</paragraph>
-<paragraph role="paragraph" id="par_id3154760" xml-lang="en-US">Dim ObjProp as Object</paragraph>
-<paragraph role="paragraph" id="par_id3145069" xml-lang="en-US">ObjName As String = "MyObj"</paragraph>
-<paragraph role="paragraph" id="par_id3154939" xml-lang="en-US">ObjVar = FindObject( ObjName As String )</paragraph>
-<paragraph role="paragraph" id="par_id3150793" xml-lang="en-US">PropName As String = "Prop1"</paragraph>
-<paragraph role="paragraph" id="par_id3154141" xml-lang="en-US">ObjProp = FindPropertyObject( ObjVar, PropName As String )</paragraph>
-<paragraph role="paragraph" id="par_id3156424" xml-lang="en-US">ObjProp.Command = 5</paragraph>
+<bascode>
+<paragraph role="bascode" id="par_id3153896" xml-lang="en-US">Dim ObjVar as Object</paragraph>
+<paragraph role="bascode" id="par_id3154760" xml-lang="en-US">Dim ObjProp as Object</paragraph>
+<paragraph role="bascode" id="par_id3145069" xml-lang="en-US">ObjName As String = "MyObj"</paragraph>
+<paragraph role="bascode" id="par_id3154939" xml-lang="en-US">ObjVar = FindObject( ObjName As String )</paragraph>
+<paragraph role="bascode" id="par_id3150793" xml-lang="en-US">PropName As String = "Prop1"</paragraph>
+<paragraph role="bascode" id="par_id3154141" xml-lang="en-US">ObjProp = FindPropertyObject( ObjVar, PropName As String )</paragraph>
+<paragraph role="bascode" id="par_id3156424" xml-lang="en-US">ObjProp.Command = 5</paragraph>
+</bascode>
 <paragraph role="paragraph" id="par_id3145420" xml-lang="en-US">This allows names to be dynamically created at run-time. For example:</paragraph>
 <paragraph role="paragraph" id="par_id3153104" xml-lang="en-US">"TextEdit1" to TextEdit5" in a loop to create five control names.</paragraph>
 <paragraph role="paragraph" id="par_id3150767" xml-lang="en-US">See also: <link href="text/sbasic/shared/03103900.xhp" name="FindPropertyObject">FindPropertyObject</link></paragraph>
diff --git a/source/text/sbasic/shared/03103900.xhp b/source/text/sbasic/shared/03103900.xhp
index f3fd1d339c..127da9c654 100644
--- a/source/text/sbasic/shared/03103900.xhp
+++ b/source/text/sbasic/shared/03103900.xhp
@@ -37,15 +37,19 @@
 <paragraph role="paragraph" id="par_id3154285" xml-lang="en-US">Enables objects to be addressed at run-time as a string parameter using the object name.</paragraph>
 </section>
 <paragraph role="paragraph" id="par_id3147573" xml-lang="en-US">For instance, the command:</paragraph>
-<paragraph role="paragraph" id="par_id3145610" xml-lang="en-US">MyObj.Prop1.Command = 5</paragraph>
-<paragraph role="paragraph" id="par_id3147265" xml-lang="en-US">corresponds to the following command block:</paragraph>
-<paragraph role="paragraph" id="par_id3153896" xml-lang="en-US">Dim ObjVar as Object</paragraph>
-<paragraph role="paragraph" id="par_id3148664" xml-lang="en-US">Dim ObjProp as Object</paragraph>
-<paragraph role="paragraph" id="par_id3150792" xml-lang="en-US">ObjName As String = "MyObj"</paragraph>
-<paragraph role="paragraph" id="par_id3154365" xml-lang="en-US">ObjVar = FindObject( ObjName As String )</paragraph>
-<paragraph role="paragraph" id="par_id3148453" xml-lang="en-US">PropName As String = "Prop1"</paragraph>
-<paragraph role="paragraph" id="par_id3150449" xml-lang="en-US">ObjProp = FindPropertyObject( ObjVar, PropName As String )</paragraph>
-<paragraph role="paragraph" id="par_id3159152" xml-lang="en-US">ObjProp.Command = 5</paragraph>
+<bascode>
+	<paragraph role="bascode" id="par_id3145610" xml-lang="en-US">MyObj.Prop1.Command = 5</paragraph>
+</bascode>
+<paragraph role="bascode" id="par_id3147265" xml-lang="en-US">corresponds to the following command block:</paragraph>
+<bascode>
+<paragraph role="bascode" id="par_id3153896" xml-lang="en-US">Dim ObjVar as Object</paragraph>
+<paragraph role="bascode" id="par_id3148664" xml-lang="en-US">Dim ObjProp as Object</paragraph>
+<paragraph role="bascode" id="par_id3150792" xml-lang="en-US">ObjName As String = "MyObj"</paragraph>
+<paragraph role="bascode" id="par_id3154365" xml-lang="en-US">ObjVar = FindObject( ObjName As String )</paragraph>
+<paragraph role="bascode" id="par_id3148453" xml-lang="en-US">PropName As String = "Prop1"</paragraph>
+<paragraph role="bascode" id="par_id3150449" xml-lang="en-US">ObjProp = FindPropertyObject( ObjVar, PropName As String )</paragraph>
+<paragraph role="bascode" id="par_id3159152" xml-lang="en-US">ObjProp.Command = 5</paragraph>
+</bascode>
 <paragraph role="paragraph" id="par_id3156214" xml-lang="en-US">To dynamically create Names at run-time, use:</paragraph>
 <paragraph role="paragraph" id="par_id3154686" xml-lang="en-US">"TextEdit1" to TextEdit5" in a loop to create five names.</paragraph>
 <paragraph role="paragraph" id="par_id3150868" xml-lang="en-US">See also: <link href="text/sbasic/shared/03103800.xhp" name="FindObject">FindObject</link></paragraph>