Commit 2b66c080 authored by Benoît Minisini's avatar Benoît Minisini
Browse files

Help browser: Hide the print button, as printing is not yet implemented in the...

Help browser: Hide the print button, as printing is not yet implemented in the new Qt/GTK+ WebView controls.

[DEVELOPMENT ENVIRONMENT]
* BUG: Fix some tips rich text syntax.
* BUG: Help browser: Hide the print button, as printing is not yet implemented in the new Qt/GTK+ WebView controls.
parent 1943dbfc
Pipeline #343263248 passed with stage
in 24 minutes and 20 seconds
......@@ -31,7 +31,7 @@ Component=gb.signal
Description="Integrated Development Environment for Gambas"
Authors="Benoît Minisini\nFabien Bodard\nCharlie Reinl\nJosé Luis Redrejo\nRobert Rowe\nTobias Boege"
Arguments=[["-L"],["-t","/home/benoit/gambas/git/master/app/src/gambas3"],["--help"]]
Environment="GB_GUI=gb.gtk3\n GTK_DEBUG=interactive\nGB_NO_JIT=1"
Environment="GB_GUI=gb.qt5\n GTK_DEBUG=interactive\nGB_NO_JIT=1"
TabSize=2
Translate=1
Language=en
......
......@@ -297,10 +297,12 @@ End
Public Sub btnPrint_Click()
Printer1.OutputFile = "~/print.pdf"
$bPrint = False
If Printer1.Configure() Then Return
webHelp.Current.Print(Printer1)
' Printer1.OutputFile = "~/print.pdf"
' $bPrint = False
' If Printer1.Configure() Then Return
' webHelp.Current.Print(Printer1)
webHelp.ExecJavascript("window.print();")
End
......
......@@ -73,11 +73,12 @@
#Translate = False
ToolTip = "Gambas web site"
AutoResize = True
Text = "http://gambas.sourceforge.net"
Text = "Gambas web site"
Picture = Picture["icon:/small/gambas"]
}
{ btnPrint ToolButton
MoveScaled(84,0,8,4)
Visible = False
AutoResize = True
Text = ("Print")
Picture = Picture["icon:/small/print"]
......
......@@ -9,7 +9,7 @@ Static Public Sub _init()
Dim hFic As File
Dim sLig As String
hFic = Open "tips/tips.en"
hFic = Open "tips/tips.en.txt"
While Not Eof(hFic)
Line Input #hFic, sLig
......@@ -61,7 +61,7 @@ Private Function GetNextTip(Optional bPrev As Boolean) As String
iPos = RInStr(sLang, ".")
If iPos Then sLang = Left(sLang, iPos - 1)
sFile = "tips/tips." & sLang
sFile = "tips/tips." & sLang & ".txt"
If Not Exist(sFile) Then
iPos = InStr(sLang, "_")
If iPos Then
......@@ -70,13 +70,13 @@ Private Function GetNextTip(Optional bPrev As Boolean) As String
Endif
Endif
If Not Exist(sFile) Then
sFile = "tips/tips.en"
sFile = "tips/tips.en.txt"
Endif
sTip = File.Load(sFile)
iPos = InStr(sTip, "[" & $aOrder[$iTip - 1] & "]")
If iPos = 0 Then
sTip = File.Load("tips/tips.en")
sTip = File.Load("tips/tips.en.txt")
Endif
iPos = InStr(sTip, "[" & $aOrder[$iTip - 1] & "]")
If iPos = 0 Then Return
......
......@@ -561,8 +561,8 @@ where <tt>&lt;MyApplication&gt;</tt> is the name of your project.
<h3>Two Types Of Comments</h3>
<pre>' Normal comment</pre>
<b><pre>'' Bold comment</pre></b>
<tt>' Normal comment</tt><br>
<b><tt>'' Bold comment</tt></b>
<p>Bold comments are used for documenting your code.</p>
......
......@@ -571,8 +571,8 @@ où <tt>&lt;MonApplication&gt;</tt> est le nom de votre projet.
<h3>Deux types de commentaires</h3>
<pre>' Commentaire normal</pre>
<b><pre>'' Commentaire en gras</pre></b>
<tt>' Commentaire normal</tt><br>
<b><tt>'' Commentaire en gras</tt></b>
<p>Les commentaires en gras sont utilisés pour documenter votre code.
......@@ -586,7 +586,7 @@ locale de type <b>String</b> est insérée automatiquement, et vous pouvez saisi
de la variable immédiatement.
<p>Les fragments code sont intégralement configurables depuis la boîte de dialogue des
options globales de l'environnement de développement.
options globales de l'environnement de développement.</p>
[END]
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment