[WIKI]
* 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:
parent
e1aa9e8ce1
commit
bf7e0659bd
Binary file not shown.
Before Width: | Height: | Size: 3.5 KiB After Width: | Height: | Size: 3.4 KiB |
@ -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
|
||||
|
@ -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
|
||||
|
@ -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 |
BIN
app/src/gambas-wiki/icon.png
Normal file
BIN
app/src/gambas-wiki/icon.png
Normal file
Binary file not shown.
After Width: | Height: | Size: 2.2 KiB |
@ -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 |
@ -1,5 +1,4 @@
|
||||
COMPONENT = gb.data
|
||||
EXTRACT_HELP = 1
|
||||
include $(top_srcdir)/component.am
|
||||
|
||||
gblib_LTLIBRARIES = gb.data.la
|
||||
|
Loading…
x
Reference in New Issue
Block a user