controls/VariablePanel.py
author laurent
Wed, 14 Dec 2011 15:18:32 +0100
changeset 605 279c16d017f3
parent 604 5b42b4401e6b
child 606 d65122c61eaf
permissions -rw-r--r--
Adding support for loading specific POUs library in LPCBeremiz
566
6014ef82a98a Adding support for searching text or regular expression in whole project
laurent
parents: 564
diff changeset
     1
#!/usr/bin/env python
418
a06221a0930b split the variable editor panel into its own file
b.taylor@willowglen.ca
parents:
diff changeset
     2
# -*- coding: utf-8 -*-
a06221a0930b split the variable editor panel into its own file
b.taylor@willowglen.ca
parents:
diff changeset
     3
a06221a0930b split the variable editor panel into its own file
b.taylor@willowglen.ca
parents:
diff changeset
     4
#This file is part of PLCOpenEditor, a library implementing an IEC 61131-3 editor
a06221a0930b split the variable editor panel into its own file
b.taylor@willowglen.ca
parents:
diff changeset
     5
#based on the plcopen standard. 
a06221a0930b split the variable editor panel into its own file
b.taylor@willowglen.ca
parents:
diff changeset
     6
#
a06221a0930b split the variable editor panel into its own file
b.taylor@willowglen.ca
parents:
diff changeset
     7
#Copyright (C) 2007: Edouard TISSERANT and Laurent BESSARD
a06221a0930b split the variable editor panel into its own file
b.taylor@willowglen.ca
parents:
diff changeset
     8
#
a06221a0930b split the variable editor panel into its own file
b.taylor@willowglen.ca
parents:
diff changeset
     9
#See COPYING file for copyrights details.
a06221a0930b split the variable editor panel into its own file
b.taylor@willowglen.ca
parents:
diff changeset
    10
#
a06221a0930b split the variable editor panel into its own file
b.taylor@willowglen.ca
parents:
diff changeset
    11
#This library is free software; you can redistribute it and/or
a06221a0930b split the variable editor panel into its own file
b.taylor@willowglen.ca
parents:
diff changeset
    12
#modify it under the terms of the GNU General Public
a06221a0930b split the variable editor panel into its own file
b.taylor@willowglen.ca
parents:
diff changeset
    13
#License as published by the Free Software Foundation; either
a06221a0930b split the variable editor panel into its own file
b.taylor@willowglen.ca
parents:
diff changeset
    14
#version 2.1 of the License, or (at your option) any later version.
a06221a0930b split the variable editor panel into its own file
b.taylor@willowglen.ca
parents:
diff changeset
    15
#
a06221a0930b split the variable editor panel into its own file
b.taylor@willowglen.ca
parents:
diff changeset
    16
#This library is distributed in the hope that it will be useful,
a06221a0930b split the variable editor panel into its own file
b.taylor@willowglen.ca
parents:
diff changeset
    17
#but WITHOUT ANY WARRANTY; without even the implied warranty of
a06221a0930b split the variable editor panel into its own file
b.taylor@willowglen.ca
parents:
diff changeset
    18
#MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
a06221a0930b split the variable editor panel into its own file
b.taylor@willowglen.ca
parents:
diff changeset
    19
#General Public License for more details.
a06221a0930b split the variable editor panel into its own file
b.taylor@willowglen.ca
parents:
diff changeset
    20
#
a06221a0930b split the variable editor panel into its own file
b.taylor@willowglen.ca
parents:
diff changeset
    21
#You should have received a copy of the GNU General Public
a06221a0930b split the variable editor panel into its own file
b.taylor@willowglen.ca
parents:
diff changeset
    22
#License along with this library; if not, write to the Free Software
a06221a0930b split the variable editor panel into its own file
b.taylor@willowglen.ca
parents:
diff changeset
    23
#Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
a06221a0930b split the variable editor panel into its own file
b.taylor@willowglen.ca
parents:
diff changeset
    24
436
f3bb091f803f Fix BrowseVariableDialog to be used in PLCOpenEditor without Beremiz plugins
laurent
parents: 431
diff changeset
    25
import os
418
a06221a0930b split the variable editor panel into its own file
b.taylor@willowglen.ca
parents:
diff changeset
    26
import wx, wx.grid
a06221a0930b split the variable editor panel into its own file
b.taylor@willowglen.ca
parents:
diff changeset
    27
580
ad996deb920e Fix bug with utf-8 string value in VariablePanel
laurent
parents: 577
diff changeset
    28
from types import TupleType, StringType, UnicodeType
419
8f97ed01a6a6 VariablePanel.py also depends on types.TupleType
b.taylor@willowglen.ca
parents: 418
diff changeset
    29
418
a06221a0930b split the variable editor panel into its own file
b.taylor@willowglen.ca
parents:
diff changeset
    30
from plcopen.structures import LOCATIONDATATYPES, TestIdentifier, IEC_KEYWORDS
566
6014ef82a98a Adding support for searching text or regular expression in whole project
laurent
parents: 564
diff changeset
    31
from graphics.GraphicCommons import REFRESH_HIGHLIGHT_PERIOD
591
4d6719c51f05 Fixing bug that prevent to define a directly declared array type for a variable in VariablePanel
laurent
parents: 586
diff changeset
    32
from dialogs.ArrayTypeDialog import ArrayTypeDialog
586
9aa96a36cf33 Moving variable panel from bottom notebook panel to POU editor panel
laurent
parents: 580
diff changeset
    33
from CustomGrid import CustomGrid
604
5b42b4401e6b Adding support for unifying grid table control elements
laurent
parents: 600
diff changeset
    34
from CustomTable import CustomTable
586
9aa96a36cf33 Moving variable panel from bottom notebook panel to POU editor panel
laurent
parents: 580
diff changeset
    35
from LocationCellEditor import LocationCellEditor
9aa96a36cf33 Moving variable panel from bottom notebook panel to POU editor panel
laurent
parents: 580
diff changeset
    36
431
c1c92d068ac5 Changes merged
'Laurent Bessard <laurent.bessard@lolitech.fr>'
parents: 427
diff changeset
    37
# Compatibility function for wx versions < 2.6
c1c92d068ac5 Changes merged
'Laurent Bessard <laurent.bessard@lolitech.fr>'
parents: 427
diff changeset
    38
def AppendMenu(parent, help, id, kind, text):
c1c92d068ac5 Changes merged
'Laurent Bessard <laurent.bessard@lolitech.fr>'
parents: 427
diff changeset
    39
    if wx.VERSION >= (2, 6, 0):
c1c92d068ac5 Changes merged
'Laurent Bessard <laurent.bessard@lolitech.fr>'
parents: 427
diff changeset
    40
        parent.Append(help=help, id=id, kind=kind, text=text)
c1c92d068ac5 Changes merged
'Laurent Bessard <laurent.bessard@lolitech.fr>'
parents: 427
diff changeset
    41
    else:
c1c92d068ac5 Changes merged
'Laurent Bessard <laurent.bessard@lolitech.fr>'
parents: 427
diff changeset
    42
        parent.Append(helpString=help, id=id, kind=kind, item=text)
c1c92d068ac5 Changes merged
'Laurent Bessard <laurent.bessard@lolitech.fr>'
parents: 427
diff changeset
    43
c1c92d068ac5 Changes merged
'Laurent Bessard <laurent.bessard@lolitech.fr>'
parents: 427
diff changeset
    44
[TITLE, TOOLBAR, FILEMENU, EDITMENU, DISPLAYMENU, TYPESTREE, 
c1c92d068ac5 Changes merged
'Laurent Bessard <laurent.bessard@lolitech.fr>'
parents: 427
diff changeset
    45
 INSTANCESTREE, LIBRARYTREE, SCALING
c1c92d068ac5 Changes merged
'Laurent Bessard <laurent.bessard@lolitech.fr>'
parents: 427
diff changeset
    46
] = range(9)
418
a06221a0930b split the variable editor panel into its own file
b.taylor@willowglen.ca
parents:
diff changeset
    47
a06221a0930b split the variable editor panel into its own file
b.taylor@willowglen.ca
parents:
diff changeset
    48
#-------------------------------------------------------------------------------
a06221a0930b split the variable editor panel into its own file
b.taylor@willowglen.ca
parents:
diff changeset
    49
#                            Variables Editor Panel
a06221a0930b split the variable editor panel into its own file
b.taylor@willowglen.ca
parents:
diff changeset
    50
#-------------------------------------------------------------------------------
a06221a0930b split the variable editor panel into its own file
b.taylor@willowglen.ca
parents:
diff changeset
    51
a06221a0930b split the variable editor panel into its own file
b.taylor@willowglen.ca
parents:
diff changeset
    52
def GetVariableTableColnames(location):
a06221a0930b split the variable editor panel into its own file
b.taylor@willowglen.ca
parents:
diff changeset
    53
    _ = lambda x : x
a06221a0930b split the variable editor panel into its own file
b.taylor@willowglen.ca
parents:
diff changeset
    54
    if location:
483
779a519f78f2 Replace Retain and Constant column in VariablePanel by Option and add the option Non-Retain
laurent
parents: 449
diff changeset
    55
    	return ["#", _("Name"), _("Class"), _("Type"), _("Location"), _("Initial Value"), _("Option"), _("Documentation")]
779a519f78f2 Replace Retain and Constant column in VariablePanel by Option and add the option Non-Retain
laurent
parents: 449
diff changeset
    56
    return ["#", _("Name"), _("Class"), _("Type"), _("Initial Value"), _("Option"), _("Documentation")]
779a519f78f2 Replace Retain and Constant column in VariablePanel by Option and add the option Non-Retain
laurent
parents: 449
diff changeset
    57
484
acef952101a5 Adding support for excluding option when not available according to IEC 61131 standard
laurent
parents: 483
diff changeset
    58
def GetOptions(constant=True, retain=True, non_retain=True):
418
a06221a0930b split the variable editor panel into its own file
b.taylor@willowglen.ca
parents:
diff changeset
    59
    _ = lambda x : x
484
acef952101a5 Adding support for excluding option when not available according to IEC 61131 standard
laurent
parents: 483
diff changeset
    60
    options = [""]
acef952101a5 Adding support for excluding option when not available according to IEC 61131 standard
laurent
parents: 483
diff changeset
    61
    if constant:
acef952101a5 Adding support for excluding option when not available according to IEC 61131 standard
laurent
parents: 483
diff changeset
    62
        options.append(_("Constant"))
acef952101a5 Adding support for excluding option when not available according to IEC 61131 standard
laurent
parents: 483
diff changeset
    63
    if retain:
acef952101a5 Adding support for excluding option when not available according to IEC 61131 standard
laurent
parents: 483
diff changeset
    64
        options.append(_("Retain"))
acef952101a5 Adding support for excluding option when not available according to IEC 61131 standard
laurent
parents: 483
diff changeset
    65
    if non_retain:
acef952101a5 Adding support for excluding option when not available according to IEC 61131 standard
laurent
parents: 483
diff changeset
    66
        options.append(_("Non-Retain"))
acef952101a5 Adding support for excluding option when not available according to IEC 61131 standard
laurent
parents: 483
diff changeset
    67
    return options
483
779a519f78f2 Replace Retain and Constant column in VariablePanel by Option and add the option Non-Retain
laurent
parents: 449
diff changeset
    68
OPTIONS_DICT = dict([(_(option), option) for option in GetOptions()])
418
a06221a0930b split the variable editor panel into its own file
b.taylor@willowglen.ca
parents:
diff changeset
    69
a06221a0930b split the variable editor panel into its own file
b.taylor@willowglen.ca
parents:
diff changeset
    70
def GetFilterChoiceTransfer():
a06221a0930b split the variable editor panel into its own file
b.taylor@willowglen.ca
parents:
diff changeset
    71
    _ = lambda x : x
a06221a0930b split the variable editor panel into its own file
b.taylor@willowglen.ca
parents:
diff changeset
    72
    return {_("All"): _("All"), _("Interface"): _("Interface"), 
a06221a0930b split the variable editor panel into its own file
b.taylor@willowglen.ca
parents:
diff changeset
    73
            _("   Input"): _("Input"), _("   Output"): _("Output"), _("   InOut"): _("InOut"), 
a06221a0930b split the variable editor panel into its own file
b.taylor@willowglen.ca
parents:
diff changeset
    74
            _("   External"): _("External"), _("Variables"): _("Variables"), _("   Local"): _("Local"),
a06221a0930b split the variable editor panel into its own file
b.taylor@willowglen.ca
parents:
diff changeset
    75
            _("   Temp"): _("Temp"), _("Global"): _("Global")}#, _("Access") : _("Access")}
509
6f72513bc074 Bug on variable panel row size in grid preventing readability of value inside cell editors fixed
laurent
parents: 507
diff changeset
    76
VARIABLE_CHOICES_DICT = dict([(_(_class), _class) for _class in GetFilterChoiceTransfer().iterkeys()])
418
a06221a0930b split the variable editor panel into its own file
b.taylor@willowglen.ca
parents:
diff changeset
    77
VARIABLE_CLASSES_DICT = dict([(_(_class), _class) for _class in GetFilterChoiceTransfer().itervalues()])
a06221a0930b split the variable editor panel into its own file
b.taylor@willowglen.ca
parents:
diff changeset
    78
484
acef952101a5 Adding support for excluding option when not available according to IEC 61131 standard
laurent
parents: 483
diff changeset
    79
CheckOptionForClass = {"Local": lambda x: x,
acef952101a5 Adding support for excluding option when not available according to IEC 61131 standard
laurent
parents: 483
diff changeset
    80
                       "Temp": lambda x: "",
acef952101a5 Adding support for excluding option when not available according to IEC 61131 standard
laurent
parents: 483
diff changeset
    81
                       "Input": lambda x: {"Retain": "Retain", "Non-Retain": "Non-Retain"}.get(x, ""),
acef952101a5 Adding support for excluding option when not available according to IEC 61131 standard
laurent
parents: 483
diff changeset
    82
                       "InOut": lambda x: "",
acef952101a5 Adding support for excluding option when not available according to IEC 61131 standard
laurent
parents: 483
diff changeset
    83
                       "Output": lambda x: {"Retain": "Retain", "Non-Retain": "Non-Retain"}.get(x, ""),
acef952101a5 Adding support for excluding option when not available according to IEC 61131 standard
laurent
parents: 483
diff changeset
    84
                       "Global": lambda x: {"Constant": "Constant", "Retain": "Retain"}.get(x, ""),
acef952101a5 Adding support for excluding option when not available according to IEC 61131 standard
laurent
parents: 483
diff changeset
    85
                       "External": lambda x: {"Constant": "Constant"}.get(x, "")
acef952101a5 Adding support for excluding option when not available according to IEC 61131 standard
laurent
parents: 483
diff changeset
    86
                      }
acef952101a5 Adding support for excluding option when not available according to IEC 61131 standard
laurent
parents: 483
diff changeset
    87
604
5b42b4401e6b Adding support for unifying grid table control elements
laurent
parents: 600
diff changeset
    88
class VariableTable(CustomTable):
418
a06221a0930b split the variable editor panel into its own file
b.taylor@willowglen.ca
parents:
diff changeset
    89
    
a06221a0930b split the variable editor panel into its own file
b.taylor@willowglen.ca
parents:
diff changeset
    90
    """
a06221a0930b split the variable editor panel into its own file
b.taylor@willowglen.ca
parents:
diff changeset
    91
    A custom wx.grid.Grid Table using user supplied data
a06221a0930b split the variable editor panel into its own file
b.taylor@willowglen.ca
parents:
diff changeset
    92
    """
a06221a0930b split the variable editor panel into its own file
b.taylor@willowglen.ca
parents:
diff changeset
    93
    def __init__(self, parent, data, colnames):
a06221a0930b split the variable editor panel into its own file
b.taylor@willowglen.ca
parents:
diff changeset
    94
        # The base class must be initialized *first*
604
5b42b4401e6b Adding support for unifying grid table control elements
laurent
parents: 600
diff changeset
    95
        CustomTable.__init__(self, parent, data, colnames)
418
a06221a0930b split the variable editor panel into its own file
b.taylor@willowglen.ca
parents:
diff changeset
    96
        self.old_value = None
604
5b42b4401e6b Adding support for unifying grid table control elements
laurent
parents: 600
diff changeset
    97
    
418
a06221a0930b split the variable editor panel into its own file
b.taylor@willowglen.ca
parents:
diff changeset
    98
    def GetValue(self, row, col):
a06221a0930b split the variable editor panel into its own file
b.taylor@willowglen.ca
parents:
diff changeset
    99
        if row < self.GetNumberRows():
a06221a0930b split the variable editor panel into its own file
b.taylor@willowglen.ca
parents:
diff changeset
   100
            if col == 0:
a06221a0930b split the variable editor panel into its own file
b.taylor@willowglen.ca
parents:
diff changeset
   101
                return self.data[row]["Number"]
a06221a0930b split the variable editor panel into its own file
b.taylor@willowglen.ca
parents:
diff changeset
   102
            colname = self.GetColLabelValue(col, False)
507
42150e041dbe Adding support for direct array variable declaration in variable panel (still disable cause matiec doesn't support this feature)
laurent
parents: 496
diff changeset
   103
            value = self.data[row].get(colname, "")
42150e041dbe Adding support for direct array variable declaration in variable panel (still disable cause matiec doesn't support this feature)
laurent
parents: 496
diff changeset
   104
            if colname == "Type" and isinstance(value, TupleType):
42150e041dbe Adding support for direct array variable declaration in variable panel (still disable cause matiec doesn't support this feature)
laurent
parents: 496
diff changeset
   105
                if value[0] == "array":
42150e041dbe Adding support for direct array variable declaration in variable panel (still disable cause matiec doesn't support this feature)
laurent
parents: 496
diff changeset
   106
                    return "ARRAY [%s] OF %s" % (",".join(map(lambda x : "..".join(x), value[2])), value[1])
580
ad996deb920e Fix bug with utf-8 string value in VariablePanel
laurent
parents: 577
diff changeset
   107
            if not isinstance(value, (StringType, UnicodeType)):
ad996deb920e Fix bug with utf-8 string value in VariablePanel
laurent
parents: 577
diff changeset
   108
                value = str(value)
483
779a519f78f2 Replace Retain and Constant column in VariablePanel by Option and add the option Non-Retain
laurent
parents: 449
diff changeset
   109
            if colname in ["Class", "Option"]:
418
a06221a0930b split the variable editor panel into its own file
b.taylor@willowglen.ca
parents:
diff changeset
   110
                return _(value)
a06221a0930b split the variable editor panel into its own file
b.taylor@willowglen.ca
parents:
diff changeset
   111
            return value
a06221a0930b split the variable editor panel into its own file
b.taylor@willowglen.ca
parents:
diff changeset
   112
    
a06221a0930b split the variable editor panel into its own file
b.taylor@willowglen.ca
parents:
diff changeset
   113
    def SetValue(self, row, col, value):
a06221a0930b split the variable editor panel into its own file
b.taylor@willowglen.ca
parents:
diff changeset
   114
        if col < len(self.colnames):
a06221a0930b split the variable editor panel into its own file
b.taylor@willowglen.ca
parents:
diff changeset
   115
            colname = self.GetColLabelValue(col, False)
a06221a0930b split the variable editor panel into its own file
b.taylor@willowglen.ca
parents:
diff changeset
   116
            if colname == "Name":
a06221a0930b split the variable editor panel into its own file
b.taylor@willowglen.ca
parents:
diff changeset
   117
                self.old_value = self.data[row][colname]
a06221a0930b split the variable editor panel into its own file
b.taylor@willowglen.ca
parents:
diff changeset
   118
            elif colname == "Class":
a06221a0930b split the variable editor panel into its own file
b.taylor@willowglen.ca
parents:
diff changeset
   119
                value = VARIABLE_CLASSES_DICT[value]
484
acef952101a5 Adding support for excluding option when not available according to IEC 61131 standard
laurent
parents: 483
diff changeset
   120
                self.SetValueByName(row, "Option", CheckOptionForClass[value](self.GetValueByName(row, "Option")))
acef952101a5 Adding support for excluding option when not available according to IEC 61131 standard
laurent
parents: 483
diff changeset
   121
                if value == "External":
acef952101a5 Adding support for excluding option when not available according to IEC 61131 standard
laurent
parents: 483
diff changeset
   122
                    self.SetValueByName(row, "Initial Value", "")
483
779a519f78f2 Replace Retain and Constant column in VariablePanel by Option and add the option Non-Retain
laurent
parents: 449
diff changeset
   123
            elif colname == "Option":
779a519f78f2 Replace Retain and Constant column in VariablePanel by Option and add the option Non-Retain
laurent
parents: 449
diff changeset
   124
                value = OPTIONS_DICT[value]
418
a06221a0930b split the variable editor panel into its own file
b.taylor@willowglen.ca
parents:
diff changeset
   125
            self.data[row][colname] = value
a06221a0930b split the variable editor panel into its own file
b.taylor@willowglen.ca
parents:
diff changeset
   126
a06221a0930b split the variable editor panel into its own file
b.taylor@willowglen.ca
parents:
diff changeset
   127
    def GetOldValue(self):
a06221a0930b split the variable editor panel into its own file
b.taylor@willowglen.ca
parents:
diff changeset
   128
        return self.old_value
a06221a0930b split the variable editor panel into its own file
b.taylor@willowglen.ca
parents:
diff changeset
   129
a06221a0930b split the variable editor panel into its own file
b.taylor@willowglen.ca
parents:
diff changeset
   130
    def _updateColAttrs(self, grid):
a06221a0930b split the variable editor panel into its own file
b.taylor@willowglen.ca
parents:
diff changeset
   131
        """
a06221a0930b split the variable editor panel into its own file
b.taylor@willowglen.ca
parents:
diff changeset
   132
        wx.grid.Grid -> update the column attributes to add the
a06221a0930b split the variable editor panel into its own file
b.taylor@willowglen.ca
parents:
diff changeset
   133
        appropriate renderer given the column name.
a06221a0930b split the variable editor panel into its own file
b.taylor@willowglen.ca
parents:
diff changeset
   134
a06221a0930b split the variable editor panel into its own file
b.taylor@willowglen.ca
parents:
diff changeset
   135
        Otherwise default to the default renderer.
a06221a0930b split the variable editor panel into its own file
b.taylor@willowglen.ca
parents:
diff changeset
   136
        """
a06221a0930b split the variable editor panel into its own file
b.taylor@willowglen.ca
parents:
diff changeset
   137
        for row in range(self.GetNumberRows()):
484
acef952101a5 Adding support for excluding option when not available according to IEC 61131 standard
laurent
parents: 483
diff changeset
   138
            var_class = self.GetValueByName(row, "Class")
552
a387f258814a Disabling location definition for enumerated and structure variables
laurent
parents: 544
diff changeset
   139
            var_type = self.GetValueByName(row, "Type")
566
6014ef82a98a Adding support for searching text or regular expression in whole project
laurent
parents: 564
diff changeset
   140
            row_highlights = self.Highlights.get(row, {})
418
a06221a0930b split the variable editor panel into its own file
b.taylor@willowglen.ca
parents:
diff changeset
   141
            for col in range(self.GetNumberCols()):
a06221a0930b split the variable editor panel into its own file
b.taylor@willowglen.ca
parents:
diff changeset
   142
                editor = None
a06221a0930b split the variable editor panel into its own file
b.taylor@willowglen.ca
parents:
diff changeset
   143
                renderer = None
a06221a0930b split the variable editor panel into its own file
b.taylor@willowglen.ca
parents:
diff changeset
   144
                colname = self.GetColLabelValue(col, False)
600
7db729686416 Making variable panel not editable when showing variables of debugging block
laurent
parents: 595
diff changeset
   145
                if self.Parent.Debug:
7db729686416 Making variable panel not editable when showing variables of debugging block
laurent
parents: 595
diff changeset
   146
                    grid.SetReadOnly(row, col, True)
7db729686416 Making variable panel not editable when showing variables of debugging block
laurent
parents: 595
diff changeset
   147
                else:
7db729686416 Making variable panel not editable when showing variables of debugging block
laurent
parents: 595
diff changeset
   148
                    if colname == "Option":
7db729686416 Making variable panel not editable when showing variables of debugging block
laurent
parents: 595
diff changeset
   149
                        options = GetOptions(constant = var_class in ["Local", "External", "Global"],
7db729686416 Making variable panel not editable when showing variables of debugging block
laurent
parents: 595
diff changeset
   150
                                             retain = self.Parent.ElementType != "function" and var_class in ["Local", "Input", "Output", "Global"],
7db729686416 Making variable panel not editable when showing variables of debugging block
laurent
parents: 595
diff changeset
   151
                                             non_retain = self.Parent.ElementType != "function" and var_class in ["Local", "Input", "Output"])
7db729686416 Making variable panel not editable when showing variables of debugging block
laurent
parents: 595
diff changeset
   152
                        if len(options) > 1:
7db729686416 Making variable panel not editable when showing variables of debugging block
laurent
parents: 595
diff changeset
   153
                            editor = wx.grid.GridCellChoiceEditor()
7db729686416 Making variable panel not editable when showing variables of debugging block
laurent
parents: 595
diff changeset
   154
                            editor.SetParameters(",".join(map(_, options)))
7db729686416 Making variable panel not editable when showing variables of debugging block
laurent
parents: 595
diff changeset
   155
                        else:
418
a06221a0930b split the variable editor panel into its own file
b.taylor@willowglen.ca
parents:
diff changeset
   156
                            grid.SetReadOnly(row, col, True)
600
7db729686416 Making variable panel not editable when showing variables of debugging block
laurent
parents: 595
diff changeset
   157
                    elif col != 0 and self.GetValueByName(row, "Edit"):
7db729686416 Making variable panel not editable when showing variables of debugging block
laurent
parents: 595
diff changeset
   158
                        grid.SetReadOnly(row, col, False)
7db729686416 Making variable panel not editable when showing variables of debugging block
laurent
parents: 595
diff changeset
   159
                        if colname == "Name":
7db729686416 Making variable panel not editable when showing variables of debugging block
laurent
parents: 595
diff changeset
   160
                            if self.Parent.PouIsUsed and var_class in ["Input", "Output", "InOut"]:
7db729686416 Making variable panel not editable when showing variables of debugging block
laurent
parents: 595
diff changeset
   161
                                grid.SetReadOnly(row, col, True)
552
a387f258814a Disabling location definition for enumerated and structure variables
laurent
parents: 544
diff changeset
   162
                            else:
a387f258814a Disabling location definition for enumerated and structure variables
laurent
parents: 544
diff changeset
   163
                                editor = wx.grid.GridCellTextEditor()
600
7db729686416 Making variable panel not editable when showing variables of debugging block
laurent
parents: 595
diff changeset
   164
                                renderer = wx.grid.GridCellStringRenderer()
7db729686416 Making variable panel not editable when showing variables of debugging block
laurent
parents: 595
diff changeset
   165
                        elif colname == "Initial Value":
7db729686416 Making variable panel not editable when showing variables of debugging block
laurent
parents: 595
diff changeset
   166
                            if var_class != "External":
7db729686416 Making variable panel not editable when showing variables of debugging block
laurent
parents: 595
diff changeset
   167
                                if self.Parent.Controler.IsEnumeratedType(var_type):
7db729686416 Making variable panel not editable when showing variables of debugging block
laurent
parents: 595
diff changeset
   168
                                    editor = wx.grid.GridCellChoiceEditor()
7db729686416 Making variable panel not editable when showing variables of debugging block
laurent
parents: 595
diff changeset
   169
                                    editor.SetParameters(",".join(self.Parent.Controler.GetEnumeratedDataValues(var_type)))
7db729686416 Making variable panel not editable when showing variables of debugging block
laurent
parents: 595
diff changeset
   170
                                else:
7db729686416 Making variable panel not editable when showing variables of debugging block
laurent
parents: 595
diff changeset
   171
                                    editor = wx.grid.GridCellTextEditor()
7db729686416 Making variable panel not editable when showing variables of debugging block
laurent
parents: 595
diff changeset
   172
                                renderer = wx.grid.GridCellStringRenderer()
7db729686416 Making variable panel not editable when showing variables of debugging block
laurent
parents: 595
diff changeset
   173
                            else:
7db729686416 Making variable panel not editable when showing variables of debugging block
laurent
parents: 595
diff changeset
   174
                                grid.SetReadOnly(row, col, True)
7db729686416 Making variable panel not editable when showing variables of debugging block
laurent
parents: 595
diff changeset
   175
                        elif colname == "Location":
7db729686416 Making variable panel not editable when showing variables of debugging block
laurent
parents: 595
diff changeset
   176
                            if var_class in ["Local", "Global"] and self.Parent.Controler.IsLocatableType(var_type):
7db729686416 Making variable panel not editable when showing variables of debugging block
laurent
parents: 595
diff changeset
   177
                                editor = LocationCellEditor(self, self.Parent.Controler)
7db729686416 Making variable panel not editable when showing variables of debugging block
laurent
parents: 595
diff changeset
   178
                                renderer = wx.grid.GridCellStringRenderer()
7db729686416 Making variable panel not editable when showing variables of debugging block
laurent
parents: 595
diff changeset
   179
                            else:
7db729686416 Making variable panel not editable when showing variables of debugging block
laurent
parents: 595
diff changeset
   180
                                grid.SetReadOnly(row, col, True)
7db729686416 Making variable panel not editable when showing variables of debugging block
laurent
parents: 595
diff changeset
   181
                        elif colname == "Class":
7db729686416 Making variable panel not editable when showing variables of debugging block
laurent
parents: 595
diff changeset
   182
                            if len(self.Parent.ClassList) == 1 or self.Parent.PouIsUsed and var_class in ["Input", "Output", "InOut"]:
7db729686416 Making variable panel not editable when showing variables of debugging block
laurent
parents: 595
diff changeset
   183
                                grid.SetReadOnly(row, col, True)
7db729686416 Making variable panel not editable when showing variables of debugging block
laurent
parents: 595
diff changeset
   184
                            else:
7db729686416 Making variable panel not editable when showing variables of debugging block
laurent
parents: 595
diff changeset
   185
                                editor = wx.grid.GridCellChoiceEditor()
7db729686416 Making variable panel not editable when showing variables of debugging block
laurent
parents: 595
diff changeset
   186
                                excluded = []
7db729686416 Making variable panel not editable when showing variables of debugging block
laurent
parents: 595
diff changeset
   187
                                if self.Parent.PouIsUsed:
7db729686416 Making variable panel not editable when showing variables of debugging block
laurent
parents: 595
diff changeset
   188
                                    excluded.extend(["Input","Output","InOut"])
7db729686416 Making variable panel not editable when showing variables of debugging block
laurent
parents: 595
diff changeset
   189
                                if self.Parent.IsFunctionBlockType(var_type):
7db729686416 Making variable panel not editable when showing variables of debugging block
laurent
parents: 595
diff changeset
   190
                                    excluded.extend(["Local","Temp"])
7db729686416 Making variable panel not editable when showing variables of debugging block
laurent
parents: 595
diff changeset
   191
                                editor.SetParameters(",".join([_(choice) for choice in self.Parent.ClassList if choice not in excluded]))
7db729686416 Making variable panel not editable when showing variables of debugging block
laurent
parents: 595
diff changeset
   192
                    elif colname != "Documentation":
7db729686416 Making variable panel not editable when showing variables of debugging block
laurent
parents: 595
diff changeset
   193
                        grid.SetReadOnly(row, col, True)
418
a06221a0930b split the variable editor panel into its own file
b.taylor@willowglen.ca
parents:
diff changeset
   194
                
a06221a0930b split the variable editor panel into its own file
b.taylor@willowglen.ca
parents:
diff changeset
   195
                grid.SetCellEditor(row, col, editor)
a06221a0930b split the variable editor panel into its own file
b.taylor@willowglen.ca
parents:
diff changeset
   196
                grid.SetCellRenderer(row, col, renderer)
a06221a0930b split the variable editor panel into its own file
b.taylor@willowglen.ca
parents:
diff changeset
   197
                
566
6014ef82a98a Adding support for searching text or regular expression in whole project
laurent
parents: 564
diff changeset
   198
                highlight_colours = row_highlights.get(colname.lower(), [(wx.WHITE, wx.BLACK)])[-1]
6014ef82a98a Adding support for searching text or regular expression in whole project
laurent
parents: 564
diff changeset
   199
                grid.SetCellBackgroundColour(row, col, highlight_colours[0])
6014ef82a98a Adding support for searching text or regular expression in whole project
laurent
parents: 564
diff changeset
   200
                grid.SetCellTextColour(row, col, highlight_colours[1])
604
5b42b4401e6b Adding support for unifying grid table control elements
laurent
parents: 600
diff changeset
   201
            self.ResizeRow(grid, row)
566
6014ef82a98a Adding support for searching text or regular expression in whole project
laurent
parents: 564
diff changeset
   202
                    
418
a06221a0930b split the variable editor panel into its own file
b.taylor@willowglen.ca
parents:
diff changeset
   203
a06221a0930b split the variable editor panel into its own file
b.taylor@willowglen.ca
parents:
diff changeset
   204
class VariableDropTarget(wx.TextDropTarget):
419
8f97ed01a6a6 VariablePanel.py also depends on types.TupleType
b.taylor@willowglen.ca
parents: 418
diff changeset
   205
    '''
8f97ed01a6a6 VariablePanel.py also depends on types.TupleType
b.taylor@willowglen.ca
parents: 418
diff changeset
   206
    This allows dragging a variable location from somewhere to the Location
8f97ed01a6a6 VariablePanel.py also depends on types.TupleType
b.taylor@willowglen.ca
parents: 418
diff changeset
   207
    column of a variable row.
8f97ed01a6a6 VariablePanel.py also depends on types.TupleType
b.taylor@willowglen.ca
parents: 418
diff changeset
   208
    
8f97ed01a6a6 VariablePanel.py also depends on types.TupleType
b.taylor@willowglen.ca
parents: 418
diff changeset
   209
    The drag source should be a TextDataObject containing a Python tuple like:
8f97ed01a6a6 VariablePanel.py also depends on types.TupleType
b.taylor@willowglen.ca
parents: 418
diff changeset
   210
        ('%ID0.0.0', 'location', 'REAL')
8f97ed01a6a6 VariablePanel.py also depends on types.TupleType
b.taylor@willowglen.ca
parents: 418
diff changeset
   211
    
8f97ed01a6a6 VariablePanel.py also depends on types.TupleType
b.taylor@willowglen.ca
parents: 418
diff changeset
   212
    c_ext/CFileEditor.py has an example of this (you can drag a C extension
8f97ed01a6a6 VariablePanel.py also depends on types.TupleType
b.taylor@willowglen.ca
parents: 418
diff changeset
   213
    variable to the Location column of the variable panel).
8f97ed01a6a6 VariablePanel.py also depends on types.TupleType
b.taylor@willowglen.ca
parents: 418
diff changeset
   214
    '''
418
a06221a0930b split the variable editor panel into its own file
b.taylor@willowglen.ca
parents:
diff changeset
   215
    def __init__(self, parent):
a06221a0930b split the variable editor panel into its own file
b.taylor@willowglen.ca
parents:
diff changeset
   216
        wx.TextDropTarget.__init__(self)
a06221a0930b split the variable editor panel into its own file
b.taylor@willowglen.ca
parents:
diff changeset
   217
        self.ParentWindow = parent
a06221a0930b split the variable editor panel into its own file
b.taylor@willowglen.ca
parents:
diff changeset
   218
    
a06221a0930b split the variable editor panel into its own file
b.taylor@willowglen.ca
parents:
diff changeset
   219
    def OnDropText(self, x, y, data):
a06221a0930b split the variable editor panel into its own file
b.taylor@willowglen.ca
parents:
diff changeset
   220
        x, y = self.ParentWindow.VariablesGrid.CalcUnscrolledPosition(x, y)
a06221a0930b split the variable editor panel into its own file
b.taylor@willowglen.ca
parents:
diff changeset
   221
        col = self.ParentWindow.VariablesGrid.XToCol(x)
a06221a0930b split the variable editor panel into its own file
b.taylor@willowglen.ca
parents:
diff changeset
   222
        row = self.ParentWindow.VariablesGrid.YToRow(y - self.ParentWindow.VariablesGrid.GetColLabelSize())
a06221a0930b split the variable editor panel into its own file
b.taylor@willowglen.ca
parents:
diff changeset
   223
        if col != wx.NOT_FOUND and row != wx.NOT_FOUND:
a06221a0930b split the variable editor panel into its own file
b.taylor@willowglen.ca
parents:
diff changeset
   224
            if self.ParentWindow.Table.GetColLabelValue(col, False) != "Location":
a06221a0930b split the variable editor panel into its own file
b.taylor@willowglen.ca
parents:
diff changeset
   225
                return
a06221a0930b split the variable editor panel into its own file
b.taylor@willowglen.ca
parents:
diff changeset
   226
            message = None
a06221a0930b split the variable editor panel into its own file
b.taylor@willowglen.ca
parents:
diff changeset
   227
            if not self.ParentWindow.Table.GetValueByName(row, "Edit"):
427
22d16c457d87 improved English spelling & grammar
b.taylor@willowglen.ca
parents: 425
diff changeset
   228
                message = _("Can't give a location to a function block instance")
418
a06221a0930b split the variable editor panel into its own file
b.taylor@willowglen.ca
parents:
diff changeset
   229
            elif self.ParentWindow.Table.GetValueByName(row, "Class") not in ["Local", "Global"]:
427
22d16c457d87 improved English spelling & grammar
b.taylor@willowglen.ca
parents: 425
diff changeset
   230
                message = _("Can only give a location to local or global variables")
418
a06221a0930b split the variable editor panel into its own file
b.taylor@willowglen.ca
parents:
diff changeset
   231
            else:
a06221a0930b split the variable editor panel into its own file
b.taylor@willowglen.ca
parents:
diff changeset
   232
                try:
a06221a0930b split the variable editor panel into its own file
b.taylor@willowglen.ca
parents:
diff changeset
   233
                    values = eval(data)    
a06221a0930b split the variable editor panel into its own file
b.taylor@willowglen.ca
parents:
diff changeset
   234
                except:
a06221a0930b split the variable editor panel into its own file
b.taylor@willowglen.ca
parents:
diff changeset
   235
                    message = _("Invalid value \"%s\" for location")%data
a06221a0930b split the variable editor panel into its own file
b.taylor@willowglen.ca
parents:
diff changeset
   236
                    values = None
a06221a0930b split the variable editor panel into its own file
b.taylor@willowglen.ca
parents:
diff changeset
   237
                if not isinstance(values, TupleType):
a06221a0930b split the variable editor panel into its own file
b.taylor@willowglen.ca
parents:
diff changeset
   238
                    message = _("Invalid value \"%s\" for location")%data
a06221a0930b split the variable editor panel into its own file
b.taylor@willowglen.ca
parents:
diff changeset
   239
                    values = None
a06221a0930b split the variable editor panel into its own file
b.taylor@willowglen.ca
parents:
diff changeset
   240
                if values is not None and values[1] == "location":
a06221a0930b split the variable editor panel into its own file
b.taylor@willowglen.ca
parents:
diff changeset
   241
                    location = values[0]
a06221a0930b split the variable editor panel into its own file
b.taylor@willowglen.ca
parents:
diff changeset
   242
                    variable_type = self.ParentWindow.Table.GetValueByName(row, "Type")
a06221a0930b split the variable editor panel into its own file
b.taylor@willowglen.ca
parents:
diff changeset
   243
                    base_type = self.ParentWindow.Controler.GetBaseType(variable_type)
a06221a0930b split the variable editor panel into its own file
b.taylor@willowglen.ca
parents:
diff changeset
   244
                    message = None
a06221a0930b split the variable editor panel into its own file
b.taylor@willowglen.ca
parents:
diff changeset
   245
                    if location.startswith("%"):
a06221a0930b split the variable editor panel into its own file
b.taylor@willowglen.ca
parents:
diff changeset
   246
                        if base_type != values[2]:
a06221a0930b split the variable editor panel into its own file
b.taylor@willowglen.ca
parents:
diff changeset
   247
                            message = _("Incompatible data types between \"%s\" and \"%s\"")%(values[2], variable_type)
a06221a0930b split the variable editor panel into its own file
b.taylor@willowglen.ca
parents:
diff changeset
   248
                        else:
a06221a0930b split the variable editor panel into its own file
b.taylor@willowglen.ca
parents:
diff changeset
   249
                            self.ParentWindow.Table.SetValue(row, col, location)
a06221a0930b split the variable editor panel into its own file
b.taylor@willowglen.ca
parents:
diff changeset
   250
                            self.ParentWindow.Table.ResetView(self.ParentWindow.VariablesGrid)
a06221a0930b split the variable editor panel into its own file
b.taylor@willowglen.ca
parents:
diff changeset
   251
                            self.ParentWindow.SaveValues()
a06221a0930b split the variable editor panel into its own file
b.taylor@willowglen.ca
parents:
diff changeset
   252
                    else:
a06221a0930b split the variable editor panel into its own file
b.taylor@willowglen.ca
parents:
diff changeset
   253
                        if location[0].isdigit() and base_type != "BOOL":
a06221a0930b split the variable editor panel into its own file
b.taylor@willowglen.ca
parents:
diff changeset
   254
                            message = _("Incompatible size of data between \"%s\" and \"BOOL\"")%location
a06221a0930b split the variable editor panel into its own file
b.taylor@willowglen.ca
parents:
diff changeset
   255
                        elif location[0] not in LOCATIONDATATYPES:
a06221a0930b split the variable editor panel into its own file
b.taylor@willowglen.ca
parents:
diff changeset
   256
                            message = _("Unrecognized data size \"%s\"")%location[0]
a06221a0930b split the variable editor panel into its own file
b.taylor@willowglen.ca
parents:
diff changeset
   257
                        elif base_type not in LOCATIONDATATYPES[location[0]]:
a06221a0930b split the variable editor panel into its own file
b.taylor@willowglen.ca
parents:
diff changeset
   258
                            message = _("Incompatible size of data between \"%s\" and \"%s\"")%(location, variable_type)
a06221a0930b split the variable editor panel into its own file
b.taylor@willowglen.ca
parents:
diff changeset
   259
                        else:
a06221a0930b split the variable editor panel into its own file
b.taylor@willowglen.ca
parents:
diff changeset
   260
                            dialog = wx.SingleChoiceDialog(self.ParentWindow, _("Select a variable class:"), _("Variable class"), ["Input", "Output", "Memory"], wx.OK|wx.CANCEL)
a06221a0930b split the variable editor panel into its own file
b.taylor@willowglen.ca
parents:
diff changeset
   261
                            if dialog.ShowModal() == wx.ID_OK:
a06221a0930b split the variable editor panel into its own file
b.taylor@willowglen.ca
parents:
diff changeset
   262
                                selected = dialog.GetSelection()
a06221a0930b split the variable editor panel into its own file
b.taylor@willowglen.ca
parents:
diff changeset
   263
                                if selected == 0:
a06221a0930b split the variable editor panel into its own file
b.taylor@willowglen.ca
parents:
diff changeset
   264
                                    location = "%I" + location
a06221a0930b split the variable editor panel into its own file
b.taylor@willowglen.ca
parents:
diff changeset
   265
                                elif selected == 1:
a06221a0930b split the variable editor panel into its own file
b.taylor@willowglen.ca
parents:
diff changeset
   266
                                    location = "%Q" + location
a06221a0930b split the variable editor panel into its own file
b.taylor@willowglen.ca
parents:
diff changeset
   267
                                else:
a06221a0930b split the variable editor panel into its own file
b.taylor@willowglen.ca
parents:
diff changeset
   268
                                    location = "%M" + location
a06221a0930b split the variable editor panel into its own file
b.taylor@willowglen.ca
parents:
diff changeset
   269
                                self.ParentWindow.Table.SetValue(row, col, location)
a06221a0930b split the variable editor panel into its own file
b.taylor@willowglen.ca
parents:
diff changeset
   270
                                self.ParentWindow.Table.ResetView(self.ParentWindow.VariablesGrid)
a06221a0930b split the variable editor panel into its own file
b.taylor@willowglen.ca
parents:
diff changeset
   271
                                self.ParentWindow.SaveValues()
a06221a0930b split the variable editor panel into its own file
b.taylor@willowglen.ca
parents:
diff changeset
   272
                            dialog.Destroy()
a06221a0930b split the variable editor panel into its own file
b.taylor@willowglen.ca
parents:
diff changeset
   273
            if message is not None:
a06221a0930b split the variable editor panel into its own file
b.taylor@willowglen.ca
parents:
diff changeset
   274
                wx.CallAfter(self.ShowMessage, message)
a06221a0930b split the variable editor panel into its own file
b.taylor@willowglen.ca
parents:
diff changeset
   275
            
a06221a0930b split the variable editor panel into its own file
b.taylor@willowglen.ca
parents:
diff changeset
   276
    def ShowMessage(self, message):
a06221a0930b split the variable editor panel into its own file
b.taylor@willowglen.ca
parents:
diff changeset
   277
        message = wx.MessageDialog(self.ParentWindow, message, _("Error"), wx.OK|wx.ICON_ERROR)
a06221a0930b split the variable editor panel into its own file
b.taylor@willowglen.ca
parents:
diff changeset
   278
        message.ShowModal()
a06221a0930b split the variable editor panel into its own file
b.taylor@willowglen.ca
parents:
diff changeset
   279
        message.Destroy()
a06221a0930b split the variable editor panel into its own file
b.taylor@willowglen.ca
parents:
diff changeset
   280
a06221a0930b split the variable editor panel into its own file
b.taylor@willowglen.ca
parents:
diff changeset
   281
[ID_VARIABLEEDITORPANEL, ID_VARIABLEEDITORPANELVARIABLESGRID, 
a06221a0930b split the variable editor panel into its own file
b.taylor@willowglen.ca
parents:
diff changeset
   282
 ID_VARIABLEEDITORCONTROLPANEL, ID_VARIABLEEDITORPANELRETURNTYPE, 
a06221a0930b split the variable editor panel into its own file
b.taylor@willowglen.ca
parents:
diff changeset
   283
 ID_VARIABLEEDITORPANELCLASSFILTER, ID_VARIABLEEDITORPANELADDBUTTON, 
a06221a0930b split the variable editor panel into its own file
b.taylor@willowglen.ca
parents:
diff changeset
   284
 ID_VARIABLEEDITORPANELDELETEBUTTON, ID_VARIABLEEDITORPANELUPBUTTON, 
a06221a0930b split the variable editor panel into its own file
b.taylor@willowglen.ca
parents:
diff changeset
   285
 ID_VARIABLEEDITORPANELDOWNBUTTON, ID_VARIABLEEDITORPANELSTATICTEXT1, 
a06221a0930b split the variable editor panel into its own file
b.taylor@willowglen.ca
parents:
diff changeset
   286
 ID_VARIABLEEDITORPANELSTATICTEXT2, ID_VARIABLEEDITORPANELSTATICTEXT3,
a06221a0930b split the variable editor panel into its own file
b.taylor@willowglen.ca
parents:
diff changeset
   287
] = [wx.NewId() for _init_ctrls in range(12)]
a06221a0930b split the variable editor panel into its own file
b.taylor@willowglen.ca
parents:
diff changeset
   288
a06221a0930b split the variable editor panel into its own file
b.taylor@willowglen.ca
parents:
diff changeset
   289
class VariablePanel(wx.Panel):
a06221a0930b split the variable editor panel into its own file
b.taylor@willowglen.ca
parents:
diff changeset
   290
    
a06221a0930b split the variable editor panel into its own file
b.taylor@willowglen.ca
parents:
diff changeset
   291
    if wx.VERSION < (2, 6, 0):
a06221a0930b split the variable editor panel into its own file
b.taylor@willowglen.ca
parents:
diff changeset
   292
        def Bind(self, event, function, id = None):
a06221a0930b split the variable editor panel into its own file
b.taylor@willowglen.ca
parents:
diff changeset
   293
            if id is not None:
a06221a0930b split the variable editor panel into its own file
b.taylor@willowglen.ca
parents:
diff changeset
   294
                event(self, id, function)
a06221a0930b split the variable editor panel into its own file
b.taylor@willowglen.ca
parents:
diff changeset
   295
            else:
a06221a0930b split the variable editor panel into its own file
b.taylor@willowglen.ca
parents:
diff changeset
   296
                event(self, function)
a06221a0930b split the variable editor panel into its own file
b.taylor@willowglen.ca
parents:
diff changeset
   297
    
a06221a0930b split the variable editor panel into its own file
b.taylor@willowglen.ca
parents:
diff changeset
   298
    def _init_coll_MainSizer_Items(self, parent):
586
9aa96a36cf33 Moving variable panel from bottom notebook panel to POU editor panel
laurent
parents: 580
diff changeset
   299
        parent.AddWindow(self.ControlPanel, 0, border=5, flag=wx.GROW|wx.ALL)
418
a06221a0930b split the variable editor panel into its own file
b.taylor@willowglen.ca
parents:
diff changeset
   300
        parent.AddWindow(self.VariablesGrid, 0, border=0, flag=wx.GROW)
586
9aa96a36cf33 Moving variable panel from bottom notebook panel to POU editor panel
laurent
parents: 580
diff changeset
   301
        
418
a06221a0930b split the variable editor panel into its own file
b.taylor@willowglen.ca
parents:
diff changeset
   302
    def _init_coll_MainSizer_Growables(self, parent):
a06221a0930b split the variable editor panel into its own file
b.taylor@willowglen.ca
parents:
diff changeset
   303
        parent.AddGrowableCol(0)
586
9aa96a36cf33 Moving variable panel from bottom notebook panel to POU editor panel
laurent
parents: 580
diff changeset
   304
        parent.AddGrowableRow(1)
418
a06221a0930b split the variable editor panel into its own file
b.taylor@willowglen.ca
parents:
diff changeset
   305
    
a06221a0930b split the variable editor panel into its own file
b.taylor@willowglen.ca
parents:
diff changeset
   306
    def _init_coll_ControlPanelSizer_Items(self, parent):
586
9aa96a36cf33 Moving variable panel from bottom notebook panel to POU editor panel
laurent
parents: 580
diff changeset
   307
        parent.AddWindow(self.staticText1, 0, border=0, flag=wx.ALIGN_CENTER_VERTICAL)
9aa96a36cf33 Moving variable panel from bottom notebook panel to POU editor panel
laurent
parents: 580
diff changeset
   308
        parent.AddWindow(self.ReturnType, 0, border=0, flag=0)
9aa96a36cf33 Moving variable panel from bottom notebook panel to POU editor panel
laurent
parents: 580
diff changeset
   309
        parent.AddWindow(self.staticText2, 0, border=0, flag=wx.ALIGN_CENTER_VERTICAL)
9aa96a36cf33 Moving variable panel from bottom notebook panel to POU editor panel
laurent
parents: 580
diff changeset
   310
        parent.AddWindow(self.ClassFilter, 0, border=0, flag=0)
9aa96a36cf33 Moving variable panel from bottom notebook panel to POU editor panel
laurent
parents: 580
diff changeset
   311
        parent.AddWindow(self.AddButton, 0, border=0, flag=0)
9aa96a36cf33 Moving variable panel from bottom notebook panel to POU editor panel
laurent
parents: 580
diff changeset
   312
        parent.AddWindow(self.DeleteButton, 0, border=0, flag=0)
9aa96a36cf33 Moving variable panel from bottom notebook panel to POU editor panel
laurent
parents: 580
diff changeset
   313
        parent.AddWindow(self.UpButton, 0, border=0, flag=0)
9aa96a36cf33 Moving variable panel from bottom notebook panel to POU editor panel
laurent
parents: 580
diff changeset
   314
        parent.AddWindow(self.DownButton, 0, border=0, flag=0)
9aa96a36cf33 Moving variable panel from bottom notebook panel to POU editor panel
laurent
parents: 580
diff changeset
   315
        
418
a06221a0930b split the variable editor panel into its own file
b.taylor@willowglen.ca
parents:
diff changeset
   316
    def _init_coll_ControlPanelSizer_Growables(self, parent):
a06221a0930b split the variable editor panel into its own file
b.taylor@willowglen.ca
parents:
diff changeset
   317
        parent.AddGrowableCol(3)
a06221a0930b split the variable editor panel into its own file
b.taylor@willowglen.ca
parents:
diff changeset
   318
        parent.AddGrowableRow(0)
a06221a0930b split the variable editor panel into its own file
b.taylor@willowglen.ca
parents:
diff changeset
   319
a06221a0930b split the variable editor panel into its own file
b.taylor@willowglen.ca
parents:
diff changeset
   320
    def _init_sizers(self):
586
9aa96a36cf33 Moving variable panel from bottom notebook panel to POU editor panel
laurent
parents: 580
diff changeset
   321
        self.MainSizer = wx.FlexGridSizer(cols=1, hgap=10, rows=2, vgap=0)
9aa96a36cf33 Moving variable panel from bottom notebook panel to POU editor panel
laurent
parents: 580
diff changeset
   322
        self.ControlPanelSizer = wx.FlexGridSizer(cols=8, hgap=5, rows=1, vgap=5)
418
a06221a0930b split the variable editor panel into its own file
b.taylor@willowglen.ca
parents:
diff changeset
   323
        
a06221a0930b split the variable editor panel into its own file
b.taylor@willowglen.ca
parents:
diff changeset
   324
        self._init_coll_MainSizer_Items(self.MainSizer)
a06221a0930b split the variable editor panel into its own file
b.taylor@willowglen.ca
parents:
diff changeset
   325
        self._init_coll_MainSizer_Growables(self.MainSizer)
a06221a0930b split the variable editor panel into its own file
b.taylor@willowglen.ca
parents:
diff changeset
   326
        self._init_coll_ControlPanelSizer_Items(self.ControlPanelSizer)
a06221a0930b split the variable editor panel into its own file
b.taylor@willowglen.ca
parents:
diff changeset
   327
        self._init_coll_ControlPanelSizer_Growables(self.ControlPanelSizer)
586
9aa96a36cf33 Moving variable panel from bottom notebook panel to POU editor panel
laurent
parents: 580
diff changeset
   328
        
9aa96a36cf33 Moving variable panel from bottom notebook panel to POU editor panel
laurent
parents: 580
diff changeset
   329
        self.ControlPanel.SetSizer(self.ControlPanelSizer)
418
a06221a0930b split the variable editor panel into its own file
b.taylor@willowglen.ca
parents:
diff changeset
   330
        self.SetSizer(self.MainSizer)
586
9aa96a36cf33 Moving variable panel from bottom notebook panel to POU editor panel
laurent
parents: 580
diff changeset
   331
    
418
a06221a0930b split the variable editor panel into its own file
b.taylor@willowglen.ca
parents:
diff changeset
   332
    def _init_ctrls(self, prnt):
a06221a0930b split the variable editor panel into its own file
b.taylor@willowglen.ca
parents:
diff changeset
   333
        wx.Panel.__init__(self, id=ID_VARIABLEEDITORPANEL,
a06221a0930b split the variable editor panel into its own file
b.taylor@willowglen.ca
parents:
diff changeset
   334
              name='VariableEditorPanel', parent=prnt, pos=wx.Point(0, 0),
a06221a0930b split the variable editor panel into its own file
b.taylor@willowglen.ca
parents:
diff changeset
   335
              size=wx.Size(0, 0), style=wx.TAB_TRAVERSAL)
a06221a0930b split the variable editor panel into its own file
b.taylor@willowglen.ca
parents:
diff changeset
   336
577
9dbb79722fbc Adding support for giving keyboard focus to the first control of every dialogs
laurent
parents: 566
diff changeset
   337
        self.VariablesGrid = CustomGrid(id=ID_VARIABLEEDITORPANELVARIABLESGRID,
418
a06221a0930b split the variable editor panel into its own file
b.taylor@willowglen.ca
parents:
diff changeset
   338
              name='VariablesGrid', parent=self, pos=wx.Point(0, 0), 
a06221a0930b split the variable editor panel into its own file
b.taylor@willowglen.ca
parents:
diff changeset
   339
              size=wx.Size(0, 0), style=wx.VSCROLL)
a06221a0930b split the variable editor panel into its own file
b.taylor@willowglen.ca
parents:
diff changeset
   340
        self.VariablesGrid.SetFont(wx.Font(12, 77, wx.NORMAL, wx.NORMAL, False,
a06221a0930b split the variable editor panel into its own file
b.taylor@willowglen.ca
parents:
diff changeset
   341
              'Sans'))
a06221a0930b split the variable editor panel into its own file
b.taylor@willowglen.ca
parents:
diff changeset
   342
        self.VariablesGrid.SetLabelFont(wx.Font(10, 77, wx.NORMAL, wx.NORMAL,
a06221a0930b split the variable editor panel into its own file
b.taylor@willowglen.ca
parents:
diff changeset
   343
              False, 'Sans'))
a06221a0930b split the variable editor panel into its own file
b.taylor@willowglen.ca
parents:
diff changeset
   344
        self.VariablesGrid.SetSelectionBackground(wx.WHITE)
a06221a0930b split the variable editor panel into its own file
b.taylor@willowglen.ca
parents:
diff changeset
   345
        self.VariablesGrid.SetSelectionForeground(wx.BLACK)
595
15df411e9463 Fixing bug preventing drag'n drop of located variables in location cell of variable panel grid
laurent
parents: 591
diff changeset
   346
        self.VariablesGrid.SetDropTarget(VariableDropTarget(self))
418
a06221a0930b split the variable editor panel into its own file
b.taylor@willowglen.ca
parents:
diff changeset
   347
        if wx.VERSION >= (2, 6, 0):
a06221a0930b split the variable editor panel into its own file
b.taylor@willowglen.ca
parents:
diff changeset
   348
            self.VariablesGrid.Bind(wx.grid.EVT_GRID_CELL_CHANGE, self.OnVariablesGridCellChange)
a06221a0930b split the variable editor panel into its own file
b.taylor@willowglen.ca
parents:
diff changeset
   349
            self.VariablesGrid.Bind(wx.grid.EVT_GRID_CELL_LEFT_CLICK, self.OnVariablesGridCellLeftClick)
a06221a0930b split the variable editor panel into its own file
b.taylor@willowglen.ca
parents:
diff changeset
   350
            self.VariablesGrid.Bind(wx.grid.EVT_GRID_EDITOR_SHOWN, self.OnVariablesGridEditorShown)
a06221a0930b split the variable editor panel into its own file
b.taylor@willowglen.ca
parents:
diff changeset
   351
        else:
a06221a0930b split the variable editor panel into its own file
b.taylor@willowglen.ca
parents:
diff changeset
   352
            wx.grid.EVT_GRID_CELL_CHANGE(self.VariablesGrid, self.OnVariablesGridCellChange)
a06221a0930b split the variable editor panel into its own file
b.taylor@willowglen.ca
parents:
diff changeset
   353
            wx.grid.EVT_GRID_CELL_LEFT_CLICK(self.VariablesGrid, self.OnVariablesGridCellLeftClick)
a06221a0930b split the variable editor panel into its own file
b.taylor@willowglen.ca
parents:
diff changeset
   354
            wx.grid.EVT_GRID_EDITOR_SHOWN(self.VariablesGrid, self.OnVariablesGridEditorShown)
a06221a0930b split the variable editor panel into its own file
b.taylor@willowglen.ca
parents:
diff changeset
   355
        
a06221a0930b split the variable editor panel into its own file
b.taylor@willowglen.ca
parents:
diff changeset
   356
        self.ControlPanel = wx.ScrolledWindow(id=ID_VARIABLEEDITORCONTROLPANEL,
a06221a0930b split the variable editor panel into its own file
b.taylor@willowglen.ca
parents:
diff changeset
   357
              name='ControlPanel', parent=self, pos=wx.Point(0, 0),
a06221a0930b split the variable editor panel into its own file
b.taylor@willowglen.ca
parents:
diff changeset
   358
              size=wx.Size(0, 0), style=wx.TAB_TRAVERSAL)
586
9aa96a36cf33 Moving variable panel from bottom notebook panel to POU editor panel
laurent
parents: 580
diff changeset
   359
        self.ControlPanel.SetScrollRate(10, 0)
418
a06221a0930b split the variable editor panel into its own file
b.taylor@willowglen.ca
parents:
diff changeset
   360
        
a06221a0930b split the variable editor panel into its own file
b.taylor@willowglen.ca
parents:
diff changeset
   361
        self.staticText1 = wx.StaticText(id=ID_VARIABLEEDITORPANELSTATICTEXT1,
a06221a0930b split the variable editor panel into its own file
b.taylor@willowglen.ca
parents:
diff changeset
   362
              label=_('Return Type:'), name='staticText1', parent=self.ControlPanel,
586
9aa96a36cf33 Moving variable panel from bottom notebook panel to POU editor panel
laurent
parents: 580
diff changeset
   363
              pos=wx.Point(0, 0), size=wx.DefaultSize, style=0)
418
a06221a0930b split the variable editor panel into its own file
b.taylor@willowglen.ca
parents:
diff changeset
   364
a06221a0930b split the variable editor panel into its own file
b.taylor@willowglen.ca
parents:
diff changeset
   365
        self.ReturnType = wx.ComboBox(id=ID_VARIABLEEDITORPANELRETURNTYPE,
a06221a0930b split the variable editor panel into its own file
b.taylor@willowglen.ca
parents:
diff changeset
   366
              name='ReturnType', parent=self.ControlPanel, pos=wx.Point(0, 0),
a06221a0930b split the variable editor panel into its own file
b.taylor@willowglen.ca
parents:
diff changeset
   367
              size=wx.Size(145, 28), style=wx.CB_READONLY)
a06221a0930b split the variable editor panel into its own file
b.taylor@willowglen.ca
parents:
diff changeset
   368
        self.Bind(wx.EVT_COMBOBOX, self.OnReturnTypeChanged, id=ID_VARIABLEEDITORPANELRETURNTYPE)
a06221a0930b split the variable editor panel into its own file
b.taylor@willowglen.ca
parents:
diff changeset
   369
a06221a0930b split the variable editor panel into its own file
b.taylor@willowglen.ca
parents:
diff changeset
   370
        self.staticText2 = wx.StaticText(id=ID_VARIABLEEDITORPANELSTATICTEXT2,
a06221a0930b split the variable editor panel into its own file
b.taylor@willowglen.ca
parents:
diff changeset
   371
              label=_('Class Filter:'), name='staticText2', parent=self.ControlPanel,
586
9aa96a36cf33 Moving variable panel from bottom notebook panel to POU editor panel
laurent
parents: 580
diff changeset
   372
              pos=wx.Point(0, 0), size=wx.DefaultSize, style=0)
418
a06221a0930b split the variable editor panel into its own file
b.taylor@willowglen.ca
parents:
diff changeset
   373
a06221a0930b split the variable editor panel into its own file
b.taylor@willowglen.ca
parents:
diff changeset
   374
        self.ClassFilter = wx.ComboBox(id=ID_VARIABLEEDITORPANELCLASSFILTER,
a06221a0930b split the variable editor panel into its own file
b.taylor@willowglen.ca
parents:
diff changeset
   375
              name='ClassFilter', parent=self.ControlPanel, pos=wx.Point(0, 0),
a06221a0930b split the variable editor panel into its own file
b.taylor@willowglen.ca
parents:
diff changeset
   376
              size=wx.Size(145, 28), style=wx.CB_READONLY)
a06221a0930b split the variable editor panel into its own file
b.taylor@willowglen.ca
parents:
diff changeset
   377
        self.Bind(wx.EVT_COMBOBOX, self.OnClassFilter, id=ID_VARIABLEEDITORPANELCLASSFILTER)
a06221a0930b split the variable editor panel into its own file
b.taylor@willowglen.ca
parents:
diff changeset
   378
a06221a0930b split the variable editor panel into its own file
b.taylor@willowglen.ca
parents:
diff changeset
   379
        self.AddButton = wx.Button(id=ID_VARIABLEEDITORPANELADDBUTTON, label=_('Add'),
a06221a0930b split the variable editor panel into its own file
b.taylor@willowglen.ca
parents:
diff changeset
   380
              name='AddButton', parent=self.ControlPanel, pos=wx.Point(0, 0),
a06221a0930b split the variable editor panel into its own file
b.taylor@willowglen.ca
parents:
diff changeset
   381
              size=wx.DefaultSize, style=0)
577
9dbb79722fbc Adding support for giving keyboard focus to the first control of every dialogs
laurent
parents: 566
diff changeset
   382
        
418
a06221a0930b split the variable editor panel into its own file
b.taylor@willowglen.ca
parents:
diff changeset
   383
        self.DeleteButton = wx.Button(id=ID_VARIABLEEDITORPANELDELETEBUTTON, label=_('Delete'),
a06221a0930b split the variable editor panel into its own file
b.taylor@willowglen.ca
parents:
diff changeset
   384
              name='DeleteButton', parent=self.ControlPanel, pos=wx.Point(0, 0),
a06221a0930b split the variable editor panel into its own file
b.taylor@willowglen.ca
parents:
diff changeset
   385
              size=wx.DefaultSize, style=0)
577
9dbb79722fbc Adding support for giving keyboard focus to the first control of every dialogs
laurent
parents: 566
diff changeset
   386
        
418
a06221a0930b split the variable editor panel into its own file
b.taylor@willowglen.ca
parents:
diff changeset
   387
        self.UpButton = wx.Button(id=ID_VARIABLEEDITORPANELUPBUTTON, label='^',
a06221a0930b split the variable editor panel into its own file
b.taylor@willowglen.ca
parents:
diff changeset
   388
              name='UpButton', parent=self.ControlPanel, pos=wx.Point(0, 0),
586
9aa96a36cf33 Moving variable panel from bottom notebook panel to POU editor panel
laurent
parents: 580
diff changeset
   389
              size=wx.Size(28, 28), style=0)
577
9dbb79722fbc Adding support for giving keyboard focus to the first control of every dialogs
laurent
parents: 566
diff changeset
   390
        
418
a06221a0930b split the variable editor panel into its own file
b.taylor@willowglen.ca
parents:
diff changeset
   391
        self.DownButton = wx.Button(id=ID_VARIABLEEDITORPANELDOWNBUTTON, label='v',
a06221a0930b split the variable editor panel into its own file
b.taylor@willowglen.ca
parents:
diff changeset
   392
              name='DownButton', parent=self.ControlPanel, pos=wx.Point(0, 0),
586
9aa96a36cf33 Moving variable panel from bottom notebook panel to POU editor panel
laurent
parents: 580
diff changeset
   393
              size=wx.Size(28, 28), style=0)
577
9dbb79722fbc Adding support for giving keyboard focus to the first control of every dialogs
laurent
parents: 566
diff changeset
   394
        
418
a06221a0930b split the variable editor panel into its own file
b.taylor@willowglen.ca
parents:
diff changeset
   395
        self._init_sizers()
a06221a0930b split the variable editor panel into its own file
b.taylor@willowglen.ca
parents:
diff changeset
   396
600
7db729686416 Making variable panel not editable when showing variables of debugging block
laurent
parents: 595
diff changeset
   397
    def __init__(self, parent, window, controler, element_type, debug=False):
418
a06221a0930b split the variable editor panel into its own file
b.taylor@willowglen.ca
parents:
diff changeset
   398
        self._init_ctrls(parent)
a06221a0930b split the variable editor panel into its own file
b.taylor@willowglen.ca
parents:
diff changeset
   399
        self.ParentWindow = window
a06221a0930b split the variable editor panel into its own file
b.taylor@willowglen.ca
parents:
diff changeset
   400
        self.Controler = controler
a06221a0930b split the variable editor panel into its own file
b.taylor@willowglen.ca
parents:
diff changeset
   401
        self.ElementType = element_type
600
7db729686416 Making variable panel not editable when showing variables of debugging block
laurent
parents: 595
diff changeset
   402
        self.Debug = debug
418
a06221a0930b split the variable editor panel into its own file
b.taylor@willowglen.ca
parents:
diff changeset
   403
        
566
6014ef82a98a Adding support for searching text or regular expression in whole project
laurent
parents: 564
diff changeset
   404
        self.RefreshHighlightsTimer = wx.Timer(self, -1)
6014ef82a98a Adding support for searching text or regular expression in whole project
laurent
parents: 564
diff changeset
   405
        self.Bind(wx.EVT_TIMER, self.OnRefreshHighlightsTimer, self.RefreshHighlightsTimer)
6014ef82a98a Adding support for searching text or regular expression in whole project
laurent
parents: 564
diff changeset
   406
        
418
a06221a0930b split the variable editor panel into its own file
b.taylor@willowglen.ca
parents:
diff changeset
   407
        self.Filter = "All"
a06221a0930b split the variable editor panel into its own file
b.taylor@willowglen.ca
parents:
diff changeset
   408
        self.FilterChoices = []
a06221a0930b split the variable editor panel into its own file
b.taylor@willowglen.ca
parents:
diff changeset
   409
        self.FilterChoiceTransfer = GetFilterChoiceTransfer()
a06221a0930b split the variable editor panel into its own file
b.taylor@willowglen.ca
parents:
diff changeset
   410
        
424
d19c4a6460ab add a Documentation column to the VariablePanel
b.taylor@willowglen.ca
parents: 422
diff changeset
   411
        self.DefaultValue = {   "Name" : "", "Class" : "", "Type" : "INT", "Location" : "",
483
779a519f78f2 Replace Retain and Constant column in VariablePanel by Option and add the option Non-Retain
laurent
parents: 449
diff changeset
   412
                                "Initial Value" : "", "Option" : "",
424
d19c4a6460ab add a Documentation column to the VariablePanel
b.taylor@willowglen.ca
parents: 422
diff changeset
   413
                                "Documentation" : "", "Edit" : True
d19c4a6460ab add a Documentation column to the VariablePanel
b.taylor@willowglen.ca
parents: 422
diff changeset
   414
                            }
d19c4a6460ab add a Documentation column to the VariablePanel
b.taylor@willowglen.ca
parents: 422
diff changeset
   415
418
a06221a0930b split the variable editor panel into its own file
b.taylor@willowglen.ca
parents:
diff changeset
   416
        if element_type in ["config", "resource"]:
a06221a0930b split the variable editor panel into its own file
b.taylor@willowglen.ca
parents:
diff changeset
   417
            self.DefaultTypes = {"All" : "Global"}
a06221a0930b split the variable editor panel into its own file
b.taylor@willowglen.ca
parents:
diff changeset
   418
        else:
a06221a0930b split the variable editor panel into its own file
b.taylor@willowglen.ca
parents:
diff changeset
   419
            self.DefaultTypes = {"All" : "Local", "Interface" : "Input", "Variables" : "Local"}
424
d19c4a6460ab add a Documentation column to the VariablePanel
b.taylor@willowglen.ca
parents: 422
diff changeset
   420
d19c4a6460ab add a Documentation column to the VariablePanel
b.taylor@willowglen.ca
parents: 422
diff changeset
   421
        if element_type in ["config", "resource"] \
d19c4a6460ab add a Documentation column to the VariablePanel
b.taylor@willowglen.ca
parents: 422
diff changeset
   422
        or element_type in ["program", "transition", "action"]:
d19c4a6460ab add a Documentation column to the VariablePanel
b.taylor@willowglen.ca
parents: 422
diff changeset
   423
            # this is an element that can have located variables
418
a06221a0930b split the variable editor panel into its own file
b.taylor@willowglen.ca
parents:
diff changeset
   424
            self.Table = VariableTable(self, [], GetVariableTableColnames(True))
424
d19c4a6460ab add a Documentation column to the VariablePanel
b.taylor@willowglen.ca
parents: 422
diff changeset
   425
d19c4a6460ab add a Documentation column to the VariablePanel
b.taylor@willowglen.ca
parents: 422
diff changeset
   426
            if element_type in ["config", "resource"]:
d19c4a6460ab add a Documentation column to the VariablePanel
b.taylor@willowglen.ca
parents: 422
diff changeset
   427
                self.FilterChoices = ["All", "Global"]#,"Access"]
418
a06221a0930b split the variable editor panel into its own file
b.taylor@willowglen.ca
parents:
diff changeset
   428
            else:
424
d19c4a6460ab add a Documentation column to the VariablePanel
b.taylor@willowglen.ca
parents: 422
diff changeset
   429
                self.FilterChoices = ["All",
d19c4a6460ab add a Documentation column to the VariablePanel
b.taylor@willowglen.ca
parents: 422
diff changeset
   430
                                        "Interface", "   Input", "   Output", "   InOut", "   External",
d19c4a6460ab add a Documentation column to the VariablePanel
b.taylor@willowglen.ca
parents: 422
diff changeset
   431
                                        "Variables", "   Local", "   Temp"]#,"Access"]
d19c4a6460ab add a Documentation column to the VariablePanel
b.taylor@willowglen.ca
parents: 422
diff changeset
   432
d19c4a6460ab add a Documentation column to the VariablePanel
b.taylor@willowglen.ca
parents: 422
diff changeset
   433
            # these condense the ColAlignements list
d19c4a6460ab add a Documentation column to the VariablePanel
b.taylor@willowglen.ca
parents: 422
diff changeset
   434
            l = wx.ALIGN_LEFT
d19c4a6460ab add a Documentation column to the VariablePanel
b.taylor@willowglen.ca
parents: 422
diff changeset
   435
            c = wx.ALIGN_CENTER 
d19c4a6460ab add a Documentation column to the VariablePanel
b.taylor@willowglen.ca
parents: 422
diff changeset
   436
483
779a519f78f2 Replace Retain and Constant column in VariablePanel by Option and add the option Non-Retain
laurent
parents: 449
diff changeset
   437
            #                      Num  Name    Class   Type    Loc     Init    Option   Doc
779a519f78f2 Replace Retain and Constant column in VariablePanel by Option and add the option Non-Retain
laurent
parents: 449
diff changeset
   438
            self.ColSizes       = [40,  80,     70,     80,     80,     80,     100,     80]
779a519f78f2 Replace Retain and Constant column in VariablePanel by Option and add the option Non-Retain
laurent
parents: 449
diff changeset
   439
            self.ColAlignements = [c,   l,      l,      l,      l,      l,      l,       l]
424
d19c4a6460ab add a Documentation column to the VariablePanel
b.taylor@willowglen.ca
parents: 422
diff changeset
   440
d19c4a6460ab add a Documentation column to the VariablePanel
b.taylor@willowglen.ca
parents: 422
diff changeset
   441
        else:
d19c4a6460ab add a Documentation column to the VariablePanel
b.taylor@willowglen.ca
parents: 422
diff changeset
   442
            # this is an element that cannot have located variables
418
a06221a0930b split the variable editor panel into its own file
b.taylor@willowglen.ca
parents:
diff changeset
   443
            self.Table = VariableTable(self, [], GetVariableTableColnames(False))
424
d19c4a6460ab add a Documentation column to the VariablePanel
b.taylor@willowglen.ca
parents: 422
diff changeset
   444
418
a06221a0930b split the variable editor panel into its own file
b.taylor@willowglen.ca
parents:
diff changeset
   445
            if element_type == "function":
424
d19c4a6460ab add a Documentation column to the VariablePanel
b.taylor@willowglen.ca
parents: 422
diff changeset
   446
                self.FilterChoices = ["All",
d19c4a6460ab add a Documentation column to the VariablePanel
b.taylor@willowglen.ca
parents: 422
diff changeset
   447
                                        "Interface", "   Input", "   Output", "   InOut",
484
acef952101a5 Adding support for excluding option when not available according to IEC 61131 standard
laurent
parents: 483
diff changeset
   448
                                        "Variables", "   Local"]
418
a06221a0930b split the variable editor panel into its own file
b.taylor@willowglen.ca
parents:
diff changeset
   449
            else:
424
d19c4a6460ab add a Documentation column to the VariablePanel
b.taylor@willowglen.ca
parents: 422
diff changeset
   450
                self.FilterChoices = ["All",
d19c4a6460ab add a Documentation column to the VariablePanel
b.taylor@willowglen.ca
parents: 422
diff changeset
   451
                                        "Interface", "   Input", "   Output", "   InOut", "   External",
d19c4a6460ab add a Documentation column to the VariablePanel
b.taylor@willowglen.ca
parents: 422
diff changeset
   452
                                        "Variables", "   Local", "   Temp"]
d19c4a6460ab add a Documentation column to the VariablePanel
b.taylor@willowglen.ca
parents: 422
diff changeset
   453
d19c4a6460ab add a Documentation column to the VariablePanel
b.taylor@willowglen.ca
parents: 422
diff changeset
   454
            # these condense the ColAlignements list
d19c4a6460ab add a Documentation column to the VariablePanel
b.taylor@willowglen.ca
parents: 422
diff changeset
   455
            l = wx.ALIGN_LEFT
d19c4a6460ab add a Documentation column to the VariablePanel
b.taylor@willowglen.ca
parents: 422
diff changeset
   456
            c = wx.ALIGN_CENTER 
d19c4a6460ab add a Documentation column to the VariablePanel
b.taylor@willowglen.ca
parents: 422
diff changeset
   457
483
779a519f78f2 Replace Retain and Constant column in VariablePanel by Option and add the option Non-Retain
laurent
parents: 449
diff changeset
   458
            #                      Num  Name    Class   Type    Init    Option   Doc
779a519f78f2 Replace Retain and Constant column in VariablePanel by Option and add the option Non-Retain
laurent
parents: 449
diff changeset
   459
            self.ColSizes       = [40,  80,     70,     80,     80,     100,     160]
779a519f78f2 Replace Retain and Constant column in VariablePanel by Option and add the option Non-Retain
laurent
parents: 449
diff changeset
   460
            self.ColAlignements = [c,   l,      l,      l,      l,      l,       l]
424
d19c4a6460ab add a Documentation column to the VariablePanel
b.taylor@willowglen.ca
parents: 422
diff changeset
   461
418
a06221a0930b split the variable editor panel into its own file
b.taylor@willowglen.ca
parents:
diff changeset
   462
        for choice in self.FilterChoices:
a06221a0930b split the variable editor panel into its own file
b.taylor@willowglen.ca
parents:
diff changeset
   463
            self.ClassFilter.Append(_(choice))
424
d19c4a6460ab add a Documentation column to the VariablePanel
b.taylor@willowglen.ca
parents: 422
diff changeset
   464
418
a06221a0930b split the variable editor panel into its own file
b.taylor@willowglen.ca
parents:
diff changeset
   465
        reverse_transfer = {}
a06221a0930b split the variable editor panel into its own file
b.taylor@willowglen.ca
parents:
diff changeset
   466
        for filter, choice in self.FilterChoiceTransfer.items():
a06221a0930b split the variable editor panel into its own file
b.taylor@willowglen.ca
parents:
diff changeset
   467
            reverse_transfer[choice] = filter
a06221a0930b split the variable editor panel into its own file
b.taylor@willowglen.ca
parents:
diff changeset
   468
        self.ClassFilter.SetStringSelection(_(reverse_transfer[self.Filter]))
a06221a0930b split the variable editor panel into its own file
b.taylor@willowglen.ca
parents:
diff changeset
   469
        self.RefreshTypeList()
a06221a0930b split the variable editor panel into its own file
b.taylor@willowglen.ca
parents:
diff changeset
   470
a06221a0930b split the variable editor panel into its own file
b.taylor@willowglen.ca
parents:
diff changeset
   471
        self.VariablesGrid.SetTable(self.Table)
577
9dbb79722fbc Adding support for giving keyboard focus to the first control of every dialogs
laurent
parents: 566
diff changeset
   472
        self.VariablesGrid.SetButtons({"Add": self.AddButton,
9dbb79722fbc Adding support for giving keyboard focus to the first control of every dialogs
laurent
parents: 566
diff changeset
   473
                                       "Delete": self.DeleteButton,
9dbb79722fbc Adding support for giving keyboard focus to the first control of every dialogs
laurent
parents: 566
diff changeset
   474
                                       "Up": self.UpButton,
9dbb79722fbc Adding support for giving keyboard focus to the first control of every dialogs
laurent
parents: 566
diff changeset
   475
                                       "Down": self.DownButton})
600
7db729686416 Making variable panel not editable when showing variables of debugging block
laurent
parents: 595
diff changeset
   476
        self.VariablesGrid.SetEditable(not self.Debug)
577
9dbb79722fbc Adding support for giving keyboard focus to the first control of every dialogs
laurent
parents: 566
diff changeset
   477
        
9dbb79722fbc Adding support for giving keyboard focus to the first control of every dialogs
laurent
parents: 566
diff changeset
   478
        def _AddVariable(new_row):
9dbb79722fbc Adding support for giving keyboard focus to the first control of every dialogs
laurent
parents: 566
diff changeset
   479
            if not self.PouIsUsed or self.Filter not in ["Interface", "Input", "Output", "InOut"]:
9dbb79722fbc Adding support for giving keyboard focus to the first control of every dialogs
laurent
parents: 566
diff changeset
   480
                row_content = self.DefaultValue.copy()
9dbb79722fbc Adding support for giving keyboard focus to the first control of every dialogs
laurent
parents: 566
diff changeset
   481
                if self.Filter in self.DefaultTypes:
9dbb79722fbc Adding support for giving keyboard focus to the first control of every dialogs
laurent
parents: 566
diff changeset
   482
                    row_content["Class"] = self.DefaultTypes[self.Filter]
9dbb79722fbc Adding support for giving keyboard focus to the first control of every dialogs
laurent
parents: 566
diff changeset
   483
                else:
9dbb79722fbc Adding support for giving keyboard focus to the first control of every dialogs
laurent
parents: 566
diff changeset
   484
                    row_content["Class"] = self.Filter
9dbb79722fbc Adding support for giving keyboard focus to the first control of every dialogs
laurent
parents: 566
diff changeset
   485
                if self.Filter == "All" and len(self.Values) > 0:
9dbb79722fbc Adding support for giving keyboard focus to the first control of every dialogs
laurent
parents: 566
diff changeset
   486
                    self.Values.insert(new_row, row_content)
9dbb79722fbc Adding support for giving keyboard focus to the first control of every dialogs
laurent
parents: 566
diff changeset
   487
                else:
9dbb79722fbc Adding support for giving keyboard focus to the first control of every dialogs
laurent
parents: 566
diff changeset
   488
                    self.Values.append(row_content)
9dbb79722fbc Adding support for giving keyboard focus to the first control of every dialogs
laurent
parents: 566
diff changeset
   489
                    new_row = self.Table.GetNumberRows()
9dbb79722fbc Adding support for giving keyboard focus to the first control of every dialogs
laurent
parents: 566
diff changeset
   490
                self.SaveValues()
9dbb79722fbc Adding support for giving keyboard focus to the first control of every dialogs
laurent
parents: 566
diff changeset
   491
                self.RefreshValues()
9dbb79722fbc Adding support for giving keyboard focus to the first control of every dialogs
laurent
parents: 566
diff changeset
   492
                return new_row
9dbb79722fbc Adding support for giving keyboard focus to the first control of every dialogs
laurent
parents: 566
diff changeset
   493
            return self.VariablesGrid.GetGridCursorRow()
9dbb79722fbc Adding support for giving keyboard focus to the first control of every dialogs
laurent
parents: 566
diff changeset
   494
        setattr(self.VariablesGrid, "_AddRow", _AddVariable)
9dbb79722fbc Adding support for giving keyboard focus to the first control of every dialogs
laurent
parents: 566
diff changeset
   495
        
9dbb79722fbc Adding support for giving keyboard focus to the first control of every dialogs
laurent
parents: 566
diff changeset
   496
        def _DeleteVariable(row):
9dbb79722fbc Adding support for giving keyboard focus to the first control of every dialogs
laurent
parents: 566
diff changeset
   497
            if (self.Table.GetValueByName(row, "Edit") and 
9dbb79722fbc Adding support for giving keyboard focus to the first control of every dialogs
laurent
parents: 566
diff changeset
   498
                (not self.PouIsUsed or self.Table.GetValueByName(row, "Class") not in ["Input", "Output", "InOut"])):
9dbb79722fbc Adding support for giving keyboard focus to the first control of every dialogs
laurent
parents: 566
diff changeset
   499
                self.Values.remove(self.Table.GetRow(row))
9dbb79722fbc Adding support for giving keyboard focus to the first control of every dialogs
laurent
parents: 566
diff changeset
   500
                self.SaveValues()
9dbb79722fbc Adding support for giving keyboard focus to the first control of every dialogs
laurent
parents: 566
diff changeset
   501
                self.RefreshValues()
9dbb79722fbc Adding support for giving keyboard focus to the first control of every dialogs
laurent
parents: 566
diff changeset
   502
        setattr(self.VariablesGrid, "_DeleteRow", _DeleteVariable)
9dbb79722fbc Adding support for giving keyboard focus to the first control of every dialogs
laurent
parents: 566
diff changeset
   503
            
9dbb79722fbc Adding support for giving keyboard focus to the first control of every dialogs
laurent
parents: 566
diff changeset
   504
        def _MoveVariable(row, move):
9dbb79722fbc Adding support for giving keyboard focus to the first control of every dialogs
laurent
parents: 566
diff changeset
   505
            if (self.Filter == "All" and 
9dbb79722fbc Adding support for giving keyboard focus to the first control of every dialogs
laurent
parents: 566
diff changeset
   506
                (not self.PouIsUsed or self.Table.GetValueByName(row, "Class") not in ["Input", "Output", "InOut"])):
9dbb79722fbc Adding support for giving keyboard focus to the first control of every dialogs
laurent
parents: 566
diff changeset
   507
                new_row = max(0, min(row + move, len(self.Values) - 1))
9dbb79722fbc Adding support for giving keyboard focus to the first control of every dialogs
laurent
parents: 566
diff changeset
   508
                if new_row != row:
9dbb79722fbc Adding support for giving keyboard focus to the first control of every dialogs
laurent
parents: 566
diff changeset
   509
                    self.Values.insert(new_row, self.Values.pop(row))
9dbb79722fbc Adding support for giving keyboard focus to the first control of every dialogs
laurent
parents: 566
diff changeset
   510
                    self.SaveValues()
9dbb79722fbc Adding support for giving keyboard focus to the first control of every dialogs
laurent
parents: 566
diff changeset
   511
                    self.RefreshValues()
9dbb79722fbc Adding support for giving keyboard focus to the first control of every dialogs
laurent
parents: 566
diff changeset
   512
                return new_row
9dbb79722fbc Adding support for giving keyboard focus to the first control of every dialogs
laurent
parents: 566
diff changeset
   513
            return row
9dbb79722fbc Adding support for giving keyboard focus to the first control of every dialogs
laurent
parents: 566
diff changeset
   514
        setattr(self.VariablesGrid, "_MoveRow", _MoveVariable)
9dbb79722fbc Adding support for giving keyboard focus to the first control of every dialogs
laurent
parents: 566
diff changeset
   515
        
9dbb79722fbc Adding support for giving keyboard focus to the first control of every dialogs
laurent
parents: 566
diff changeset
   516
        def _RefreshButtons():
418
a06221a0930b split the variable editor panel into its own file
b.taylor@willowglen.ca
parents:
diff changeset
   517
            table_length = len(self.Table.data)
a06221a0930b split the variable editor panel into its own file
b.taylor@willowglen.ca
parents:
diff changeset
   518
            row_class = None
a06221a0930b split the variable editor panel into its own file
b.taylor@willowglen.ca
parents:
diff changeset
   519
            row_edit = True
496
5ff24ccff2c7 Disable Up and Down buttons when not useful
laurent
parents: 494
diff changeset
   520
            row = 0
418
a06221a0930b split the variable editor panel into its own file
b.taylor@willowglen.ca
parents:
diff changeset
   521
            if table_length > 0:
a06221a0930b split the variable editor panel into its own file
b.taylor@willowglen.ca
parents:
diff changeset
   522
                row = self.VariablesGrid.GetGridCursorRow()
a06221a0930b split the variable editor panel into its own file
b.taylor@willowglen.ca
parents:
diff changeset
   523
                row_edit = self.Table.GetValueByName(row, "Edit")
a06221a0930b split the variable editor panel into its own file
b.taylor@willowglen.ca
parents:
diff changeset
   524
                if self.PouIsUsed:
a06221a0930b split the variable editor panel into its own file
b.taylor@willowglen.ca
parents:
diff changeset
   525
                    row_class = self.Table.GetValueByName(row, "Class")
600
7db729686416 Making variable panel not editable when showing variables of debugging block
laurent
parents: 595
diff changeset
   526
            self.AddButton.Enable(not self.Debug and (not self.PouIsUsed or self.Filter not in ["Interface", "Input", "Output", "InOut"]))
7db729686416 Making variable panel not editable when showing variables of debugging block
laurent
parents: 595
diff changeset
   527
            self.DeleteButton.Enable(not self.Debug and (table_length > 0 and row_edit and row_class not in ["Input", "Output", "InOut"]))
7db729686416 Making variable panel not editable when showing variables of debugging block
laurent
parents: 595
diff changeset
   528
            self.UpButton.Enable(not self.Debug and (table_length > 0 and row > 0 and self.Filter == "All" and row_class not in ["Input", "Output", "InOut"]))
7db729686416 Making variable panel not editable when showing variables of debugging block
laurent
parents: 595
diff changeset
   529
            self.DownButton.Enable(not self.Debug and (table_length > 0 and row < table_length - 1 and self.Filter == "All" and row_class not in ["Input", "Output", "InOut"]))
577
9dbb79722fbc Adding support for giving keyboard focus to the first control of every dialogs
laurent
parents: 566
diff changeset
   530
        setattr(self.VariablesGrid, "RefreshButtons", _RefreshButtons)
9dbb79722fbc Adding support for giving keyboard focus to the first control of every dialogs
laurent
parents: 566
diff changeset
   531
        
9dbb79722fbc Adding support for giving keyboard focus to the first control of every dialogs
laurent
parents: 566
diff changeset
   532
        self.VariablesGrid.SetRowLabelSize(0)
9dbb79722fbc Adding support for giving keyboard focus to the first control of every dialogs
laurent
parents: 566
diff changeset
   533
        for col in range(self.Table.GetNumberCols()):
9dbb79722fbc Adding support for giving keyboard focus to the first control of every dialogs
laurent
parents: 566
diff changeset
   534
            attr = wx.grid.GridCellAttr()
9dbb79722fbc Adding support for giving keyboard focus to the first control of every dialogs
laurent
parents: 566
diff changeset
   535
            attr.SetAlignment(self.ColAlignements[col], wx.ALIGN_CENTRE)
9dbb79722fbc Adding support for giving keyboard focus to the first control of every dialogs
laurent
parents: 566
diff changeset
   536
            self.VariablesGrid.SetColAttr(col, attr)
9dbb79722fbc Adding support for giving keyboard focus to the first control of every dialogs
laurent
parents: 566
diff changeset
   537
            self.VariablesGrid.SetColMinimalWidth(col, self.ColSizes[col])
9dbb79722fbc Adding support for giving keyboard focus to the first control of every dialogs
laurent
parents: 566
diff changeset
   538
            self.VariablesGrid.AutoSizeColumn(col, False)
9dbb79722fbc Adding support for giving keyboard focus to the first control of every dialogs
laurent
parents: 566
diff changeset
   539
    
9dbb79722fbc Adding support for giving keyboard focus to the first control of every dialogs
laurent
parents: 566
diff changeset
   540
    def __del__(self):
9dbb79722fbc Adding support for giving keyboard focus to the first control of every dialogs
laurent
parents: 566
diff changeset
   541
        self.RefreshHighlightsTimer.Stop()
9dbb79722fbc Adding support for giving keyboard focus to the first control of every dialogs
laurent
parents: 566
diff changeset
   542
    
9dbb79722fbc Adding support for giving keyboard focus to the first control of every dialogs
laurent
parents: 566
diff changeset
   543
    def SetTagName(self, tagname):
9dbb79722fbc Adding support for giving keyboard focus to the first control of every dialogs
laurent
parents: 566
diff changeset
   544
        self.TagName = tagname
9dbb79722fbc Adding support for giving keyboard focus to the first control of every dialogs
laurent
parents: 566
diff changeset
   545
    
9dbb79722fbc Adding support for giving keyboard focus to the first control of every dialogs
laurent
parents: 566
diff changeset
   546
    def IsFunctionBlockType(self, name):
9dbb79722fbc Adding support for giving keyboard focus to the first control of every dialogs
laurent
parents: 566
diff changeset
   547
        bodytype = self.Controler.GetEditedElementBodyType(self.TagName)
9dbb79722fbc Adding support for giving keyboard focus to the first control of every dialogs
laurent
parents: 566
diff changeset
   548
        pouname, poutype = self.Controler.GetEditedElementType(self.TagName)
9dbb79722fbc Adding support for giving keyboard focus to the first control of every dialogs
laurent
parents: 566
diff changeset
   549
        if poutype != "function" and bodytype in ["ST", "IL"]:
9dbb79722fbc Adding support for giving keyboard focus to the first control of every dialogs
laurent
parents: 566
diff changeset
   550
            return False
9dbb79722fbc Adding support for giving keyboard focus to the first control of every dialogs
laurent
parents: 566
diff changeset
   551
        else:
9dbb79722fbc Adding support for giving keyboard focus to the first control of every dialogs
laurent
parents: 566
diff changeset
   552
            return name in self.Controler.GetFunctionBlockTypes(self.TagName)
9dbb79722fbc Adding support for giving keyboard focus to the first control of every dialogs
laurent
parents: 566
diff changeset
   553
    
9dbb79722fbc Adding support for giving keyboard focus to the first control of every dialogs
laurent
parents: 566
diff changeset
   554
    def RefreshView(self):
600
7db729686416 Making variable panel not editable when showing variables of debugging block
laurent
parents: 595
diff changeset
   555
        self.PouNames = self.Controler.GetProjectPouNames(self.Debug)
577
9dbb79722fbc Adding support for giving keyboard focus to the first control of every dialogs
laurent
parents: 566
diff changeset
   556
        
9dbb79722fbc Adding support for giving keyboard focus to the first control of every dialogs
laurent
parents: 566
diff changeset
   557
        words = self.TagName.split("::")
9dbb79722fbc Adding support for giving keyboard focus to the first control of every dialogs
laurent
parents: 566
diff changeset
   558
        if self.ElementType == "config":
9dbb79722fbc Adding support for giving keyboard focus to the first control of every dialogs
laurent
parents: 566
diff changeset
   559
            self.PouIsUsed = False
9dbb79722fbc Adding support for giving keyboard focus to the first control of every dialogs
laurent
parents: 566
diff changeset
   560
            returnType = None
600
7db729686416 Making variable panel not editable when showing variables of debugging block
laurent
parents: 595
diff changeset
   561
            self.Values = self.Controler.GetConfigurationGlobalVars(words[1], self.Debug)
577
9dbb79722fbc Adding support for giving keyboard focus to the first control of every dialogs
laurent
parents: 566
diff changeset
   562
        elif self.ElementType == "resource":
9dbb79722fbc Adding support for giving keyboard focus to the first control of every dialogs
laurent
parents: 566
diff changeset
   563
            self.PouIsUsed = False
9dbb79722fbc Adding support for giving keyboard focus to the first control of every dialogs
laurent
parents: 566
diff changeset
   564
            returnType = None
600
7db729686416 Making variable panel not editable when showing variables of debugging block
laurent
parents: 595
diff changeset
   565
            self.Values = self.Controler.GetConfigurationResourceGlobalVars(words[1], words[2], self.Debug)
577
9dbb79722fbc Adding support for giving keyboard focus to the first control of every dialogs
laurent
parents: 566
diff changeset
   566
        else:
9dbb79722fbc Adding support for giving keyboard focus to the first control of every dialogs
laurent
parents: 566
diff changeset
   567
            if self.ElementType == "function":
9dbb79722fbc Adding support for giving keyboard focus to the first control of every dialogs
laurent
parents: 566
diff changeset
   568
                self.ReturnType.Clear()
600
7db729686416 Making variable panel not editable when showing variables of debugging block
laurent
parents: 595
diff changeset
   569
                for base_type in self.Controler.GetDataTypes(self.TagName, True, debug=self.Debug):
577
9dbb79722fbc Adding support for giving keyboard focus to the first control of every dialogs
laurent
parents: 566
diff changeset
   570
                    self.ReturnType.Append(base_type)
9dbb79722fbc Adding support for giving keyboard focus to the first control of every dialogs
laurent
parents: 566
diff changeset
   571
                returnType = self.Controler.GetEditedElementInterfaceReturnType(self.TagName)
9dbb79722fbc Adding support for giving keyboard focus to the first control of every dialogs
laurent
parents: 566
diff changeset
   572
            else:
9dbb79722fbc Adding support for giving keyboard focus to the first control of every dialogs
laurent
parents: 566
diff changeset
   573
                returnType = None
9dbb79722fbc Adding support for giving keyboard focus to the first control of every dialogs
laurent
parents: 566
diff changeset
   574
            self.PouIsUsed = self.Controler.PouIsUsed(words[1])
600
7db729686416 Making variable panel not editable when showing variables of debugging block
laurent
parents: 595
diff changeset
   575
            self.Values = self.Controler.GetEditedElementInterfaceVars(self.TagName, self.Debug)
577
9dbb79722fbc Adding support for giving keyboard focus to the first control of every dialogs
laurent
parents: 566
diff changeset
   576
        
9dbb79722fbc Adding support for giving keyboard focus to the first control of every dialogs
laurent
parents: 566
diff changeset
   577
        if returnType is not None:
9dbb79722fbc Adding support for giving keyboard focus to the first control of every dialogs
laurent
parents: 566
diff changeset
   578
            self.ReturnType.SetStringSelection(returnType)
600
7db729686416 Making variable panel not editable when showing variables of debugging block
laurent
parents: 595
diff changeset
   579
            self.ReturnType.Enable(self.Debug)
577
9dbb79722fbc Adding support for giving keyboard focus to the first control of every dialogs
laurent
parents: 566
diff changeset
   580
            self.staticText1.Show()
9dbb79722fbc Adding support for giving keyboard focus to the first control of every dialogs
laurent
parents: 566
diff changeset
   581
            self.ReturnType.Show()
9dbb79722fbc Adding support for giving keyboard focus to the first control of every dialogs
laurent
parents: 566
diff changeset
   582
        else:
9dbb79722fbc Adding support for giving keyboard focus to the first control of every dialogs
laurent
parents: 566
diff changeset
   583
            self.ReturnType.Enable(False)
9dbb79722fbc Adding support for giving keyboard focus to the first control of every dialogs
laurent
parents: 566
diff changeset
   584
            self.staticText1.Hide()
9dbb79722fbc Adding support for giving keyboard focus to the first control of every dialogs
laurent
parents: 566
diff changeset
   585
            self.ReturnType.Hide()
9dbb79722fbc Adding support for giving keyboard focus to the first control of every dialogs
laurent
parents: 566
diff changeset
   586
        
9dbb79722fbc Adding support for giving keyboard focus to the first control of every dialogs
laurent
parents: 566
diff changeset
   587
        self.RefreshValues()
9dbb79722fbc Adding support for giving keyboard focus to the first control of every dialogs
laurent
parents: 566
diff changeset
   588
        self.VariablesGrid.RefreshButtons()
9dbb79722fbc Adding support for giving keyboard focus to the first control of every dialogs
laurent
parents: 566
diff changeset
   589
    
9dbb79722fbc Adding support for giving keyboard focus to the first control of every dialogs
laurent
parents: 566
diff changeset
   590
    def OnReturnTypeChanged(self, event):
9dbb79722fbc Adding support for giving keyboard focus to the first control of every dialogs
laurent
parents: 566
diff changeset
   591
        words = self.TagName.split("::")
9dbb79722fbc Adding support for giving keyboard focus to the first control of every dialogs
laurent
parents: 566
diff changeset
   592
        self.Controler.SetPouInterfaceReturnType(words[1], self.ReturnType.GetStringSelection())
9dbb79722fbc Adding support for giving keyboard focus to the first control of every dialogs
laurent
parents: 566
diff changeset
   593
        self.Controler.BufferProject()
586
9aa96a36cf33 Moving variable panel from bottom notebook panel to POU editor panel
laurent
parents: 580
diff changeset
   594
        self.ParentWindow.RefreshView(variablepanel = False)
577
9dbb79722fbc Adding support for giving keyboard focus to the first control of every dialogs
laurent
parents: 566
diff changeset
   595
        self.ParentWindow._Refresh(TITLE, FILEMENU, EDITMENU, INSTANCESTREE, LIBRARYTREE)
418
a06221a0930b split the variable editor panel into its own file
b.taylor@willowglen.ca
parents:
diff changeset
   596
        event.Skip()
577
9dbb79722fbc Adding support for giving keyboard focus to the first control of every dialogs
laurent
parents: 566
diff changeset
   597
    
9dbb79722fbc Adding support for giving keyboard focus to the first control of every dialogs
laurent
parents: 566
diff changeset
   598
    def OnClassFilter(self, event):
9dbb79722fbc Adding support for giving keyboard focus to the first control of every dialogs
laurent
parents: 566
diff changeset
   599
        self.Filter = self.FilterChoiceTransfer[VARIABLE_CHOICES_DICT[self.ClassFilter.GetStringSelection()]]
9dbb79722fbc Adding support for giving keyboard focus to the first control of every dialogs
laurent
parents: 566
diff changeset
   600
        self.RefreshTypeList()
9dbb79722fbc Adding support for giving keyboard focus to the first control of every dialogs
laurent
parents: 566
diff changeset
   601
        self.RefreshValues()
9dbb79722fbc Adding support for giving keyboard focus to the first control of every dialogs
laurent
parents: 566
diff changeset
   602
        self.VariablesGrid.RefreshButtons()
418
a06221a0930b split the variable editor panel into its own file
b.taylor@willowglen.ca
parents:
diff changeset
   603
        event.Skip()
a06221a0930b split the variable editor panel into its own file
b.taylor@willowglen.ca
parents:
diff changeset
   604
577
9dbb79722fbc Adding support for giving keyboard focus to the first control of every dialogs
laurent
parents: 566
diff changeset
   605
    def RefreshTypeList(self):
9dbb79722fbc Adding support for giving keyboard focus to the first control of every dialogs
laurent
parents: 566
diff changeset
   606
        if self.Filter == "All":
9dbb79722fbc Adding support for giving keyboard focus to the first control of every dialogs
laurent
parents: 566
diff changeset
   607
            self.ClassList = [self.FilterChoiceTransfer[choice] for choice in self.FilterChoices if self.FilterChoiceTransfer[choice] not in ["All","Interface","Variables"]]
9dbb79722fbc Adding support for giving keyboard focus to the first control of every dialogs
laurent
parents: 566
diff changeset
   608
        elif self.Filter == "Interface":
9dbb79722fbc Adding support for giving keyboard focus to the first control of every dialogs
laurent
parents: 566
diff changeset
   609
            self.ClassList = ["Input","Output","InOut","External"]
9dbb79722fbc Adding support for giving keyboard focus to the first control of every dialogs
laurent
parents: 566
diff changeset
   610
        elif self.Filter == "Variables":
9dbb79722fbc Adding support for giving keyboard focus to the first control of every dialogs
laurent
parents: 566
diff changeset
   611
            self.ClassList = ["Local","Temp"]
9dbb79722fbc Adding support for giving keyboard focus to the first control of every dialogs
laurent
parents: 566
diff changeset
   612
        else:
9dbb79722fbc Adding support for giving keyboard focus to the first control of every dialogs
laurent
parents: 566
diff changeset
   613
            self.ClassList = [self.Filter]
418
a06221a0930b split the variable editor panel into its own file
b.taylor@willowglen.ca
parents:
diff changeset
   614
a06221a0930b split the variable editor panel into its own file
b.taylor@willowglen.ca
parents:
diff changeset
   615
    def OnVariablesGridCellChange(self, event):
a06221a0930b split the variable editor panel into its own file
b.taylor@willowglen.ca
parents:
diff changeset
   616
        row, col = event.GetRow(), event.GetCol()
431
c1c92d068ac5 Changes merged
'Laurent Bessard <laurent.bessard@lolitech.fr>'
parents: 427
diff changeset
   617
        colname = self.Table.GetColLabelValue(col, False)
418
a06221a0930b split the variable editor panel into its own file
b.taylor@willowglen.ca
parents:
diff changeset
   618
        value = self.Table.GetValue(row, col)
422
31c3dc45cfab introduced BrowseVariableLocationsDialog and the GridCellEditor that launches it.
b.taylor@willowglen.ca
parents: 419
diff changeset
   619
418
a06221a0930b split the variable editor panel into its own file
b.taylor@willowglen.ca
parents:
diff changeset
   620
        if colname == "Name" and value != "":
a06221a0930b split the variable editor panel into its own file
b.taylor@willowglen.ca
parents:
diff changeset
   621
            if not TestIdentifier(value):
a06221a0930b split the variable editor panel into its own file
b.taylor@willowglen.ca
parents:
diff changeset
   622
                message = wx.MessageDialog(self, _("\"%s\" is not a valid identifier!")%value, _("Error"), wx.OK|wx.ICON_ERROR)
a06221a0930b split the variable editor panel into its own file
b.taylor@willowglen.ca
parents:
diff changeset
   623
                message.ShowModal()
a06221a0930b split the variable editor panel into its own file
b.taylor@willowglen.ca
parents:
diff changeset
   624
                message.Destroy()
a06221a0930b split the variable editor panel into its own file
b.taylor@willowglen.ca
parents:
diff changeset
   625
                event.Veto()
a06221a0930b split the variable editor panel into its own file
b.taylor@willowglen.ca
parents:
diff changeset
   626
            elif value.upper() in IEC_KEYWORDS:
a06221a0930b split the variable editor panel into its own file
b.taylor@willowglen.ca
parents:
diff changeset
   627
                message = wx.MessageDialog(self, _("\"%s\" is a keyword. It can't be used!")%value, _("Error"), wx.OK|wx.ICON_ERROR)
a06221a0930b split the variable editor panel into its own file
b.taylor@willowglen.ca
parents:
diff changeset
   628
                message.ShowModal()
a06221a0930b split the variable editor panel into its own file
b.taylor@willowglen.ca
parents:
diff changeset
   629
                message.Destroy()
a06221a0930b split the variable editor panel into its own file
b.taylor@willowglen.ca
parents:
diff changeset
   630
                event.Veto()
a06221a0930b split the variable editor panel into its own file
b.taylor@willowglen.ca
parents:
diff changeset
   631
            elif value.upper() in self.PouNames:
446
0dd1a5f2a7a1 Update internationalization
laurent
parents: 443
diff changeset
   632
                message = wx.MessageDialog(self, _("A POU named \"%s\" already exists!")%value, _("Error"), wx.OK|wx.ICON_ERROR)
418
a06221a0930b split the variable editor panel into its own file
b.taylor@willowglen.ca
parents:
diff changeset
   633
                message.ShowModal()
a06221a0930b split the variable editor panel into its own file
b.taylor@willowglen.ca
parents:
diff changeset
   634
                message.Destroy()
a06221a0930b split the variable editor panel into its own file
b.taylor@willowglen.ca
parents:
diff changeset
   635
                event.Veto()
a06221a0930b split the variable editor panel into its own file
b.taylor@willowglen.ca
parents:
diff changeset
   636
            elif value.upper() in [var["Name"].upper() for var in self.Values if var != self.Table.data[row]]:
a06221a0930b split the variable editor panel into its own file
b.taylor@willowglen.ca
parents:
diff changeset
   637
                message = wx.MessageDialog(self, _("A variable with \"%s\" as name already exists in this pou!")%value, _("Error"), wx.OK|wx.ICON_ERROR)
a06221a0930b split the variable editor panel into its own file
b.taylor@willowglen.ca
parents:
diff changeset
   638
                message.ShowModal()
a06221a0930b split the variable editor panel into its own file
b.taylor@willowglen.ca
parents:
diff changeset
   639
                message.Destroy()
a06221a0930b split the variable editor panel into its own file
b.taylor@willowglen.ca
parents:
diff changeset
   640
                event.Veto()
a06221a0930b split the variable editor panel into its own file
b.taylor@willowglen.ca
parents:
diff changeset
   641
            else:
a06221a0930b split the variable editor panel into its own file
b.taylor@willowglen.ca
parents:
diff changeset
   642
                self.SaveValues(False)
a06221a0930b split the variable editor panel into its own file
b.taylor@willowglen.ca
parents:
diff changeset
   643
                old_value = self.Table.GetOldValue()
a06221a0930b split the variable editor panel into its own file
b.taylor@willowglen.ca
parents:
diff changeset
   644
                if old_value != "":
a06221a0930b split the variable editor panel into its own file
b.taylor@willowglen.ca
parents:
diff changeset
   645
                    self.Controler.UpdateEditedElementUsedVariable(self.TagName, old_value, value)
a06221a0930b split the variable editor panel into its own file
b.taylor@willowglen.ca
parents:
diff changeset
   646
                self.Controler.BufferProject()
586
9aa96a36cf33 Moving variable panel from bottom notebook panel to POU editor panel
laurent
parents: 580
diff changeset
   647
                self.ParentWindow.RefreshView(variablepanel = False)
483
779a519f78f2 Replace Retain and Constant column in VariablePanel by Option and add the option Non-Retain
laurent
parents: 449
diff changeset
   648
                self.ParentWindow._Refresh(TITLE, FILEMENU, EDITMENU, INSTANCESTREE, LIBRARYTREE)
418
a06221a0930b split the variable editor panel into its own file
b.taylor@willowglen.ca
parents:
diff changeset
   649
                event.Skip()
a06221a0930b split the variable editor panel into its own file
b.taylor@willowglen.ca
parents:
diff changeset
   650
        else:
a06221a0930b split the variable editor panel into its own file
b.taylor@willowglen.ca
parents:
diff changeset
   651
            self.SaveValues()
a06221a0930b split the variable editor panel into its own file
b.taylor@willowglen.ca
parents:
diff changeset
   652
            if colname == "Class":
586
9aa96a36cf33 Moving variable panel from bottom notebook panel to POU editor panel
laurent
parents: 580
diff changeset
   653
                self.ParentWindow.RefreshView(variablepanel = False)
418
a06221a0930b split the variable editor panel into its own file
b.taylor@willowglen.ca
parents:
diff changeset
   654
            event.Skip()
a06221a0930b split the variable editor panel into its own file
b.taylor@willowglen.ca
parents:
diff changeset
   655
    
a06221a0930b split the variable editor panel into its own file
b.taylor@willowglen.ca
parents:
diff changeset
   656
    def OnVariablesGridEditorShown(self, event):
a06221a0930b split the variable editor panel into its own file
b.taylor@willowglen.ca
parents:
diff changeset
   657
        row, col = event.GetRow(), event.GetCol() 
422
31c3dc45cfab introduced BrowseVariableLocationsDialog and the GridCellEditor that launches it.
b.taylor@willowglen.ca
parents: 419
diff changeset
   658
31c3dc45cfab introduced BrowseVariableLocationsDialog and the GridCellEditor that launches it.
b.taylor@willowglen.ca
parents: 419
diff changeset
   659
        label_value = self.Table.GetColLabelValue(col)
31c3dc45cfab introduced BrowseVariableLocationsDialog and the GridCellEditor that launches it.
b.taylor@willowglen.ca
parents: 419
diff changeset
   660
        if label_value == "Type":
31c3dc45cfab introduced BrowseVariableLocationsDialog and the GridCellEditor that launches it.
b.taylor@willowglen.ca
parents: 419
diff changeset
   661
            type_menu = wx.Menu(title='')   # the root menu
31c3dc45cfab introduced BrowseVariableLocationsDialog and the GridCellEditor that launches it.
b.taylor@willowglen.ca
parents: 419
diff changeset
   662
31c3dc45cfab introduced BrowseVariableLocationsDialog and the GridCellEditor that launches it.
b.taylor@willowglen.ca
parents: 419
diff changeset
   663
            # build a submenu containing standard IEC types
418
a06221a0930b split the variable editor panel into its own file
b.taylor@willowglen.ca
parents:
diff changeset
   664
            base_menu = wx.Menu(title='')
a06221a0930b split the variable editor panel into its own file
b.taylor@willowglen.ca
parents:
diff changeset
   665
            for base_type in self.Controler.GetBaseTypes():
a06221a0930b split the variable editor panel into its own file
b.taylor@willowglen.ca
parents:
diff changeset
   666
                new_id = wx.NewId()
a06221a0930b split the variable editor panel into its own file
b.taylor@willowglen.ca
parents:
diff changeset
   667
                AppendMenu(base_menu, help='', id=new_id, kind=wx.ITEM_NORMAL, text=base_type)
a06221a0930b split the variable editor panel into its own file
b.taylor@willowglen.ca
parents:
diff changeset
   668
                self.Bind(wx.EVT_MENU, self.GetVariableTypeFunction(base_type), id=new_id)
422
31c3dc45cfab introduced BrowseVariableLocationsDialog and the GridCellEditor that launches it.
b.taylor@willowglen.ca
parents: 419
diff changeset
   669
418
a06221a0930b split the variable editor panel into its own file
b.taylor@willowglen.ca
parents:
diff changeset
   670
            type_menu.AppendMenu(wx.NewId(), _("Base Types"), base_menu)
422
31c3dc45cfab introduced BrowseVariableLocationsDialog and the GridCellEditor that launches it.
b.taylor@willowglen.ca
parents: 419
diff changeset
   671
31c3dc45cfab introduced BrowseVariableLocationsDialog and the GridCellEditor that launches it.
b.taylor@willowglen.ca
parents: 419
diff changeset
   672
            # build a submenu containing user-defined types
418
a06221a0930b split the variable editor panel into its own file
b.taylor@willowglen.ca
parents:
diff changeset
   673
            datatype_menu = wx.Menu(title='')
484
acef952101a5 Adding support for excluding option when not available according to IEC 61131 standard
laurent
parents: 483
diff changeset
   674
            
acef952101a5 Adding support for excluding option when not available according to IEC 61131 standard
laurent
parents: 483
diff changeset
   675
            # TODO : remove complextypes argument when matiec can manage complex types in pou interface
491
d22a4a95fd5e Remove limitation on complex types in POU interface
laurent
parents: 484
diff changeset
   676
            datatypes = self.Controler.GetDataTypes(basetypes = False)
422
31c3dc45cfab introduced BrowseVariableLocationsDialog and the GridCellEditor that launches it.
b.taylor@willowglen.ca
parents: 419
diff changeset
   677
            for datatype in datatypes:
418
a06221a0930b split the variable editor panel into its own file
b.taylor@willowglen.ca
parents:
diff changeset
   678
                new_id = wx.NewId()
a06221a0930b split the variable editor panel into its own file
b.taylor@willowglen.ca
parents:
diff changeset
   679
                AppendMenu(datatype_menu, help='', id=new_id, kind=wx.ITEM_NORMAL, text=datatype)
a06221a0930b split the variable editor panel into its own file
b.taylor@willowglen.ca
parents:
diff changeset
   680
                self.Bind(wx.EVT_MENU, self.GetVariableTypeFunction(datatype), id=new_id)
422
31c3dc45cfab introduced BrowseVariableLocationsDialog and the GridCellEditor that launches it.
b.taylor@willowglen.ca
parents: 419
diff changeset
   681
418
a06221a0930b split the variable editor panel into its own file
b.taylor@willowglen.ca
parents:
diff changeset
   682
            type_menu.AppendMenu(wx.NewId(), _("User Data Types"), datatype_menu)
422
31c3dc45cfab introduced BrowseVariableLocationsDialog and the GridCellEditor that launches it.
b.taylor@willowglen.ca
parents: 419
diff changeset
   683
31c3dc45cfab introduced BrowseVariableLocationsDialog and the GridCellEditor that launches it.
b.taylor@willowglen.ca
parents: 419
diff changeset
   684
            # build a submenu containing function block types
431
c1c92d068ac5 Changes merged
'Laurent Bessard <laurent.bessard@lolitech.fr>'
parents: 427
diff changeset
   685
            bodytype = self.Controler.GetEditedElementBodyType(self.TagName)
c1c92d068ac5 Changes merged
'Laurent Bessard <laurent.bessard@lolitech.fr>'
parents: 427
diff changeset
   686
            pouname, poutype = self.Controler.GetEditedElementType(self.TagName)
422
31c3dc45cfab introduced BrowseVariableLocationsDialog and the GridCellEditor that launches it.
b.taylor@willowglen.ca
parents: 419
diff changeset
   687
            classtype = self.Table.GetValueByName(row, "Class")
507
42150e041dbe Adding support for direct array variable declaration in variable panel (still disable cause matiec doesn't support this feature)
laurent
parents: 496
diff changeset
   688
            
556
69214983dd03 Enabling support for direct array variable declaration
laurent
parents: 552
diff changeset
   689
            new_id = wx.NewId()
69214983dd03 Enabling support for direct array variable declaration
laurent
parents: 552
diff changeset
   690
            AppendMenu(type_menu, help='', id=new_id, kind=wx.ITEM_NORMAL, text=_("Array"))
69214983dd03 Enabling support for direct array variable declaration
laurent
parents: 552
diff changeset
   691
            self.Bind(wx.EVT_MENU, self.VariableArrayTypeFunction, id=new_id)
507
42150e041dbe Adding support for direct array variable declaration in variable panel (still disable cause matiec doesn't support this feature)
laurent
parents: 496
diff changeset
   692
            
422
31c3dc45cfab introduced BrowseVariableLocationsDialog and the GridCellEditor that launches it.
b.taylor@willowglen.ca
parents: 419
diff changeset
   693
            if classtype in ["Input", "Output", "InOut", "External", "Global"] or \
31c3dc45cfab introduced BrowseVariableLocationsDialog and the GridCellEditor that launches it.
b.taylor@willowglen.ca
parents: 419
diff changeset
   694
            poutype != "function" and bodytype in ["ST", "IL"]:
31c3dc45cfab introduced BrowseVariableLocationsDialog and the GridCellEditor that launches it.
b.taylor@willowglen.ca
parents: 419
diff changeset
   695
                functionblock_menu = wx.Menu(title='')
431
c1c92d068ac5 Changes merged
'Laurent Bessard <laurent.bessard@lolitech.fr>'
parents: 427
diff changeset
   696
                fbtypes = self.Controler.GetFunctionBlockTypes(self.TagName)
422
31c3dc45cfab introduced BrowseVariableLocationsDialog and the GridCellEditor that launches it.
b.taylor@willowglen.ca
parents: 419
diff changeset
   697
                for functionblock_type in fbtypes:
418
a06221a0930b split the variable editor panel into its own file
b.taylor@willowglen.ca
parents:
diff changeset
   698
                    new_id = wx.NewId()
a06221a0930b split the variable editor panel into its own file
b.taylor@willowglen.ca
parents:
diff changeset
   699
                    AppendMenu(functionblock_menu, help='', id=new_id, kind=wx.ITEM_NORMAL, text=functionblock_type)
a06221a0930b split the variable editor panel into its own file
b.taylor@willowglen.ca
parents:
diff changeset
   700
                    self.Bind(wx.EVT_MENU, self.GetVariableTypeFunction(functionblock_type), id=new_id)
422
31c3dc45cfab introduced BrowseVariableLocationsDialog and the GridCellEditor that launches it.
b.taylor@willowglen.ca
parents: 419
diff changeset
   701
418
a06221a0930b split the variable editor panel into its own file
b.taylor@willowglen.ca
parents:
diff changeset
   702
                type_menu.AppendMenu(wx.NewId(), _("Function Block Types"), functionblock_menu)
422
31c3dc45cfab introduced BrowseVariableLocationsDialog and the GridCellEditor that launches it.
b.taylor@willowglen.ca
parents: 419
diff changeset
   703
418
a06221a0930b split the variable editor panel into its own file
b.taylor@willowglen.ca
parents:
diff changeset
   704
            rect = self.VariablesGrid.BlockToDeviceRect((row, col), (row, col))
422
31c3dc45cfab introduced BrowseVariableLocationsDialog and the GridCellEditor that launches it.
b.taylor@willowglen.ca
parents: 419
diff changeset
   705
            corner_x = rect.x + rect.width
31c3dc45cfab introduced BrowseVariableLocationsDialog and the GridCellEditor that launches it.
b.taylor@willowglen.ca
parents: 419
diff changeset
   706
            corner_y = rect.y + self.VariablesGrid.GetColLabelSize()
31c3dc45cfab introduced BrowseVariableLocationsDialog and the GridCellEditor that launches it.
b.taylor@willowglen.ca
parents: 419
diff changeset
   707
31c3dc45cfab introduced BrowseVariableLocationsDialog and the GridCellEditor that launches it.
b.taylor@willowglen.ca
parents: 419
diff changeset
   708
            # pop up this new menu
31c3dc45cfab introduced BrowseVariableLocationsDialog and the GridCellEditor that launches it.
b.taylor@willowglen.ca
parents: 419
diff changeset
   709
            self.VariablesGrid.PopupMenuXY(type_menu, corner_x, corner_y)
418
a06221a0930b split the variable editor panel into its own file
b.taylor@willowglen.ca
parents:
diff changeset
   710
            event.Veto()
a06221a0930b split the variable editor panel into its own file
b.taylor@willowglen.ca
parents:
diff changeset
   711
        else:
a06221a0930b split the variable editor panel into its own file
b.taylor@willowglen.ca
parents:
diff changeset
   712
            event.Skip()
a06221a0930b split the variable editor panel into its own file
b.taylor@willowglen.ca
parents:
diff changeset
   713
    
a06221a0930b split the variable editor panel into its own file
b.taylor@willowglen.ca
parents:
diff changeset
   714
    def GetVariableTypeFunction(self, base_type):
a06221a0930b split the variable editor panel into its own file
b.taylor@willowglen.ca
parents:
diff changeset
   715
        def VariableTypeFunction(event):
a06221a0930b split the variable editor panel into its own file
b.taylor@willowglen.ca
parents:
diff changeset
   716
            row = self.VariablesGrid.GetGridCursorRow()
a06221a0930b split the variable editor panel into its own file
b.taylor@willowglen.ca
parents:
diff changeset
   717
            self.Table.SetValueByName(row, "Type", base_type)
a06221a0930b split the variable editor panel into its own file
b.taylor@willowglen.ca
parents:
diff changeset
   718
            self.Table.ResetView(self.VariablesGrid)
a06221a0930b split the variable editor panel into its own file
b.taylor@willowglen.ca
parents:
diff changeset
   719
            self.SaveValues(False)
586
9aa96a36cf33 Moving variable panel from bottom notebook panel to POU editor panel
laurent
parents: 580
diff changeset
   720
            self.ParentWindow.RefreshView(variablepanel = False)
418
a06221a0930b split the variable editor panel into its own file
b.taylor@willowglen.ca
parents:
diff changeset
   721
            self.Controler.BufferProject()
494
c91644c2bfa7 Bug on FileMenu not refreshed when modifications fixed
laurent
parents: 491
diff changeset
   722
            self.ParentWindow._Refresh(TITLE, FILEMENU, EDITMENU, INSTANCESTREE, LIBRARYTREE)
418
a06221a0930b split the variable editor panel into its own file
b.taylor@willowglen.ca
parents:
diff changeset
   723
        return VariableTypeFunction
a06221a0930b split the variable editor panel into its own file
b.taylor@willowglen.ca
parents:
diff changeset
   724
    
507
42150e041dbe Adding support for direct array variable declaration in variable panel (still disable cause matiec doesn't support this feature)
laurent
parents: 496
diff changeset
   725
    def VariableArrayTypeFunction(self, event):
42150e041dbe Adding support for direct array variable declaration in variable panel (still disable cause matiec doesn't support this feature)
laurent
parents: 496
diff changeset
   726
        row = self.VariablesGrid.GetGridCursorRow()
42150e041dbe Adding support for direct array variable declaration in variable panel (still disable cause matiec doesn't support this feature)
laurent
parents: 496
diff changeset
   727
        dialog = ArrayTypeDialog(self, 
42150e041dbe Adding support for direct array variable declaration in variable panel (still disable cause matiec doesn't support this feature)
laurent
parents: 496
diff changeset
   728
                                 self.Controler.GetDataTypes(self.TagName), 
42150e041dbe Adding support for direct array variable declaration in variable panel (still disable cause matiec doesn't support this feature)
laurent
parents: 496
diff changeset
   729
                                 self.Table.GetValueByName(row, "Type"))
42150e041dbe Adding support for direct array variable declaration in variable panel (still disable cause matiec doesn't support this feature)
laurent
parents: 496
diff changeset
   730
        if dialog.ShowModal() == wx.ID_OK:
42150e041dbe Adding support for direct array variable declaration in variable panel (still disable cause matiec doesn't support this feature)
laurent
parents: 496
diff changeset
   731
            self.Table.SetValueByName(row, "Type", dialog.GetValue())
42150e041dbe Adding support for direct array variable declaration in variable panel (still disable cause matiec doesn't support this feature)
laurent
parents: 496
diff changeset
   732
            self.Table.ResetView(self.VariablesGrid)
42150e041dbe Adding support for direct array variable declaration in variable panel (still disable cause matiec doesn't support this feature)
laurent
parents: 496
diff changeset
   733
            self.SaveValues(False)
586
9aa96a36cf33 Moving variable panel from bottom notebook panel to POU editor panel
laurent
parents: 580
diff changeset
   734
            self.ParentWindow.RefreshView(variablepanel = False)
507
42150e041dbe Adding support for direct array variable declaration in variable panel (still disable cause matiec doesn't support this feature)
laurent
parents: 496
diff changeset
   735
            self.Controler.BufferProject()
42150e041dbe Adding support for direct array variable declaration in variable panel (still disable cause matiec doesn't support this feature)
laurent
parents: 496
diff changeset
   736
            self.ParentWindow._Refresh(TITLE, FILEMENU, EDITMENU, INSTANCESTREE, LIBRARYTREE)
42150e041dbe Adding support for direct array variable declaration in variable panel (still disable cause matiec doesn't support this feature)
laurent
parents: 496
diff changeset
   737
        dialog.Destroy()
42150e041dbe Adding support for direct array variable declaration in variable panel (still disable cause matiec doesn't support this feature)
laurent
parents: 496
diff changeset
   738
    
418
a06221a0930b split the variable editor panel into its own file
b.taylor@willowglen.ca
parents:
diff changeset
   739
    def OnVariablesGridCellLeftClick(self, event):
a06221a0930b split the variable editor panel into its own file
b.taylor@willowglen.ca
parents:
diff changeset
   740
        row = event.GetRow()
600
7db729686416 Making variable panel not editable when showing variables of debugging block
laurent
parents: 595
diff changeset
   741
        if not self.Debug and (event.GetCol() == 0 and self.Table.GetValueByName(row, "Edit")):
418
a06221a0930b split the variable editor panel into its own file
b.taylor@willowglen.ca
parents:
diff changeset
   742
            row = event.GetRow()
a06221a0930b split the variable editor panel into its own file
b.taylor@willowglen.ca
parents:
diff changeset
   743
            var_name = self.Table.GetValueByName(row, "Name")
a06221a0930b split the variable editor panel into its own file
b.taylor@willowglen.ca
parents:
diff changeset
   744
            var_class = self.Table.GetValueByName(row, "Class")
a06221a0930b split the variable editor panel into its own file
b.taylor@willowglen.ca
parents:
diff changeset
   745
            var_type = self.Table.GetValueByName(row, "Type")
a06221a0930b split the variable editor panel into its own file
b.taylor@willowglen.ca
parents:
diff changeset
   746
            data = wx.TextDataObject(str((var_name, var_class, var_type, self.TagName)))
a06221a0930b split the variable editor panel into its own file
b.taylor@willowglen.ca
parents:
diff changeset
   747
            dragSource = wx.DropSource(self.VariablesGrid)
a06221a0930b split the variable editor panel into its own file
b.taylor@willowglen.ca
parents:
diff changeset
   748
            dragSource.SetData(data)
a06221a0930b split the variable editor panel into its own file
b.taylor@willowglen.ca
parents:
diff changeset
   749
            dragSource.DoDragDrop()
a06221a0930b split the variable editor panel into its own file
b.taylor@willowglen.ca
parents:
diff changeset
   750
        event.Skip()
a06221a0930b split the variable editor panel into its own file
b.taylor@willowglen.ca
parents:
diff changeset
   751
    
577
9dbb79722fbc Adding support for giving keyboard focus to the first control of every dialogs
laurent
parents: 566
diff changeset
   752
    def RefreshValues(self):
418
a06221a0930b split the variable editor panel into its own file
b.taylor@willowglen.ca
parents:
diff changeset
   753
        data = []
a06221a0930b split the variable editor panel into its own file
b.taylor@willowglen.ca
parents:
diff changeset
   754
        for num, variable in enumerate(self.Values):
a06221a0930b split the variable editor panel into its own file
b.taylor@willowglen.ca
parents:
diff changeset
   755
            if variable["Class"] in self.ClassList:
a06221a0930b split the variable editor panel into its own file
b.taylor@willowglen.ca
parents:
diff changeset
   756
                variable["Number"] = num + 1
a06221a0930b split the variable editor panel into its own file
b.taylor@willowglen.ca
parents:
diff changeset
   757
                data.append(variable)
a06221a0930b split the variable editor panel into its own file
b.taylor@willowglen.ca
parents:
diff changeset
   758
        self.Table.SetData(data)
561
5c8fa95eb834 Fixing bug in Variable Panel when pressing Add,Delete,Up or Down button while a cell editor in variable grid is active
laurent
parents: 556
diff changeset
   759
        self.Table.ResetView(self.VariablesGrid)
577
9dbb79722fbc Adding support for giving keyboard focus to the first control of every dialogs
laurent
parents: 566
diff changeset
   760
            
418
a06221a0930b split the variable editor panel into its own file
b.taylor@willowglen.ca
parents:
diff changeset
   761
    def SaveValues(self, buffer = True):
a06221a0930b split the variable editor panel into its own file
b.taylor@willowglen.ca
parents:
diff changeset
   762
        words = self.TagName.split("::")
a06221a0930b split the variable editor panel into its own file
b.taylor@willowglen.ca
parents:
diff changeset
   763
        if self.ElementType == "config":
a06221a0930b split the variable editor panel into its own file
b.taylor@willowglen.ca
parents:
diff changeset
   764
            self.Controler.SetConfigurationGlobalVars(words[1], self.Values)
a06221a0930b split the variable editor panel into its own file
b.taylor@willowglen.ca
parents:
diff changeset
   765
        elif self.ElementType == "resource":
a06221a0930b split the variable editor panel into its own file
b.taylor@willowglen.ca
parents:
diff changeset
   766
            self.Controler.SetConfigurationResourceGlobalVars(words[1], words[2], self.Values)
a06221a0930b split the variable editor panel into its own file
b.taylor@willowglen.ca
parents:
diff changeset
   767
        else:
a06221a0930b split the variable editor panel into its own file
b.taylor@willowglen.ca
parents:
diff changeset
   768
            if self.ReturnType.IsEnabled():
a06221a0930b split the variable editor panel into its own file
b.taylor@willowglen.ca
parents:
diff changeset
   769
                self.Controler.SetPouInterfaceReturnType(words[1], self.ReturnType.GetStringSelection())
a06221a0930b split the variable editor panel into its own file
b.taylor@willowglen.ca
parents:
diff changeset
   770
            self.Controler.SetPouInterfaceVars(words[1], self.Values)
a06221a0930b split the variable editor panel into its own file
b.taylor@willowglen.ca
parents:
diff changeset
   771
        if buffer:
a06221a0930b split the variable editor panel into its own file
b.taylor@willowglen.ca
parents:
diff changeset
   772
            self.Controler.BufferProject()
494
c91644c2bfa7 Bug on FileMenu not refreshed when modifications fixed
laurent
parents: 491
diff changeset
   773
            self.ParentWindow._Refresh(TITLE, FILEMENU, EDITMENU, INSTANCESTREE, LIBRARYTREE)            
418
a06221a0930b split the variable editor panel into its own file
b.taylor@willowglen.ca
parents:
diff changeset
   774
566
6014ef82a98a Adding support for searching text or regular expression in whole project
laurent
parents: 564
diff changeset
   775
#-------------------------------------------------------------------------------
6014ef82a98a Adding support for searching text or regular expression in whole project
laurent
parents: 564
diff changeset
   776
#                        Highlights showing functions
6014ef82a98a Adding support for searching text or regular expression in whole project
laurent
parents: 564
diff changeset
   777
#-------------------------------------------------------------------------------
6014ef82a98a Adding support for searching text or regular expression in whole project
laurent
parents: 564
diff changeset
   778
6014ef82a98a Adding support for searching text or regular expression in whole project
laurent
parents: 564
diff changeset
   779
    def OnRefreshHighlightsTimer(self, event):
6014ef82a98a Adding support for searching text or regular expression in whole project
laurent
parents: 564
diff changeset
   780
        self.Table.ResetView(self.VariablesGrid)
6014ef82a98a Adding support for searching text or regular expression in whole project
laurent
parents: 564
diff changeset
   781
        event.Skip()
6014ef82a98a Adding support for searching text or regular expression in whole project
laurent
parents: 564
diff changeset
   782
6014ef82a98a Adding support for searching text or regular expression in whole project
laurent
parents: 564
diff changeset
   783
    def AddVariableHighlight(self, infos, highlight_type):
418
a06221a0930b split the variable editor panel into its own file
b.taylor@willowglen.ca
parents:
diff changeset
   784
        if isinstance(infos[0], TupleType):
a06221a0930b split the variable editor panel into its own file
b.taylor@willowglen.ca
parents:
diff changeset
   785
            for i in xrange(*infos[0]):
566
6014ef82a98a Adding support for searching text or regular expression in whole project
laurent
parents: 564
diff changeset
   786
                self.Table.AddHighlight((i,) + infos[1:], highlight_type)
6014ef82a98a Adding support for searching text or regular expression in whole project
laurent
parents: 564
diff changeset
   787
        else:
6014ef82a98a Adding support for searching text or regular expression in whole project
laurent
parents: 564
diff changeset
   788
            self.Table.AddHighlight(infos, highlight_type)
6014ef82a98a Adding support for searching text or regular expression in whole project
laurent
parents: 564
diff changeset
   789
        self.RefreshHighlightsTimer.Start(int(REFRESH_HIGHLIGHT_PERIOD * 1000), oneShot=True)
6014ef82a98a Adding support for searching text or regular expression in whole project
laurent
parents: 564
diff changeset
   790
6014ef82a98a Adding support for searching text or regular expression in whole project
laurent
parents: 564
diff changeset
   791
    def ClearHighlights(self, highlight_type=None):
6014ef82a98a Adding support for searching text or regular expression in whole project
laurent
parents: 564
diff changeset
   792
        self.Table.ClearHighlights(highlight_type)
418
a06221a0930b split the variable editor panel into its own file
b.taylor@willowglen.ca
parents:
diff changeset
   793
        self.Table.ResetView(self.VariablesGrid)