c6a9cd69c2
* NEW: Add examples again. I hope correctly this time. git-svn-id: svn://localhost/gambas/trunk@6726 867c0c6c-44f3-4631-809d-bfa615b0a4ec
47 lines
835 B
Text
47 lines
835 B
Text
' Gambas class file
|
|
|
|
Private Sub _PrintTitle()
|
|
|
|
If Main.Path Then
|
|
Print Html(Main.Path);
|
|
Else
|
|
Print "/";
|
|
Endif
|
|
|
|
End
|
|
|
|
Private Sub _PrintPage()
|
|
|
|
Dim sPath As String
|
|
|
|
sPath = Main.GetPagePath()
|
|
|
|
If Main.Edit Then
|
|
If Exist(sPath) Then Print Html(File.Load(sPath));
|
|
Return
|
|
Endif
|
|
|
|
If Not Main.Exist Then
|
|
Print "<div class=\"unknown\">This page does not exist."
|
|
If Session.Id Then Print "<p>Click on the <b>Create</b> button to create it!"
|
|
Print "</div>"
|
|
Return
|
|
Endif
|
|
|
|
If Main.Image Then
|
|
Print "<img src=\"" & Application.Root &/ Main.Path & "?show\" />";
|
|
Else
|
|
Print WikiMarkdown.ToHTML(File.Load(sPath));
|
|
Endif
|
|
|
|
End
|
|
|
|
Private Sub _PrintParent()
|
|
|
|
Dim sPath As String
|
|
|
|
sPath = Request.Path
|
|
If sPath Then sPath = File.Dir(sPath)
|
|
Print Application.Root &/ sPath;
|
|
|
|
End
|