* NEW: Take '*.help' help files into account.

[GB.DATA]
* NEW: Disable the help file generation from sources. It is useless for
  normal users.


git-svn-id: svn://localhost/gambas/trunk@6834 867c0c6c-44f3-4631-809d-bfa615b0a4ec
This commit is contained in:
Benoît Minisini 2015-01-13 20:01:40 +00:00
parent e1aa9e8ce1
commit bf7e0659bd
9 changed files with 34 additions and 4 deletions

Binary file not shown.

Before

Width:  |  Height:  |  Size: 3.5 KiB

After

Width:  |  Height:  |  Size: 3.4 KiB

View File

@ -3,7 +3,7 @@
Title=Gambas Wiki Web Application
Startup=Main
UseHttpServer=1
Icon=.public/logo.png
Icon=icon.png
Version=3.6.90
VersionFile=1
Component=gb.db

View File

@ -612,6 +612,7 @@ Public Sub Load()
aLine = Split(File.Load(sPath), "\n")
If aLine.Count And If aLine[aLine.Max] = "" Then aLine.Remove(aLine.Max)
iLine = 0
While iLine < aLine.Count
@ -725,6 +726,34 @@ Public Sub Load()
Until Not bAgain
sPath = File.SetExt(sPath, "help")
If Exist(sPath) Then
sClass = ""
sSymbol = ""
For Each sLig In Split(File.Load(sPath), "\n")
If Left(sLig) = "#" Then
sClass = Mid$(sLig, 2)
Continue
Endif
If Left(sLig) <> "'" Then
sSymbol = sLig
hSym = Null
Try hSym = Classes[Key &/ sClass].Symbols[sSymbol]
Continue
Endif
If hSym Then
hSym.Help &= Mid$(sLig, 2) & "\n"
Endif
Next
Endif
'PRINT "Initializing controls..."
' If Type = "Form" Then

View File

@ -1111,6 +1111,8 @@ Public Sub GetDefaultPage() As String
Try hSymbol = CComponent.Get(Main.Component)[Main.Class].Symbols[Main.Symbol]
If Not hSymbol Then Return
If hSymbol.Help Then Return hSymbol.Help
sResult = "\n"
sSign = hSymbol.Signature
Do
@ -1125,7 +1127,7 @@ Public Sub GetDefaultPage() As String
Loop
If hSymbol.Help Then sResult = Trim(sResult) & "\n" & hSymbol.Help
'If hSymbol.Help Then sResult = Trim(sResult) & "\n" & hSymbol.Help
Return sResult

Binary file not shown.

Before

Width:  |  Height:  |  Size: 3.0 KiB

Binary file not shown.

After

Width:  |  Height:  |  Size: 2.2 KiB

View File

@ -82,7 +82,7 @@ SearchComment=False
SearchString=True
[OpenFile]
Active=4
Active=7
File[1]=".src/MMain.module:336.45"
File[2]=".src/MServerPage.module:3.0"
File[3]=".src/CComponent.class:38.0"

Binary file not shown.

Before

Width:  |  Height:  |  Size: 6.1 KiB

After

Width:  |  Height:  |  Size: 3.2 KiB

View File

@ -1,5 +1,4 @@
COMPONENT = gb.data
EXTRACT_HELP = 1
include $(top_srcdir)/component.am
gblib_LTLIBRARIES = gb.data.la