Update Ring Notepad - Update Menubar - Tools Menu - Add Form Designer.
@@ -152,6 +152,7 @@ MyApp = New qApp {
subView = addmenu("View")
subProgram = addmenu("Program")
subBrowser = addmenu("Browser")
+ subTools = addmenu("Tools")
subHelp = addmenu("Help")
subFile {
oAction = new qAction(win1) {
@@ -366,6 +367,13 @@ MyApp = New qApp {
ok
next
}
+ subTools {
+ oAction = new qAction(win1) {
+ settext("FormDesigner")
+ setclickevent("pFormDesigner()")
+ }
+ addaction(oAction)
+ }
subHelp {
@@ -1414,3 +1422,14 @@ func pSendProcessData oProcess,oText,oEditbox
cText = oText.text() + windowsnl()
oProcess.write(cText ,len(cText))
oeditbox.insertplaintext( cText)
+
+func pFormDesigner
+ cFormFileName = cCurrentDir + "../formdesigner/formdesigner.ring"
+ if iswindows()
+ oProcessEditbox.setplaintext("")
+ oProcessText.setFocus(0)
+ oProcess = pRunProcess(cCurrentDir+"run2.bat",cFormFileName,"pGetProcessData(oProcess,oProcessEditbox)")
+ else
+ cCode = 'cd $(dirname "'+cFormFileName+'") ; ' + ' ring "' + cFormFileName + '"' + nl
+ system(cCode)
+ ok
