source/text/sbasic/shared/03103800.xhp | 20 ++++++++++++--------
source/text/sbasic/shared/03103900.xhp | 22 +++++++++++++---------
2 files changed, 25 insertions(+), 17 deletions(-)
New commits:
commit eaac057360cb1801c4f8b433411a8c8d1a20a539
Author: Olivier Hallot <olivier.hal...@libreoffice.org>
Date: Fri May 12 14:11:42 2017 -0300
Add <bascode> in BASIC snipets.
Change-Id: I484036b9c9694a58f7f113b2cf1c04a1f0e2c4dc
Reviewed-on: https://gerrit.libreoffice.org/37552
Reviewed-by: Olivier Hallot <olivier.hal...@edx.srv.br>
Tested-by: Olivier Hallot <olivier.hal...@edx.srv.br>
diff --git a/source/text/sbasic/shared/03103800.xhp
b/source/text/sbasic/shared/03103800.xhp
index baea53fc4..eb3475225 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 f3fd1d339..127da9c65 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>
_______________________________________________
Libreoffice-commits mailing list
libreoffice-comm...@lists.freedesktop.org
https://lists.freedesktop.org/mailman/listinfo/libreoffice-commits
