From ff39701b0e841035089929ab7811c7431ab9b39b Mon Sep 17 00:00:00 2001 From: Andras Timar <atimar@suse.com> Date: Thu, 15 Nov 2012 11:10:24 +0100 Subject: format Basic code examples --- source/text/sbasic/shared/03103400.xhp | 16 ++++++++++------ 1 file changed, 10 insertions(+), 6 deletions(-) (limited to 'source/text/sbasic/shared/03103400.xhp') diff --git a/source/text/sbasic/shared/03103400.xhp b/source/text/sbasic/shared/03103400.xhp index b73e28bdd2..3abfc5874e 100644 --- a/source/text/sbasic/shared/03103400.xhp +++ b/source/text/sbasic/shared/03103400.xhp @@ -47,12 +47,16 @@ <paragraph role="paragraph" id="par_id3150669" xml-lang="en-US" l10n="U" oldref="2">Dimensions a variable or an array at the module level (that is, not within a subroutine or function), so that the variable and the array are valid in all libraries and modules.</paragraph> </section> <paragraph role="heading" id="hd_id3150772" xml-lang="en-US" level="2" l10n="U" oldref="3">Syntax:</paragraph> -<paragraph role="paragraph" id="par_id3155341" xml-lang="en-US" l10n="U" oldref="4">Public VarName[(start To end)] [As VarType][, VarName2[(start To end)] [As VarType][,...]]</paragraph> +<bascode> +<paragraph role="bascode" id="par_id3155341" xml-lang="en-US" oldref="4">Public VarName[(start To end)] [As VarType][, VarName2[(start To end)] [As VarType][,...]]</paragraph> +</bascode> <paragraph role="heading" id="hd_id3145315" xml-lang="en-US" level="2" l10n="U" oldref="5">Example:</paragraph> -<paragraph role="paragraph" id="par_id3156024" xml-lang="en-US" l10n="U" oldref="6">Public iPublicVar As Integer</paragraph> -<paragraph role="paragraph" id="par_id3153896" xml-lang="en-US" l10n="U" oldref="8">Sub ExamplePublic</paragraph> -<paragraph role="paragraph" id="par_id3149656" xml-lang="en-US" l10n="U" oldref="9">iPublicVar = iPublicVar + 1</paragraph> -<paragraph role="paragraph" id="par_id3150359" xml-lang="en-US" l10n="U" oldref="10">MsgBox iPublicVar</paragraph> -<paragraph role="paragraph" id="par_id3154365" xml-lang="en-US" l10n="U" oldref="11">End sub</paragraph> +<bascode> +<paragraph role="bascode" localize="false" xml-lang="en-US">Public iPublicVar As Integer</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US">Sub ExamplePublic</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US"> iPublicVar = iPublicVar + 1</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US"> MsgBox iPublicVar</paragraph> +<paragraph role="bascode" localize="false" xml-lang="en-US">End Sub</paragraph> +</bascode> </body> </helpdocument> -- cgit