Test commit

kpad/.project

@@ -1,7 +1,7 @@
 # Gambas Project File 3.0
 Title=Kpad
 Startup=FMain
-Version=0.0.7
+Version=0.0.9
 Component=gb.image
 Component=gb.gui.qt
 Component=gb.form
@@ -13,6 +13,7 @@ Component=gb.form.editor
 Component=gb.settings
 Component=gb.term
 Component=gb.form.terminal
+Component=gb.gui.qt.webkit
 Component=gb.pcre
 Component=gb.signal
 Description="Gambas version of kake pad"

kpad/.src/FMain.class

@@ -76,7 +76,8 @@ Private Function CloseDoc() As Boolean
   Endif
 
   txtc = False
-  Me.Close
+  Me.Close ' We let the GUI bits shut down first due to quit not handling that too well as per the notes in the docs.
+  Quit ' When modding the code just close the program window vs file quit as the crash intercepter is trigger, though the docs say Quit is what should be used
 
 End
 
@@ -92,7 +93,7 @@ End
 ' The following might be good to hook for detecting changes in the editor so we can make sure to save
 
 Public Sub TextEditor1_Change()
-  
+  ' Small bug when you open file this sets true based off a blank state so will ask to save even if no actual changes have been made
   SetModify(True)
   
 End
@@ -158,7 +159,7 @@ End
 
 Public Sub Menu9_Click()
 
-  Message.Info("Kpad v6 beta ported to gambas \n Parts may fall off", "Ok")
+  Message.Info("Kpad v6 beta ported to gambas from Perl \n Parts may fall off and I'm not sure why I ported it", "Ok")
 
 End
 
@@ -179,6 +180,7 @@ End
 Public Sub Menu25_Click()
 
   TextEditor1.Clear()
+  txtc = False
   FMain.Title = "Kpad New File"
 
 End
@@ -256,3 +258,10 @@ Public Sub Menu33_Click()
   
 
 End
+
+Public Sub Menu34_Click()
+
+  ' Live web view
+  FWeb.Show
+
+End

kpad/.src/FMain.form

@@ -100,6 +100,9 @@
     { Menu33 Menu
       Text = ("View Terminal")
     }
+    { Menu34 Menu
+      Text = ("Live Web View")
+    }
   }
   { Menu23 Menu
     Text = ("Run")

kpad/.src/FWeb.class

@@ -0,0 +1,2 @@
+' Gambas class file
+

kpad/.src/FWeb.form

@@ -0,0 +1,11 @@
+# Gambas Form File 3.0
+
+{ Form Form
+  MoveScaled(0,0,64,64)
+  Arrangement = Arrange.Fill
+  AutoResize = True
+  { WebView1 WebView
+    MoveScaled(23,24,16,16)
+    Expand = True
+  }
+}