[Libreoffice-commits] .: helpcontent2/source

Libreoffice Gerrit user logerrit at kemper.freedesktop.org
Sun Sep 16 10:15:47 PDT 2012


 helpcontent2/source/text/sbasic/shared/03020303.xhp |   56 ++++++++++----------
 helpcontent2/source/text/sbasic/shared/03050200.xhp |   28 +++++-----
 helpcontent2/source/text/sbasic/shared/03090401.xhp |   19 +++---
 helpcontent2/source/text/sbasic/shared/03101110.xhp |   26 +++++----
 helpcontent2/source/text/sbasic/shared/03120402.xhp |   12 ++--
 helpcontent2/source/text/sbasic/shared/03130100.xhp |   12 ++--
 helpcontent2/source/text/sbasic/shared/03130600.xhp |   16 +++--
 helpcontent2/source/text/sbasic/shared/03132100.xhp |    9 +--
 8 files changed, 98 insertions(+), 80 deletions(-)

New commits:
commit f4b8249675346948f0dfc5f6a3495a86465fb744
Author: Andras Timar <atimar at suse.com>
Date:   Sun Sep 16 19:17:05 2012 +0200

    indented Basic source code + enabled syntax highlight for wiki
    
    Change-Id: I4f139d3f3cdfc1492c2d7c0cbdf0a0014879c4a9

diff --git a/helpcontent2/source/text/sbasic/shared/03020303.xhp b/helpcontent2/source/text/sbasic/shared/03020303.xhp
index 9eab076..5d3b09d 100644
--- a/helpcontent2/source/text/sbasic/shared/03020303.xhp
+++ b/helpcontent2/source/text/sbasic/shared/03020303.xhp
@@ -47,7 +47,9 @@
 <paragraph role="paragraph" id="par_id3146794" xml-lang="en-US" l10n="U" oldref="2">Returns the size of an open file in bytes.</paragraph>
 </section>
 <paragraph role="heading" id="hd_id3153380" xml-lang="en-US" level="2" l10n="U" oldref="3">Syntax:</paragraph>
-<paragraph role="code" id="par_id3150359" xml-lang="en-US" l10n="U" oldref="4">Lof (FileNumber)</paragraph>
+<bascode>
+<paragraph role="bascode" id="par_id3150359" xml-lang="en-US" l10n="U" oldref="4">Lof (FileNumber)</paragraph>
+</bascode>
 <paragraph role="heading" id="hd_id3154141" xml-lang="en-US" level="2" l10n="U" oldref="5">Return value:</paragraph>
 <paragraph role="paragraph" id="par_id3147230" xml-lang="en-US" l10n="U" oldref="6">Long</paragraph>
 <paragraph role="heading" id="hd_id3156281" xml-lang="en-US" level="2" l10n="U" oldref="7">Parameters:</paragraph>
@@ -58,30 +60,32 @@
 <embed href="text/sbasic/shared/00000003.xhp#err5"/>
 <embed href="text/sbasic/shared/00000003.xhp#err52"/>
 <paragraph role="heading" id="hd_id3155415" xml-lang="en-US" level="2" l10n="U" oldref="10">Example:</paragraph>
-<paragraph role="code" id="par_id3151074" xml-lang="en-US" l10n="U" oldref="11">Sub ExampleRandomAccess</paragraph>
-<paragraph role="code" id="par_id3145251" xml-lang="en-US" l10n="U" oldref="12">Dim iNumber As Integer</paragraph>
-<paragraph role="code" id="par_id3154730" xml-lang="en-US" l10n="U" oldref="13">Dim sText As Variant REM must be a Variant</paragraph>
-<paragraph role="code" id="par_id3145646" xml-lang="en-US" l10n="U" oldref="14">Dim aFile As String</paragraph>
-<paragraph role="code" id="par_id3153157" xml-lang="en-US" l10n="U" oldref="15">aFile = "c:\data.txt"</paragraph>
-<paragraph role="code" id="par_id3149403" xml-lang="en-US" l10n="U" oldref="17">iNumber = Freefile</paragraph>
-<paragraph role="code" id="par_id3149121" xml-lang="en-US" l10n="U" oldref="18">Open aFile For Random As #iNumber Len=32</paragraph>
-<paragraph role="code" id="par_id3156276" xml-lang="en-US" l10n="U" oldref="19">Seek #iNumber,1 REM Position at start</paragraph>
-<paragraph role="code" id="par_id3148405" xml-lang="en-US" l10n="U" oldref="20">Put #iNumber,, "This is the first line of text" REM Fill with text</paragraph>
-<paragraph role="code" id="par_id3154756" xml-lang="en-US" l10n="U" oldref="21">Put #iNumber,, "This is the second line of text"</paragraph>
-<paragraph role="code" id="par_id3145643" xml-lang="en-US" l10n="U" oldref="22">Put #iNumber,, "This is the third line of text"</paragraph>
-<paragraph role="code" id="par_id3156383" xml-lang="en-US" l10n="U" oldref="23">Seek #iNumber,2</paragraph>
-<paragraph role="code" id="par_id3155333" xml-lang="en-US" l10n="U" oldref="24">Get #iNumber,,sText</paragraph>
-<paragraph role="code" id="par_id3149255" xml-lang="en-US" l10n="U" oldref="25">Print sText</paragraph>
-<paragraph role="code" id="par_id3154702" xml-lang="en-US" l10n="U" oldref="26">Close #iNumber</paragraph>
-<paragraph role="code" id="par_id3153965" xml-lang="en-US" l10n="U" oldref="28">iNumber = Freefile</paragraph>
-<paragraph role="code" id="par_id3163807" xml-lang="en-US" l10n="U" oldref="29">Open aFile For Random As #iNumber Len=32</paragraph>
-<paragraph role="code" id="par_id3155607" xml-lang="en-US" l10n="U" oldref="30">Get #iNumber,2,sText</paragraph>
-<paragraph role="code" id="par_id3150299" xml-lang="en-US" l10n="U" oldref="31">Put #iNumber,,"This is a new line of text"</paragraph>
-<paragraph role="code" id="par_id3147002" xml-lang="en-US" l10n="U" oldref="32">Get #iNumber,1,sText</paragraph>
-<paragraph role="code" id="par_id3149036" xml-lang="en-US" l10n="U" oldref="33">Get #iNumber,2,sText</paragraph>
-<paragraph role="code" id="par_id3166425" xml-lang="en-US" l10n="U" oldref="34">Put #iNumber,20,"This is the text in record 20"</paragraph>
-<paragraph role="code" id="par_id3149817" xml-lang="en-US" l10n="U" oldref="35">Print Lof(#iNumber)</paragraph>
-<paragraph role="code" id="par_id3146811" xml-lang="en-US" l10n="U" oldref="36">Close #iNumber</paragraph>
-<paragraph role="code" id="par_id3154200" xml-lang="en-US" l10n="U" oldref="38">end sub</paragraph>
+<bascode>
+<paragraph role="bascode" localize="false" id="par_id3151074" xml-lang="en-US">Sub ExampleRandomAccess</paragraph>
+<paragraph role="bascode" localize="false" id="par_id3145251" xml-lang="en-US">Dim iNumber As Integer</paragraph>
+<paragraph role="bascode" id="par_id3154730" xml-lang="en-US" l10n="U" oldref="13">Dim sText As Variant REM must be a Variant</paragraph>
+<paragraph role="bascode" localize="false" id="par_id3145646" xml-lang="en-US">Dim aFile As String</paragraph>
+<paragraph role="bascode" localize="false" id="par_id3153157" xml-lang="en-US">    aFile = "c:\data.txt"</paragraph>
+<paragraph role="bascode" localize="false" id="par_id3149403" xml-lang="en-US">    iNumber = Freefile</paragraph>
+<paragraph role="bascode" localize="false" id="par_id3149121" xml-lang="en-US">    Open aFile For Random As #iNumber Len=32</paragraph>
+<paragraph role="bascode" id="par_id3156276" xml-lang="en-US" l10n="U" oldref="19">    Seek #iNumber,1 REM Position at start</paragraph>
+<paragraph role="bascode" id="par_id3148405" xml-lang="en-US" l10n="U" oldref="20">    Put #iNumber,, "This is the first line of text" REM Fill with text</paragraph>
+<paragraph role="bascode" id="par_id3154756" xml-lang="en-US" l10n="U" oldref="21">    Put #iNumber,, "This is the second line of text"</paragraph>
+<paragraph role="bascode" id="par_id3145643" xml-lang="en-US" l10n="U" oldref="22">    Put #iNumber,, "This is the third line of text"</paragraph>
+<paragraph role="bascode" localize="false" id="par_id3156383" xml-lang="en-US">    Seek #iNumber,2</paragraph>
+<paragraph role="bascode" localize="false" id="par_id3155333" xml-lang="en-US">    Get #iNumber,,sText</paragraph>
+<paragraph role="bascode" localize="false" id="par_id3149255" xml-lang="en-US">    Print sText</paragraph>
+<paragraph role="bascode" localize="false" id="par_id3154702" xml-lang="en-US">    Close #iNumber</paragraph>
+<paragraph role="bascode" localize="false" id="par_id3153965" xml-lang="en-US">    iNumber = Freefile</paragraph>
+<paragraph role="bascode" localize="false" id="par_id3163807" xml-lang="en-US">    Open aFile For Random As #iNumber Len=32</paragraph>
+<paragraph role="bascode" localize="false" id="par_id3155607" xml-lang="en-US">    Get #iNumber,2,sText</paragraph>
+<paragraph role="bascode" id="par_id3150299" xml-lang="en-US" l10n="U" oldref="31">    Put #iNumber,,"This is a new line of text"</paragraph>
+<paragraph role="bascode" localize="false" id="par_id3147002" xml-lang="en-US">    Get #iNumber,1,sText</paragraph>
+<paragraph role="bascode" localize="false" id="par_id3149036" xml-lang="en-US">    Get #iNumber,2,sText</paragraph>
+<paragraph role="bascode" id="par_id3166425" xml-lang="en-US" l10n="U" oldref="34">    Put #iNumber,20,"This is the text in record 20"</paragraph>
+<paragraph role="bascode" localize="false" id="par_id3149817" xml-lang="en-US">    Print Lof(#iNumber)</paragraph>
+<paragraph role="bascode" localize="false" id="par_id3146811" xml-lang="en-US">    Close #iNumber</paragraph>
+<paragraph role="bascode" localize="false" id="par_id3154200" xml-lang="en-US">End Sub</paragraph>
+</bascode>
 </body>
 </helpdocument>
diff --git a/helpcontent2/source/text/sbasic/shared/03050200.xhp b/helpcontent2/source/text/sbasic/shared/03050200.xhp
index dbde24b..7a4b90f 100644
--- a/helpcontent2/source/text/sbasic/shared/03050200.xhp
+++ b/helpcontent2/source/text/sbasic/shared/03050200.xhp
@@ -53,18 +53,20 @@
 <paragraph role="heading" id="hd_id3153193" xml-lang="en-US" level="2" l10n="U" oldref="7">Parameters:</paragraph>
 <paragraph role="paragraph" id="par_id3149561" xml-lang="en-US" l10n="U" oldref="8">The Err function is used in error-handling routines to determine the error and the corrective action.</paragraph>
 <paragraph role="heading" id="hd_id3147317" xml-lang="en-US" level="2" l10n="U" oldref="9">Example:</paragraph>
-<paragraph role="paragraph" id="par_id3153727" xml-lang="en-US" l10n="U" oldref="10">sub ExampleError</paragraph>
-<paragraph role="paragraph" id="par_id3147426" xml-lang="en-US" l10n="U" oldref="11">on error goto ErrorHandler REM Set up error handler</paragraph>
-<paragraph role="paragraph" id="par_id3163710" xml-lang="en-US" l10n="U" oldref="12">Dim iVar as Integer</paragraph>
-<paragraph role="paragraph" id="par_id3153093" xml-lang="en-US" l10n="U" oldref="13">Dim sVar As String</paragraph>
-<paragraph role="paragraph" id="par_id3149481" xml-lang="en-US" l10n="U" oldref="14">REM Error occurs due to non-existent file</paragraph>
-<paragraph role="paragraph" id="par_id3153190" xml-lang="en-US" l10n="U" oldref="15">iVar = Freefile</paragraph>
-<paragraph role="paragraph" id="par_id3146120" xml-lang="en-US" l10n="U" oldref="16">Open "\file9879.txt" for Input as #iVar</paragraph>
-<paragraph role="paragraph" id="par_id3155308" xml-lang="en-US" l10n="U" oldref="17">Line Input #iVar, sVar</paragraph>
-<paragraph role="paragraph" id="par_id3153142" xml-lang="en-US" l10n="U" oldref="18">Close #iVar</paragraph>
-<paragraph role="paragraph" id="par_id3149665" xml-lang="en-US" l10n="U" oldref="19">exit sub</paragraph>
-<paragraph role="paragraph" id="par_id3154942" xml-lang="en-US" l10n="U" oldref="20">ErrorHandler:</paragraph>
-<paragraph role="paragraph" id="par_id3145646" xml-lang="en-US" l10n="U" oldref="21">MsgBox "Error " & Err & ": " & Error$ + chr(13) + "At line : " + Erl + chr(13) + Now , 16 ,"an error occurred"</paragraph>
-<paragraph role="paragraph" id="par_id3155418" xml-lang="en-US" l10n="U" oldref="22">end sub</paragraph>
+<bascode>
+<paragraph role="bascode" id="par_id3153727" xml-lang="en-US" localize="false">Sub ExampleError</paragraph>
+<paragraph role="bascode" id="par_id3147426" xml-lang="en-US" oldref="11">On Error Goto ErrorHandler REM Set up error handler</paragraph>
+<paragraph role="bascode" id="par_id3163710" xml-lang="en-US" localize="false">Dim iVar as Integer</paragraph>
+<paragraph role="bascode" id="par_id3153093" xml-lang="en-US" localize="false">Dim sVar As String</paragraph>
+<paragraph role="bascode" id="par_id3149481" xml-lang="en-US" oldref="14">REM Error occurs due to non-existent file</paragraph>
+<paragraph role="bascode" id="par_id3153190" xml-lang="en-US" localize="false">    iVar = Freefile</paragraph>
+<paragraph role="bascode" id="par_id3146120" xml-lang="en-US" localize="false">    Open "\file9879.txt" for Input as #iVar</paragraph>
+<paragraph role="bascode" id="par_id3155308" xml-lang="en-US" localize="false">    Line Input #iVar, sVar</paragraph>
+<paragraph role="bascode" id="par_id3153142" xml-lang="en-US" localize="false">    Close #iVar</paragraph>
+<paragraph role="bascode" id="par_id3149665" xml-lang="en-US" localize="false">Exit Sub</paragraph>
+<paragraph role="bascode" id="par_id3154942" xml-lang="en-US" localize="false">ErrorHandler:</paragraph>
+<paragraph role="bascode" id="par_id3145646" xml-lang="en-US" oldref="21">    MsgBox "Error " & Err & ": " & Error$ + chr(13) + "At line : " + Erl + chr(13) + Now , 16 ,"an error occurred"</paragraph>
+<paragraph role="bascode" id="par_id3155418" xml-lang="en-US" localize="false">End Sub</paragraph>
+</bascode>
 </body>
 </helpdocument>
diff --git a/helpcontent2/source/text/sbasic/shared/03090401.xhp b/helpcontent2/source/text/sbasic/shared/03090401.xhp
index d1e08a6..b05874f 100644
--- a/helpcontent2/source/text/sbasic/shared/03090401.xhp
+++ b/helpcontent2/source/text/sbasic/shared/03090401.xhp
@@ -55,13 +55,16 @@
 <emph>Parameter:</emph> Parameters to pass to the procedure. The type and number of parameters is dependent on the routine that is executing.</paragraph>
 <paragraph role="note" id="par_id3154216" xml-lang="en-US" l10n="U" oldref="8">A keyword is optional when you call a procedure. If a function is executed as an expression, the parameters must be enclosed by brackets in the statement. If a DLL is called, it must first be specified in the <emph>Declare-Statement</emph>.</paragraph>
 <paragraph role="heading" id="hd_id3125865" xml-lang="en-US" level="2" l10n="U" oldref="9">Example:</paragraph>
-<paragraph role="paragraph" id="par_id3159254" xml-lang="en-US" l10n="U" oldref="12">Sub ExampleCall</paragraph>
-<paragraph role="paragraph" id="par_id3161832" xml-lang="en-US" l10n="U" oldref="13">Dim sVar As String</paragraph>
-<paragraph role="paragraph" id="par_id3147317" xml-lang="en-US" l10n="U" oldref="14">sVar = "Office"</paragraph>
-<paragraph role="paragraph" id="par_id3145273" xml-lang="en-US" l10n="U" oldref="15">Call f_callFun sVar</paragraph>
-<paragraph role="paragraph" id="par_id3147435" xml-lang="en-US" l10n="U" oldref="16">end Sub</paragraph>
-<paragraph role="paragraph" id="par_id3155414" xml-lang="en-US" l10n="U" oldref="18">Sub f_callFun (sText as String)</paragraph>
-<paragraph role="paragraph" id="par_id3151112" xml-lang="en-US" l10n="U" oldref="19">Msgbox sText</paragraph>
-<paragraph role="paragraph" id="par_id3148646" xml-lang="en-US" l10n="U" oldref="20">end sub</paragraph>
+<bascode>
+<paragraph role="bascode" id="par_id3159254" xml-lang="en-US" localize="false">Sub ExampleCall</paragraph>
+<paragraph role="bascode" id="par_id3161832" xml-lang="en-US" localize="false">Dim sVar As String</paragraph>
+<paragraph role="bascode" id="par_id3147317" xml-lang="en-US" localize="false"">    sVar = "LibreOffice"</paragraph>
+<paragraph role="bascode" id="par_id3145273" xml-lang="en-US" localize="false">    Call f_callFun sVar</paragraph>
+<paragraph role="bascode" id="par_id3147435" xml-lang="en-US" localize="false">End Sub</paragraph>
+<paragraph role="bascode" id="par_id3147436" xml-lang="en-US" localize="false"></paragraph>
+<paragraph role="bascode" id="par_id3155414" xml-lang="en-US" localize="false">Sub f_callFun (sText as String)</paragraph>
+<paragraph role="bascode" id="par_id3151112" xml-lang="en-US" localize="false">    Msgbox sText</paragraph>
+<paragraph role="bascode" id="par_id3148646" xml-lang="en-US" localize="false">End Sub</paragraph>
+</bascode>
 </body>
 </helpdocument>
diff --git a/helpcontent2/source/text/sbasic/shared/03101110.xhp b/helpcontent2/source/text/sbasic/shared/03101110.xhp
index ac0682c..6c120bd 100644
--- a/helpcontent2/source/text/sbasic/shared/03101110.xhp
+++ b/helpcontent2/source/text/sbasic/shared/03101110.xhp
@@ -58,17 +58,19 @@
 <paragraph role="paragraph" id="par_idN105B0" xml-lang="en-US" l10n="NEW">
 <emph>DefCur:</emph> Currency</paragraph>
 <paragraph role="heading" id="par_idN105B7" xml-lang="en-US" level="2" l10n="NEW">Example:</paragraph>
-<paragraph role="paragraph" id="par_idN105BB" xml-lang="en-US" l10n="NEW">REM Prefix definitions for variable types:</paragraph>
-<paragraph role="paragraph" id="par_idN105BE" xml-lang="en-US" l10n="NEW">DefBool b</paragraph>
-<paragraph role="paragraph" id="par_idN105C1" xml-lang="en-US" l10n="NEW">DefDate t</paragraph>
-<paragraph role="paragraph" id="par_idN105C4" xml-lang="en-US" l10n="NEW">DefDbL d</paragraph>
-<paragraph role="paragraph" id="par_idN105C7" xml-lang="en-US" l10n="NEW">DefInt i</paragraph>
-<paragraph role="paragraph" id="par_idN105CA" xml-lang="en-US" l10n="NEW">DefLng l</paragraph>
-<paragraph role="paragraph" id="par_idN105CD" xml-lang="en-US" l10n="NEW">DefObj o</paragraph>
-<paragraph role="paragraph" id="par_idN105D0" xml-lang="en-US" l10n="NEW">DefVar v</paragraph>
-<paragraph role="paragraph" id="par_idN105D3" xml-lang="en-US" l10n="NEW">DefCur c</paragraph>
-<paragraph role="paragraph" id="par_idN105D6" xml-lang="en-US" l10n="NEW">Sub ExampleDefCur</paragraph>
-<paragraph role="paragraph" id="par_idN105D9" xml-lang="en-US" l10n="NEW">cCur=Currency REM cCur is an implicit currency variable</paragraph>
-<paragraph role="paragraph" id="par_idN105DC" xml-lang="en-US" l10n="NEW">end sub</paragraph>
+<bascode>
+<paragraph role="bascode" id="par_idN105BB" xml-lang="en-US">REM Prefix definitions for variable types:</paragraph>
+<paragraph role="bascode" id="par_idN105BE" xml-lang="en-US" localize="false">DefBool b</paragraph>
+<paragraph role="bascode" id="par_idN105C1" xml-lang="en-US" localize="false">DefDate t</paragraph>
+<paragraph role="bascode" id="par_idN105C4" xml-lang="en-US" localize="false">DefDbL d</paragraph>
+<paragraph role="bascode" id="par_idN105C7" xml-lang="en-US" localize="false">DefInt i</paragraph>
+<paragraph role="bascode" id="par_idN105CA" xml-lang="en-US" localize="false">DefLng l</paragraph>
+<paragraph role="bascode" id="par_idN105CD" xml-lang="en-US" localize="false">DefObj o</paragraph>
+<paragraph role="bascode" id="par_idN105D0" xml-lang="en-US" localize="false">DefVar v</paragraph>
+<paragraph role="bascode" id="par_idN105D3" xml-lang="en-US" localize="false">DefCur c</paragraph>
+<paragraph role="bascode" id="par_idN105D6" xml-lang="en-US" localize="false">Sub ExampleDefCur</paragraph>
+<paragraph role="bascode" id="par_idN105D9" xml-lang="en-US">    cCur=Currency REM cCur is an implicit currency variable</paragraph>
+<paragraph role="bascode" id="par_idN105DC" xml-lang="en-US" localize="false">End Sub</paragraph>
+</bascode>
 </body>
 </helpdocument>
diff --git a/helpcontent2/source/text/sbasic/shared/03120402.xhp b/helpcontent2/source/text/sbasic/shared/03120402.xhp
index d3957d4..988ea73 100644
--- a/helpcontent2/source/text/sbasic/shared/03120402.xhp
+++ b/helpcontent2/source/text/sbasic/shared/03120402.xhp
@@ -56,10 +56,12 @@
 <embed href="text/sbasic/shared/00000003.xhp#errorcode"/>
 <embed href="text/sbasic/shared/00000003.xhp#err5"/>
 <paragraph role="heading" id="hd_id3153360" xml-lang="en-US" level="2" l10n="U" oldref="9">Example:</paragraph>
-<paragraph role="paragraph" id="par_id3150792" xml-lang="en-US" l10n="U" oldref="10">Sub ExampleLen</paragraph>
-<paragraph role="paragraph" id="par_id3151211" xml-lang="en-US" l10n="U" oldref="11">Dim sText as String</paragraph>
-<paragraph role="paragraph" id="par_id3154125" xml-lang="en-US" l10n="U" oldref="12">sText = "Las Vegas"</paragraph>
-<paragraph role="paragraph" id="par_id3156214" xml-lang="en-US" l10n="U" oldref="13">MsgBox Len(sText) REM Returns 9</paragraph>
-<paragraph role="paragraph" id="par_id3125864" xml-lang="en-US" l10n="U" oldref="14">End Sub</paragraph>
+<bascode>
+<paragraph role="bascode" id="par_id3150792" xml-lang="en-US" localize="false">Sub ExampleLen</paragraph>
+<paragraph role="bascode" id="par_id3151211" xml-lang="en-US" localize="false">Dim sText as String</paragraph>
+<paragraph role="bascode" id="par_id3154125" xml-lang="en-US" localize="false">    sText = "Las Vegas"</paragraph>
+<paragraph role="bascode" id="par_id3156214" xml-lang="en-US" oldref="13">    MsgBox Len(sText) REM Returns 9</paragraph>
+<paragraph role="bascode" id="par_id3125864" xml-lang="en-US" localize="false">End Sub</paragraph>
+</bascode>
 </body>
 </helpdocument>
diff --git a/helpcontent2/source/text/sbasic/shared/03130100.xhp b/helpcontent2/source/text/sbasic/shared/03130100.xhp
index e89c6c5..ed8f29d 100644
--- a/helpcontent2/source/text/sbasic/shared/03130100.xhp
+++ b/helpcontent2/source/text/sbasic/shared/03130100.xhp
@@ -51,10 +51,12 @@
 <embed href="text/sbasic/shared/00000003.xhp#errorcode"/>
 <embed href="text/sbasic/shared/00000003.xhp#err5"/>
 <paragraph role="heading" id="hd_id3148538" xml-lang="en-US" level="2" l10n="U" oldref="5">Example:</paragraph>
-<paragraph role="paragraph" id="par_id3149762" xml-lang="en-US" l10n="U" oldref="6">Sub ExampleBeep</paragraph>
-<paragraph role="paragraph" id="par_id3154285" xml-lang="en-US" l10n="U" oldref="7">beep</paragraph>
-<paragraph role="paragraph" id="par_id3143270" xml-lang="en-US" l10n="U" oldref="8">beep</paragraph>
-<paragraph role="paragraph" id="par_id3154142" xml-lang="en-US" l10n="U" oldref="9">beep</paragraph>
-<paragraph role="paragraph" id="par_id3148943" xml-lang="en-US" l10n="U" oldref="10">end sub</paragraph>
+<bascode>
+<paragraph role="bascode" id="par_id3149762" xml-lang="en-US" localize="false">Sub ExampleBeep</paragraph>
+<paragraph role="bascode" id="par_id3154285" xml-lang="en-US" localize="false">    Beep</paragraph>
+<paragraph role="bascode" id="par_id3143270" xml-lang="en-US" localize="false">    Beep</paragraph>
+<paragraph role="bascode" id="par_id3154142" xml-lang="en-US" localize="false">    Beep</paragraph>
+<paragraph role="bascode" id="par_id3148943" xml-lang="en-US" localize="false">End Sub</paragraph>
+</bascode>
 </body>
 </helpdocument>
diff --git a/helpcontent2/source/text/sbasic/shared/03130600.xhp b/helpcontent2/source/text/sbasic/shared/03130600.xhp
index e871a9e..66dd9b7 100644
--- a/helpcontent2/source/text/sbasic/shared/03130600.xhp
+++ b/helpcontent2/source/text/sbasic/shared/03130600.xhp
@@ -54,12 +54,14 @@
 <embed href="text/sbasic/shared/00000003.xhp#errorcode"/>
 <embed href="text/sbasic/shared/00000003.xhp#err5"/>
 <paragraph role="heading" id="hd_id3150541" xml-lang="en-US" level="2" l10n="U" oldref="7">Example:</paragraph>
-<paragraph role="paragraph" id="par_id3154138" xml-lang="en-US" l10n="U" oldref="8">Sub ExampleWait</paragraph>
-<paragraph role="paragraph" id="par_id3154367" xml-lang="en-US" l10n="U" oldref="9">Dim lTick As Long</paragraph>
-<paragraph role="paragraph" id="par_id3154909" xml-lang="en-US" l10n="U" oldref="10">lTick = GetSystemTicks()</paragraph>
-<paragraph role="paragraph" id="par_id3151042" xml-lang="en-US" l10n="U" oldref="11">wait 2000</paragraph>
-<paragraph role="paragraph" id="par_id3154217" xml-lang="en-US" l10n="U" oldref="12">lTick = (GetSystemTicks() - lTick)</paragraph>
-<paragraph role="paragraph" id="par_id3156214" xml-lang="en-US" l10n="U" oldref="13">MsgBox "" & lTick & " Ticks" ,0,"The pause lasted"</paragraph>
-<paragraph role="paragraph" id="par_id3148922" xml-lang="en-US" l10n="U" oldref="14">End Sub</paragraph>
+<bascode>
+<paragraph role="bascode" id="par_id3154138" xml-lang="en-US" localize="false">Sub ExampleWait</paragraph>
+<paragraph role="bascode" id="par_id3154367" xml-lang="en-US" localize="false">Dim lTick As Long</paragraph>
+<paragraph role="bascode" id="par_id3154909" xml-lang="en-US" localize="false">    lTick = GetSystemTicks()</paragraph>
+<paragraph role="bascode" id="par_id3151042" xml-lang="en-US" localize="false">    Wait 2000</paragraph>
+<paragraph role="bascode" id="par_id3154217" xml-lang="en-US" localize="false">    lTick = (GetSystemTicks() - lTick)</paragraph>
+<paragraph role="bascode" id="par_id3156214" xml-lang="en-US" oldref="13">    MsgBox "" & lTick & " Ticks" ,0,"The pause lasted"</paragraph>
+<paragraph role="bascode" id="par_id3148922" xml-lang="en-US" localize="false">End Sub</paragraph>
+</bascode>
 </body>
 </helpdocument>
diff --git a/helpcontent2/source/text/sbasic/shared/03132100.xhp b/helpcontent2/source/text/sbasic/shared/03132100.xhp
index 7f5d32e..e5c892d 100644
--- a/helpcontent2/source/text/sbasic/shared/03132100.xhp
+++ b/helpcontent2/source/text/sbasic/shared/03132100.xhp
@@ -54,8 +54,10 @@
 <paragraph xml-lang="en-US" id="par_id3156152" role="paragraph" l10n="U" oldref="11">4: UNIX</paragraph>
       <paragraph xml-lang="en-US" id="hd_id3148685" role="heading" level="2" l10n="U"
                  oldref="12">Example:</paragraph>
-      <paragraph xml-lang="en-US" id="par_id3149233" role="paragraph" l10n="U" oldref="13">Sub ExampleEnvironment</paragraph>
-      <paragraph xml-lang="en-US" id="par_id3145609" role="paragraph" l10n="U" oldref="14">MsgBox GetGUIType</paragraph>
-      <paragraph xml-lang="en-US" id="par_id3145069" role="paragraph" l10n="U" oldref="15">End Sub</paragraph>
+<bascode>
+      <paragraph xml-lang="en-US" id="par_id3149233" role="bascode" localize="false">Sub ExampleEnvironment</paragraph>
+      <paragraph xml-lang="en-US" id="par_id3145609" role="bascode" localize="false">    MsgBox GetGUIType</paragraph>
+      <paragraph xml-lang="en-US" id="par_id3145069" role="bascode" localize="false">End Sub</paragraph>
+</bascode>
    </body>
-</helpdocument>
\ No newline at end of file
+</helpdocument>


More information about the Libreoffice-commits mailing list