Re: Problem with plpython editing

Thanks to Frank Lupo and Hiroshi Saito for modifying frmSQLInput.frm. Now it works good with writing plpython functions.
However the problem still remains with frmFunction.frm. For this form to work with plpython we need to do the same work. I did try and works.

This is the code. (Hope it doesn't break something else).

frmFunction.frm

Private Sub cmdOK_Click()
.....

If bNew Then
StartMsg "Creating Function..."
Set objNewFunction = frmMain.svr.Databases(szDatabase).Namespaces(szNamespace).Functions.Add(txtProperties(0).Text, szArguments, cboProperties(1).Text, Replace(hbxProperties(1).Text, vbCrLf, vbLf), cboProperties(0).Text, Bin2Bool(chkProperties(0).Value), Bin2Bool(chkProperties(1).Value), hbxProperties(0).Text, cboProperties(3).Text, Bin2Bool(chkProperties(3).Value), Bin2Bool(chkProperties(2).Value))

'Add a new node and update the text on the parent
On Error Resume Next
Set objNode = frmMain.svr.Databases(szDatabase).Namespaces(szNamespace).Functions.Tag
Set objNewFunction.Tag = frmMain.tv.Nodes.Add(objNode.Key, tvwChild, "FNC-" & GetID, txtProperties(0).Text & "(" & szArguments & ")", "function")
objNode.Text = "Functions (" & objNode.Children & ")"
If inIDE Then: On Error GoTo 0: Else: On Error GoTo Err_Handler

Else
StartMsg "Updating Function..."
If hbxProperties(0).Tag = "Y" Then objFunction.Comment = hbxProperties(0).Text
' luigi
If hbxProperties(1).Tag = "Y" Then objFunction.Source = Replace(hbxProperties(1).Text, vbCrLf, vbLf)
End If

Regards
Luigi Lumento