c6a9cd69c2
* NEW: Add examples again. I hope correctly this time. git-svn-id: svn://localhost/gambas/trunk@6726 867c0c6c-44f3-4631-809d-bfa615b0a4ec
28 lines
471 B
Text
28 lines
471 B
Text
' Gambas class file
|
|
|
|
Public Sub _new()
|
|
|
|
Dim sLanguage As String
|
|
Dim sPath As String
|
|
Dim sDest As String
|
|
|
|
sLanguage = Left$(System.Language, 2)
|
|
sPath = "Help_" & sLanguage & ".html"
|
|
sDest = File.SetExt(Temp$("help"), "html")
|
|
Try Copy sPath To sDest
|
|
|
|
If Error Then
|
|
sPath = "Help_en.html"
|
|
sDest = File.SetExt(Temp$("help"), "html")
|
|
Try Copy sPath To sDest
|
|
Endif
|
|
|
|
WebViewHelp.Url = sDest
|
|
|
|
End
|
|
|
|
Public Sub btnClose_Click()
|
|
|
|
Me.Close
|
|
|
|
End
|