diff --git a/.gitattributes b/.gitattributes old mode 100644 new mode 100755 diff --git a/Features b/Features old mode 100644 new mode 100755 diff --git a/LICENSE b/LICENSE old mode 100644 new mode 100755 diff --git a/README.md b/README.md old mode 100644 new mode 100755 diff --git a/kpad/.directory b/kpad/.directory old mode 100644 new mode 100755 diff --git a/kpad/.gitignore b/kpad/.gitignore old mode 100644 new mode 100755 diff --git a/kpad/.icon.png b/kpad/.icon.png old mode 100644 new mode 100755 index 4fc1310..66ed699 Binary files a/kpad/.icon.png and b/kpad/.icon.png differ diff --git a/kpad/.project b/kpad/.project old mode 100644 new mode 100755 index 65ea3b7..1f46bee --- a/kpad/.project +++ b/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" diff --git a/kpad/.src/FMain.class b/kpad/.src/FMain.class index 1ec636c..84bc0b1 100644 --- a/kpad/.src/FMain.class +++ b/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 diff --git a/kpad/.src/FMain.form b/kpad/.src/FMain.form old mode 100644 new mode 100755 index 45f8601..e2a4552 --- a/kpad/.src/FMain.form +++ b/kpad/.src/FMain.form @@ -100,6 +100,9 @@ { Menu33 Menu Text = ("View Terminal") } + { Menu34 Menu + Text = ("Live Web View") + } } { Menu23 Menu Text = ("Run") diff --git a/kpad/.src/FTerm.class b/kpad/.src/FTerm.class old mode 100644 new mode 100755 diff --git a/kpad/.src/FTerm.form b/kpad/.src/FTerm.form old mode 100644 new mode 100755 diff --git a/kpad/.src/FWeb.class b/kpad/.src/FWeb.class new file mode 100755 index 0000000..0a5fa73 --- /dev/null +++ b/kpad/.src/FWeb.class @@ -0,0 +1,2 @@ +' Gambas class file + diff --git a/kpad/.src/FWeb.form b/kpad/.src/FWeb.form new file mode 100755 index 0000000..a79813c --- /dev/null +++ b/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 + } +} diff --git a/kpad/.src/Find.class b/kpad/.src/Find.class old mode 100644 new mode 100755 diff --git a/kpad/.src/Find.form b/kpad/.src/Find.form old mode 100644 new mode 100755 diff --git a/kpad/.src/Global.class b/kpad/.src/Global.class old mode 100644 new mode 100755 diff --git a/kpad/.src/Replace.class b/kpad/.src/Replace.class old mode 100644 new mode 100755 diff --git a/kpad/.src/Replace.form b/kpad/.src/Replace.form old mode 100644 new mode 100755