dialogs/FBDVariableDialog.py
author etisserant <edouard.tisserant@gmail.com>
Tue, 25 Jan 2022 16:37:16 +0100
changeset 3415 c270b6c8162b
parent 2591 5f685bcd3ad6
child 3303 0ffb41625592
permissions -rw-r--r--
Create README.md in tests
814
5743cbdff669 Integration of PLCOpenEditor into Beremiz
Laurent Bessard
parents:
diff changeset
     1
#!/usr/bin/env python
5743cbdff669 Integration of PLCOpenEditor into Beremiz
Laurent Bessard
parents:
diff changeset
     2
# -*- coding: utf-8 -*-
5743cbdff669 Integration of PLCOpenEditor into Beremiz
Laurent Bessard
parents:
diff changeset
     3
1571
486f94a8032c fix license notices in source files and license files under GPLv2+
Andrey Skvortsov <andrej.skvortzov@gmail.com>
parents: 1259
diff changeset
     4
# This file is part of Beremiz, a Integrated Development Environment for
486f94a8032c fix license notices in source files and license files under GPLv2+
Andrey Skvortsov <andrej.skvortzov@gmail.com>
parents: 1259
diff changeset
     5
# programming IEC 61131-3 automates supporting plcopen standard and CanFestival.
486f94a8032c fix license notices in source files and license files under GPLv2+
Andrey Skvortsov <andrej.skvortzov@gmail.com>
parents: 1259
diff changeset
     6
#
486f94a8032c fix license notices in source files and license files under GPLv2+
Andrey Skvortsov <andrej.skvortzov@gmail.com>
parents: 1259
diff changeset
     7
# Copyright (C) 2007: Edouard TISSERANT and Laurent BESSARD
1696
8043f32de7b8 make all dialog have non-fixed size
Andrey Skvortsov <andrej.skvortzov@gmail.com>
parents: 1571
diff changeset
     8
# Copyright (C) 2017: Andrey Skvortsov <andrej.skvortzov@gmail.com>
1571
486f94a8032c fix license notices in source files and license files under GPLv2+
Andrey Skvortsov <andrej.skvortzov@gmail.com>
parents: 1259
diff changeset
     9
#
486f94a8032c fix license notices in source files and license files under GPLv2+
Andrey Skvortsov <andrej.skvortzov@gmail.com>
parents: 1259
diff changeset
    10
# See COPYING file for copyrights details.
486f94a8032c fix license notices in source files and license files under GPLv2+
Andrey Skvortsov <andrej.skvortzov@gmail.com>
parents: 1259
diff changeset
    11
#
486f94a8032c fix license notices in source files and license files under GPLv2+
Andrey Skvortsov <andrej.skvortzov@gmail.com>
parents: 1259
diff changeset
    12
# This program is free software; you can redistribute it and/or
486f94a8032c fix license notices in source files and license files under GPLv2+
Andrey Skvortsov <andrej.skvortzov@gmail.com>
parents: 1259
diff changeset
    13
# modify it under the terms of the GNU General Public License
486f94a8032c fix license notices in source files and license files under GPLv2+
Andrey Skvortsov <andrej.skvortzov@gmail.com>
parents: 1259
diff changeset
    14
# as published by the Free Software Foundation; either version 2
486f94a8032c fix license notices in source files and license files under GPLv2+
Andrey Skvortsov <andrej.skvortzov@gmail.com>
parents: 1259
diff changeset
    15
# of the License, or (at your option) any later version.
486f94a8032c fix license notices in source files and license files under GPLv2+
Andrey Skvortsov <andrej.skvortzov@gmail.com>
parents: 1259
diff changeset
    16
#
486f94a8032c fix license notices in source files and license files under GPLv2+
Andrey Skvortsov <andrej.skvortzov@gmail.com>
parents: 1259
diff changeset
    17
# This program is distributed in the hope that it will be useful,
486f94a8032c fix license notices in source files and license files under GPLv2+
Andrey Skvortsov <andrej.skvortzov@gmail.com>
parents: 1259
diff changeset
    18
# but WITHOUT ANY WARRANTY; without even the implied warranty of
486f94a8032c fix license notices in source files and license files under GPLv2+
Andrey Skvortsov <andrej.skvortzov@gmail.com>
parents: 1259
diff changeset
    19
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
486f94a8032c fix license notices in source files and license files under GPLv2+
Andrey Skvortsov <andrej.skvortzov@gmail.com>
parents: 1259
diff changeset
    20
# GNU General Public License for more details.
486f94a8032c fix license notices in source files and license files under GPLv2+
Andrey Skvortsov <andrej.skvortzov@gmail.com>
parents: 1259
diff changeset
    21
#
486f94a8032c fix license notices in source files and license files under GPLv2+
Andrey Skvortsov <andrej.skvortzov@gmail.com>
parents: 1259
diff changeset
    22
# You should have received a copy of the GNU General Public License
486f94a8032c fix license notices in source files and license files under GPLv2+
Andrey Skvortsov <andrej.skvortzov@gmail.com>
parents: 1259
diff changeset
    23
# along with this program; if not, write to the Free Software
486f94a8032c fix license notices in source files and license files under GPLv2+
Andrey Skvortsov <andrej.skvortzov@gmail.com>
parents: 1259
diff changeset
    24
# Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA  02110-1301, USA.
814
5743cbdff669 Integration of PLCOpenEditor into Beremiz
Laurent Bessard
parents:
diff changeset
    25
1853
47a3f39bead0 fix pylint warning "(relative-import) Relative import 'Y', should be 'X.Y'"
Andrey Skvortsov <andrej.skvortzov@gmail.com>
parents: 1847
diff changeset
    26
from __future__ import absolute_import
814
5743cbdff669 Integration of PLCOpenEditor into Beremiz
Laurent Bessard
parents:
diff changeset
    27
import wx
5743cbdff669 Integration of PLCOpenEditor into Beremiz
Laurent Bessard
parents:
diff changeset
    28
1244
336d515096b1 Rewrite FBDVariableDialog
Laurent Bessard
parents: 1187
diff changeset
    29
from graphics.GraphicCommons import INPUT, INOUT, OUTPUT
336d515096b1 Rewrite FBDVariableDialog
Laurent Bessard
parents: 1187
diff changeset
    30
from graphics.FBD_Objects import FBD_Variable
1853
47a3f39bead0 fix pylint warning "(relative-import) Relative import 'Y', should be 'X.Y'"
Andrey Skvortsov <andrej.skvortzov@gmail.com>
parents: 1847
diff changeset
    31
from dialogs.BlockPreviewDialog import BlockPreviewDialog
814
5743cbdff669 Integration of PLCOpenEditor into Beremiz
Laurent Bessard
parents:
diff changeset
    32
1782
5b6ad7a7fd9d clean-up: fix PEP8 E265 block comment should start with '# '
Andrey Skvortsov <andrej.skvortzov@gmail.com>
parents: 1768
diff changeset
    33
# -------------------------------------------------------------------------------
814
5743cbdff669 Integration of PLCOpenEditor into Beremiz
Laurent Bessard
parents:
diff changeset
    34
#                                    Helpers
1782
5b6ad7a7fd9d clean-up: fix PEP8 E265 block comment should start with '# '
Andrey Skvortsov <andrej.skvortzov@gmail.com>
parents: 1768
diff changeset
    35
# -------------------------------------------------------------------------------
814
5743cbdff669 Integration of PLCOpenEditor into Beremiz
Laurent Bessard
parents:
diff changeset
    36
5743cbdff669 Integration of PLCOpenEditor into Beremiz
Laurent Bessard
parents:
diff changeset
    37
1782
5b6ad7a7fd9d clean-up: fix PEP8 E265 block comment should start with '# '
Andrey Skvortsov <andrej.skvortzov@gmail.com>
parents: 1768
diff changeset
    38
# -------------------------------------------------------------------------------
1244
336d515096b1 Rewrite FBDVariableDialog
Laurent Bessard
parents: 1187
diff changeset
    39
#                        Set Variable Parameters Dialog
1782
5b6ad7a7fd9d clean-up: fix PEP8 E265 block comment should start with '# '
Andrey Skvortsov <andrej.skvortzov@gmail.com>
parents: 1768
diff changeset
    40
# -------------------------------------------------------------------------------
814
5743cbdff669 Integration of PLCOpenEditor into Beremiz
Laurent Bessard
parents:
diff changeset
    41
1244
336d515096b1 Rewrite FBDVariableDialog
Laurent Bessard
parents: 1187
diff changeset
    42
336d515096b1 Rewrite FBDVariableDialog
Laurent Bessard
parents: 1187
diff changeset
    43
class FBDVariableDialog(BlockPreviewDialog):
1736
7e61baa047f0 clean-up: fix PEP8 E302 expected 2 blank lines, found 1
Andrey Skvortsov <andrej.skvortzov@gmail.com>
parents: 1730
diff changeset
    44
    """
7e61baa047f0 clean-up: fix PEP8 E302 expected 2 blank lines, found 1
Andrey Skvortsov <andrej.skvortzov@gmail.com>
parents: 1730
diff changeset
    45
    Class that implements a dialog for defining parameters of a FBD variable graphic
7e61baa047f0 clean-up: fix PEP8 E302 expected 2 blank lines, found 1
Andrey Skvortsov <andrej.skvortzov@gmail.com>
parents: 1730
diff changeset
    46
    element
7e61baa047f0 clean-up: fix PEP8 E302 expected 2 blank lines, found 1
Andrey Skvortsov <andrej.skvortzov@gmail.com>
parents: 1730
diff changeset
    47
    """
1244
336d515096b1 Rewrite FBDVariableDialog
Laurent Bessard
parents: 1187
diff changeset
    48
1259
8350222a81c3 Added support for adding graphic element when dropping wire in midair
Laurent Bessard
parents: 1250
diff changeset
    49
    def __init__(self, parent, controller, tagname, exclude_input=False):
1244
336d515096b1 Rewrite FBDVariableDialog
Laurent Bessard
parents: 1187
diff changeset
    50
        """
336d515096b1 Rewrite FBDVariableDialog
Laurent Bessard
parents: 1187
diff changeset
    51
        Constructor
336d515096b1 Rewrite FBDVariableDialog
Laurent Bessard
parents: 1187
diff changeset
    52
        @param parent: Parent wx.Window of dialog for modal
336d515096b1 Rewrite FBDVariableDialog
Laurent Bessard
parents: 1187
diff changeset
    53
        @param controller: Reference to project controller
336d515096b1 Rewrite FBDVariableDialog
Laurent Bessard
parents: 1187
diff changeset
    54
        @param tagname: Tagname of project POU edited
1259
8350222a81c3 Added support for adding graphic element when dropping wire in midair
Laurent Bessard
parents: 1250
diff changeset
    55
        @param exclude_input: Exclude input from variable class selection
1244
336d515096b1 Rewrite FBDVariableDialog
Laurent Bessard
parents: 1187
diff changeset
    56
        """
336d515096b1 Rewrite FBDVariableDialog
Laurent Bessard
parents: 1187
diff changeset
    57
        BlockPreviewDialog.__init__(self, parent, controller, tagname,
1768
691083b5682a clean-up: fix PEP8 E128 continuation line under-indented for visual indent
Andrey Skvortsov <andrej.skvortzov@gmail.com>
parents: 1766
diff changeset
    58
                                    title=_('Variable Properties'))
1730
64d8f52bc8c8 clean-up for PEP8: fix W291 trailing whitespace
Andrey Skvortsov <andrej.skvortzov@gmail.com>
parents: 1696
diff changeset
    59
2301
5b8a7dd43f9f Avoid usage of localized strings before initialization during import in many modules
Andrey Skvortsov <andrej.skvortzov@gmail.com>
parents: 1878
diff changeset
    60
        # Dictionaries containing correspondence between variable block class and string
5b8a7dd43f9f Avoid usage of localized strings before initialization during import in many modules
Andrey Skvortsov <andrej.skvortzov@gmail.com>
parents: 1878
diff changeset
    61
        # to be shown in Class combo box in both sense
5b8a7dd43f9f Avoid usage of localized strings before initialization during import in many modules
Andrey Skvortsov <andrej.skvortzov@gmail.com>
parents: 1878
diff changeset
    62
        self.VARIABLE_CLASSES_DICT = {
5b8a7dd43f9f Avoid usage of localized strings before initialization during import in many modules
Andrey Skvortsov <andrej.skvortzov@gmail.com>
parents: 1878
diff changeset
    63
            INPUT:  _("Input"),
5b8a7dd43f9f Avoid usage of localized strings before initialization during import in many modules
Andrey Skvortsov <andrej.skvortzov@gmail.com>
parents: 1878
diff changeset
    64
            INOUT:  _("InOut"),
5b8a7dd43f9f Avoid usage of localized strings before initialization during import in many modules
Andrey Skvortsov <andrej.skvortzov@gmail.com>
parents: 1878
diff changeset
    65
            OUTPUT: _("Output")
5b8a7dd43f9f Avoid usage of localized strings before initialization during import in many modules
Andrey Skvortsov <andrej.skvortzov@gmail.com>
parents: 1878
diff changeset
    66
        }
5b8a7dd43f9f Avoid usage of localized strings before initialization during import in many modules
Andrey Skvortsov <andrej.skvortzov@gmail.com>
parents: 1878
diff changeset
    67
5b8a7dd43f9f Avoid usage of localized strings before initialization during import in many modules
Andrey Skvortsov <andrej.skvortzov@gmail.com>
parents: 1878
diff changeset
    68
        self.VARIABLE_CLASSES_DICT_REVERSE = dict(
5b8a7dd43f9f Avoid usage of localized strings before initialization during import in many modules
Andrey Skvortsov <andrej.skvortzov@gmail.com>
parents: 1878
diff changeset
    69
            [(value, key) for key, value in self.VARIABLE_CLASSES_DICT.iteritems()])
5b8a7dd43f9f Avoid usage of localized strings before initialization during import in many modules
Andrey Skvortsov <andrej.skvortzov@gmail.com>
parents: 1878
diff changeset
    70
1250
7e6de17c687a Rewrite SFCStepDialog and factorize code for creating common dialog sizers
Laurent Bessard
parents: 1246
diff changeset
    71
        # Init common sizers
7e6de17c687a Rewrite SFCStepDialog and factorize code for creating common dialog sizers
Laurent Bessard
parents: 1246
diff changeset
    72
        self._init_sizers(4, 2, 4, None, 3, 2)
1730
64d8f52bc8c8 clean-up for PEP8: fix W291 trailing whitespace
Andrey Skvortsov <andrej.skvortzov@gmail.com>
parents: 1696
diff changeset
    73
1244
336d515096b1 Rewrite FBDVariableDialog
Laurent Bessard
parents: 1187
diff changeset
    74
        # Create label for variable class
814
5743cbdff669 Integration of PLCOpenEditor into Beremiz
Laurent Bessard
parents:
diff changeset
    75
        class_label = wx.StaticText(self, label=_('Class:'))
1250
7e6de17c687a Rewrite SFCStepDialog and factorize code for creating common dialog sizers
Laurent Bessard
parents: 1246
diff changeset
    76
        self.LeftGridSizer.AddWindow(class_label, flag=wx.GROW)
1730
64d8f52bc8c8 clean-up for PEP8: fix W291 trailing whitespace
Andrey Skvortsov <andrej.skvortzov@gmail.com>
parents: 1696
diff changeset
    77
1244
336d515096b1 Rewrite FBDVariableDialog
Laurent Bessard
parents: 1187
diff changeset
    78
        # Create a combo box for defining variable class
814
5743cbdff669 Integration of PLCOpenEditor into Beremiz
Laurent Bessard
parents:
diff changeset
    79
        self.Class = wx.ComboBox(self, style=wx.CB_READONLY)
5743cbdff669 Integration of PLCOpenEditor into Beremiz
Laurent Bessard
parents:
diff changeset
    80
        self.Bind(wx.EVT_COMBOBOX, self.OnClassChanged, self.Class)
1250
7e6de17c687a Rewrite SFCStepDialog and factorize code for creating common dialog sizers
Laurent Bessard
parents: 1246
diff changeset
    81
        self.LeftGridSizer.AddWindow(self.Class, flag=wx.GROW)
1730
64d8f52bc8c8 clean-up for PEP8: fix W291 trailing whitespace
Andrey Skvortsov <andrej.skvortzov@gmail.com>
parents: 1696
diff changeset
    82
1244
336d515096b1 Rewrite FBDVariableDialog
Laurent Bessard
parents: 1187
diff changeset
    83
        # Create label for variable execution order
1730
64d8f52bc8c8 clean-up for PEP8: fix W291 trailing whitespace
Andrey Skvortsov <andrej.skvortzov@gmail.com>
parents: 1696
diff changeset
    84
        execution_order_label = wx.StaticText(self,
1768
691083b5682a clean-up: fix PEP8 E128 continuation line under-indented for visual indent
Andrey Skvortsov <andrej.skvortzov@gmail.com>
parents: 1766
diff changeset
    85
                                              label=_('Execution Order:'))
1250
7e6de17c687a Rewrite SFCStepDialog and factorize code for creating common dialog sizers
Laurent Bessard
parents: 1246
diff changeset
    86
        self.LeftGridSizer.AddWindow(execution_order_label, flag=wx.GROW)
1730
64d8f52bc8c8 clean-up for PEP8: fix W291 trailing whitespace
Andrey Skvortsov <andrej.skvortzov@gmail.com>
parents: 1696
diff changeset
    87
1244
336d515096b1 Rewrite FBDVariableDialog
Laurent Bessard
parents: 1187
diff changeset
    88
        # Create spin control for defining variable execution order
814
5743cbdff669 Integration of PLCOpenEditor into Beremiz
Laurent Bessard
parents:
diff changeset
    89
        self.ExecutionOrder = wx.SpinCtrl(self, min=0, style=wx.SP_ARROW_KEYS)
1730
64d8f52bc8c8 clean-up for PEP8: fix W291 trailing whitespace
Andrey Skvortsov <andrej.skvortzov@gmail.com>
parents: 1696
diff changeset
    90
        self.Bind(wx.EVT_SPINCTRL, self.OnExecutionOrderChanged,
1244
336d515096b1 Rewrite FBDVariableDialog
Laurent Bessard
parents: 1187
diff changeset
    91
                  self.ExecutionOrder)
1250
7e6de17c687a Rewrite SFCStepDialog and factorize code for creating common dialog sizers
Laurent Bessard
parents: 1246
diff changeset
    92
        self.LeftGridSizer.AddWindow(self.ExecutionOrder, flag=wx.GROW)
1730
64d8f52bc8c8 clean-up for PEP8: fix W291 trailing whitespace
Andrey Skvortsov <andrej.skvortzov@gmail.com>
parents: 1696
diff changeset
    93
1244
336d515096b1 Rewrite FBDVariableDialog
Laurent Bessard
parents: 1187
diff changeset
    94
        # Create label for variable expression
1182
208103fd9ad0 Improved FBDVariable dialog
Laurent Bessard
parents: 814
diff changeset
    95
        name_label = wx.StaticText(self, label=_('Expression:'))
1730
64d8f52bc8c8 clean-up for PEP8: fix W291 trailing whitespace
Andrey Skvortsov <andrej.skvortzov@gmail.com>
parents: 1696
diff changeset
    96
        self.RightGridSizer.AddWindow(name_label, border=5,
1768
691083b5682a clean-up: fix PEP8 E128 continuation line under-indented for visual indent
Andrey Skvortsov <andrej.skvortzov@gmail.com>
parents: 1766
diff changeset
    97
                                      flag=wx.GROW | wx.BOTTOM)
1730
64d8f52bc8c8 clean-up for PEP8: fix W291 trailing whitespace
Andrey Skvortsov <andrej.skvortzov@gmail.com>
parents: 1696
diff changeset
    98
1244
336d515096b1 Rewrite FBDVariableDialog
Laurent Bessard
parents: 1187
diff changeset
    99
        # Create text control for defining variable expression
1182
208103fd9ad0 Improved FBDVariable dialog
Laurent Bessard
parents: 814
diff changeset
   100
        self.Expression = wx.TextCtrl(self)
208103fd9ad0 Improved FBDVariable dialog
Laurent Bessard
parents: 814
diff changeset
   101
        self.Bind(wx.EVT_TEXT, self.OnExpressionChanged, self.Expression)
1250
7e6de17c687a Rewrite SFCStepDialog and factorize code for creating common dialog sizers
Laurent Bessard
parents: 1246
diff changeset
   102
        self.RightGridSizer.AddWindow(self.Expression, flag=wx.GROW)
1730
64d8f52bc8c8 clean-up for PEP8: fix W291 trailing whitespace
Andrey Skvortsov <andrej.skvortzov@gmail.com>
parents: 1696
diff changeset
   103
1244
336d515096b1 Rewrite FBDVariableDialog
Laurent Bessard
parents: 1187
diff changeset
   104
        # Create a list box to selected variable expression in the list of
336d515096b1 Rewrite FBDVariableDialog
Laurent Bessard
parents: 1187
diff changeset
   105
        # variables defined in POU
1740
b789b695b5c6 clean-up: fix PEP8 E231 missing whitespace after ':' or ','
Andrey Skvortsov <andrej.skvortzov@gmail.com>
parents: 1739
diff changeset
   106
        self.VariableName = wx.ListBox(self, size=wx.Size(-1, 120),
1768
691083b5682a clean-up: fix PEP8 E128 continuation line under-indented for visual indent
Andrey Skvortsov <andrej.skvortzov@gmail.com>
parents: 1766
diff changeset
   107
                                       style=wx.LB_SINGLE | wx.LB_SORT)
814
5743cbdff669 Integration of PLCOpenEditor into Beremiz
Laurent Bessard
parents:
diff changeset
   108
        self.Bind(wx.EVT_LISTBOX, self.OnNameChanged, self.VariableName)
1745
f9d32913bad4 clean-up: fix PEP8 E227 missing whitespace around bitwise or shift operator
Andrey Skvortsov <andrej.skvortzov@gmail.com>
parents: 1744
diff changeset
   109
        self.RightGridSizer.AddWindow(self.VariableName, border=4, flag=wx.GROW | wx.TOP)
1730
64d8f52bc8c8 clean-up for PEP8: fix W291 trailing whitespace
Andrey Skvortsov <andrej.skvortzov@gmail.com>
parents: 1696
diff changeset
   110
1244
336d515096b1 Rewrite FBDVariableDialog
Laurent Bessard
parents: 1187
diff changeset
   111
        # Add preview panel and associated label to sizers
1250
7e6de17c687a Rewrite SFCStepDialog and factorize code for creating common dialog sizers
Laurent Bessard
parents: 1246
diff changeset
   112
        self.MainSizer.AddWindow(self.PreviewLabel, border=20,
1768
691083b5682a clean-up: fix PEP8 E128 continuation line under-indented for visual indent
Andrey Skvortsov <andrej.skvortzov@gmail.com>
parents: 1766
diff changeset
   113
                                 flag=wx.GROW | wx.LEFT | wx.RIGHT)
1250
7e6de17c687a Rewrite SFCStepDialog and factorize code for creating common dialog sizers
Laurent Bessard
parents: 1246
diff changeset
   114
        self.MainSizer.AddWindow(self.Preview, border=20,
1768
691083b5682a clean-up: fix PEP8 E128 continuation line under-indented for visual indent
Andrey Skvortsov <andrej.skvortzov@gmail.com>
parents: 1766
diff changeset
   115
                                 flag=wx.GROW | wx.LEFT | wx.RIGHT)
1730
64d8f52bc8c8 clean-up for PEP8: fix W291 trailing whitespace
Andrey Skvortsov <andrej.skvortzov@gmail.com>
parents: 1696
diff changeset
   116
1244
336d515096b1 Rewrite FBDVariableDialog
Laurent Bessard
parents: 1187
diff changeset
   117
        # Add buttons sizer to sizers
1768
691083b5682a clean-up: fix PEP8 E128 continuation line under-indented for visual indent
Andrey Skvortsov <andrej.skvortzov@gmail.com>
parents: 1766
diff changeset
   118
        self.MainSizer.AddSizer(
691083b5682a clean-up: fix PEP8 E128 continuation line under-indented for visual indent
Andrey Skvortsov <andrej.skvortzov@gmail.com>
parents: 1766
diff changeset
   119
            self.ButtonSizer, border=20,
691083b5682a clean-up: fix PEP8 E128 continuation line under-indented for visual indent
Andrey Skvortsov <andrej.skvortzov@gmail.com>
parents: 1766
diff changeset
   120
            flag=wx.ALIGN_RIGHT | wx.BOTTOM | wx.LEFT | wx.RIGHT)
1730
64d8f52bc8c8 clean-up for PEP8: fix W291 trailing whitespace
Andrey Skvortsov <andrej.skvortzov@gmail.com>
parents: 1696
diff changeset
   121
1244
336d515096b1 Rewrite FBDVariableDialog
Laurent Bessard
parents: 1187
diff changeset
   122
        # Set options that can be selected in class combo box
2301
5b8a7dd43f9f Avoid usage of localized strings before initialization during import in many modules
Andrey Skvortsov <andrej.skvortzov@gmail.com>
parents: 1878
diff changeset
   123
        for var_class, choice in self.VARIABLE_CLASSES_DICT.iteritems():
1259
8350222a81c3 Added support for adding graphic element when dropping wire in midair
Laurent Bessard
parents: 1250
diff changeset
   124
            if not exclude_input or var_class != INPUT:
8350222a81c3 Added support for adding graphic element when dropping wire in midair
Laurent Bessard
parents: 1250
diff changeset
   125
                self.Class.Append(choice)
8350222a81c3 Added support for adding graphic element when dropping wire in midair
Laurent Bessard
parents: 1250
diff changeset
   126
        self.Class.SetSelection(0)
1730
64d8f52bc8c8 clean-up for PEP8: fix W291 trailing whitespace
Andrey Skvortsov <andrej.skvortzov@gmail.com>
parents: 1696
diff changeset
   127
1246
101625efb1c1 Rewrite LDElementDialog
Laurent Bessard
parents: 1244
diff changeset
   128
        # Extract list of variables defined in POU
101625efb1c1 Rewrite LDElementDialog
Laurent Bessard
parents: 1244
diff changeset
   129
        self.RefreshVariableList()
1730
64d8f52bc8c8 clean-up for PEP8: fix W291 trailing whitespace
Andrey Skvortsov <andrej.skvortzov@gmail.com>
parents: 1696
diff changeset
   130
1244
336d515096b1 Rewrite FBDVariableDialog
Laurent Bessard
parents: 1187
diff changeset
   131
        # Refresh values in name list box
814
5743cbdff669 Integration of PLCOpenEditor into Beremiz
Laurent Bessard
parents:
diff changeset
   132
        self.RefreshNameList()
1730
64d8f52bc8c8 clean-up for PEP8: fix W291 trailing whitespace
Andrey Skvortsov <andrej.skvortzov@gmail.com>
parents: 1696
diff changeset
   133
1696
8043f32de7b8 make all dialog have non-fixed size
Andrey Skvortsov <andrej.skvortzov@gmail.com>
parents: 1571
diff changeset
   134
        self.Preview.SetInitialSize(wx.Size(-1, 60))
8043f32de7b8 make all dialog have non-fixed size
Andrey Skvortsov <andrej.skvortzov@gmail.com>
parents: 1571
diff changeset
   135
        self.Fit()
8043f32de7b8 make all dialog have non-fixed size
Andrey Skvortsov <andrej.skvortzov@gmail.com>
parents: 1571
diff changeset
   136
1244
336d515096b1 Rewrite FBDVariableDialog
Laurent Bessard
parents: 1187
diff changeset
   137
        # Class combo box is default control having keyboard focus
814
5743cbdff669 Integration of PLCOpenEditor into Beremiz
Laurent Bessard
parents:
diff changeset
   138
        self.Class.SetFocus()
5743cbdff669 Integration of PLCOpenEditor into Beremiz
Laurent Bessard
parents:
diff changeset
   139
5743cbdff669 Integration of PLCOpenEditor into Beremiz
Laurent Bessard
parents:
diff changeset
   140
    def RefreshNameList(self):
1244
336d515096b1 Rewrite FBDVariableDialog
Laurent Bessard
parents: 1187
diff changeset
   141
        """
336d515096b1 Rewrite FBDVariableDialog
Laurent Bessard
parents: 1187
diff changeset
   142
        Called to refresh names in name list box
336d515096b1 Rewrite FBDVariableDialog
Laurent Bessard
parents: 1187
diff changeset
   143
        """
336d515096b1 Rewrite FBDVariableDialog
Laurent Bessard
parents: 1187
diff changeset
   144
        # Get variable class to select POU variable applicable
2301
5b8a7dd43f9f Avoid usage of localized strings before initialization during import in many modules
Andrey Skvortsov <andrej.skvortzov@gmail.com>
parents: 1878
diff changeset
   145
        var_class = self.VARIABLE_CLASSES_DICT_REVERSE[
1878
fb73a6b6622d fix pylint warning '(bad-continuation) Wrong hanging indentation before block'
Andrey Skvortsov <andrej.skvortzov@gmail.com>
parents: 1853
diff changeset
   146
            self.Class.GetStringSelection()]
1730
64d8f52bc8c8 clean-up for PEP8: fix W291 trailing whitespace
Andrey Skvortsov <andrej.skvortzov@gmail.com>
parents: 1696
diff changeset
   147
1244
336d515096b1 Rewrite FBDVariableDialog
Laurent Bessard
parents: 1187
diff changeset
   148
        # Refresh names in name list box by selecting variables in POU variables
336d515096b1 Rewrite FBDVariableDialog
Laurent Bessard
parents: 1187
diff changeset
   149
        # list that can be applied to variable class
814
5743cbdff669 Integration of PLCOpenEditor into Beremiz
Laurent Bessard
parents:
diff changeset
   150
        self.VariableName.Clear()
1847
6198190bc121 explicitly mark unused variables found by pylint with _ or dummy
Andrey Skvortsov <andrej.skvortzov@gmail.com>
parents: 1782
diff changeset
   151
        for name, (var_type, _value_type) in self.VariableList.iteritems():
814
5743cbdff669 Integration of PLCOpenEditor into Beremiz
Laurent Bessard
parents:
diff changeset
   152
            if var_type != "Input" or var_class == INPUT:
5743cbdff669 Integration of PLCOpenEditor into Beremiz
Laurent Bessard
parents:
diff changeset
   153
                self.VariableName.Append(name)
1730
64d8f52bc8c8 clean-up for PEP8: fix W291 trailing whitespace
Andrey Skvortsov <andrej.skvortzov@gmail.com>
parents: 1696
diff changeset
   154
1244
336d515096b1 Rewrite FBDVariableDialog
Laurent Bessard
parents: 1187
diff changeset
   155
        # Get variable expression and select corresponding value in name list
336d515096b1 Rewrite FBDVariableDialog
Laurent Bessard
parents: 1187
diff changeset
   156
        # box if it exists
336d515096b1 Rewrite FBDVariableDialog
Laurent Bessard
parents: 1187
diff changeset
   157
        selected = self.Expression.GetValue()
1766
c1e5b9f19483 clean-up: fix PEP8 E129 visually indented line with same indent as next logical line
Andrey Skvortsov <andrej.skvortzov@gmail.com>
parents: 1745
diff changeset
   158
        if selected != "" and self.VariableName.FindString(selected) != wx.NOT_FOUND:
814
5743cbdff669 Integration of PLCOpenEditor into Beremiz
Laurent Bessard
parents:
diff changeset
   159
            self.VariableName.SetStringSelection(selected)
5743cbdff669 Integration of PLCOpenEditor into Beremiz
Laurent Bessard
parents:
diff changeset
   160
        else:
1182
208103fd9ad0 Improved FBDVariable dialog
Laurent Bessard
parents: 814
diff changeset
   161
            self.VariableName.SetSelection(wx.NOT_FOUND)
1730
64d8f52bc8c8 clean-up for PEP8: fix W291 trailing whitespace
Andrey Skvortsov <andrej.skvortzov@gmail.com>
parents: 1696
diff changeset
   162
1244
336d515096b1 Rewrite FBDVariableDialog
Laurent Bessard
parents: 1187
diff changeset
   163
        # Disable name list box if no name present inside
814
5743cbdff669 Integration of PLCOpenEditor into Beremiz
Laurent Bessard
parents:
diff changeset
   164
        self.VariableName.Enable(self.VariableName.GetCount() > 0)
1730
64d8f52bc8c8 clean-up for PEP8: fix W291 trailing whitespace
Andrey Skvortsov <andrej.skvortzov@gmail.com>
parents: 1696
diff changeset
   165
814
5743cbdff669 Integration of PLCOpenEditor into Beremiz
Laurent Bessard
parents:
diff changeset
   166
    def SetValues(self, values):
1244
336d515096b1 Rewrite FBDVariableDialog
Laurent Bessard
parents: 1187
diff changeset
   167
        """
336d515096b1 Rewrite FBDVariableDialog
Laurent Bessard
parents: 1187
diff changeset
   168
        Set default variable parameters
336d515096b1 Rewrite FBDVariableDialog
Laurent Bessard
parents: 1187
diff changeset
   169
        @param values: Variable parameters values
336d515096b1 Rewrite FBDVariableDialog
Laurent Bessard
parents: 1187
diff changeset
   170
        """
1730
64d8f52bc8c8 clean-up for PEP8: fix W291 trailing whitespace
Andrey Skvortsov <andrej.skvortzov@gmail.com>
parents: 1696
diff changeset
   171
1244
336d515096b1 Rewrite FBDVariableDialog
Laurent Bessard
parents: 1187
diff changeset
   172
        # Get class parameter value
336d515096b1 Rewrite FBDVariableDialog
Laurent Bessard
parents: 1187
diff changeset
   173
        var_class = values.get("class", None)
336d515096b1 Rewrite FBDVariableDialog
Laurent Bessard
parents: 1187
diff changeset
   174
        if var_class is not None:
336d515096b1 Rewrite FBDVariableDialog
Laurent Bessard
parents: 1187
diff changeset
   175
            # Set class selected in class combo box
2301
5b8a7dd43f9f Avoid usage of localized strings before initialization during import in many modules
Andrey Skvortsov <andrej.skvortzov@gmail.com>
parents: 1878
diff changeset
   176
            self.Class.SetStringSelection(self.VARIABLE_CLASSES_DICT[var_class])
1244
336d515096b1 Rewrite FBDVariableDialog
Laurent Bessard
parents: 1187
diff changeset
   177
            # Refresh names in name list box according to var class
814
5743cbdff669 Integration of PLCOpenEditor into Beremiz
Laurent Bessard
parents:
diff changeset
   178
            self.RefreshNameList()
1730
64d8f52bc8c8 clean-up for PEP8: fix W291 trailing whitespace
Andrey Skvortsov <andrej.skvortzov@gmail.com>
parents: 1696
diff changeset
   179
1244
336d515096b1 Rewrite FBDVariableDialog
Laurent Bessard
parents: 1187
diff changeset
   180
        # For each parameters defined, set corresponding control value
336d515096b1 Rewrite FBDVariableDialog
Laurent Bessard
parents: 1187
diff changeset
   181
        for name, value in values.items():
1730
64d8f52bc8c8 clean-up for PEP8: fix W291 trailing whitespace
Andrey Skvortsov <andrej.skvortzov@gmail.com>
parents: 1696
diff changeset
   182
1244
336d515096b1 Rewrite FBDVariableDialog
Laurent Bessard
parents: 1187
diff changeset
   183
            # Parameter is variable expression
336d515096b1 Rewrite FBDVariableDialog
Laurent Bessard
parents: 1187
diff changeset
   184
            if name == "expression":
336d515096b1 Rewrite FBDVariableDialog
Laurent Bessard
parents: 1187
diff changeset
   185
                # Set expression text control value
336d515096b1 Rewrite FBDVariableDialog
Laurent Bessard
parents: 1187
diff changeset
   186
                self.Expression.ChangeValue(value)
336d515096b1 Rewrite FBDVariableDialog
Laurent Bessard
parents: 1187
diff changeset
   187
                # Select corresponding text in name list box if it exists
336d515096b1 Rewrite FBDVariableDialog
Laurent Bessard
parents: 1187
diff changeset
   188
                if self.VariableName.FindString(value) != wx.NOT_FOUND:
336d515096b1 Rewrite FBDVariableDialog
Laurent Bessard
parents: 1187
diff changeset
   189
                    self.VariableName.SetStringSelection(value)
336d515096b1 Rewrite FBDVariableDialog
Laurent Bessard
parents: 1187
diff changeset
   190
                else:
336d515096b1 Rewrite FBDVariableDialog
Laurent Bessard
parents: 1187
diff changeset
   191
                    self.VariableName.SetSelection(wx.NOT_FOUND)
1730
64d8f52bc8c8 clean-up for PEP8: fix W291 trailing whitespace
Andrey Skvortsov <andrej.skvortzov@gmail.com>
parents: 1696
diff changeset
   192
1244
336d515096b1 Rewrite FBDVariableDialog
Laurent Bessard
parents: 1187
diff changeset
   193
            # Parameter is variable execution order
336d515096b1 Rewrite FBDVariableDialog
Laurent Bessard
parents: 1187
diff changeset
   194
            elif name == "executionOrder":
336d515096b1 Rewrite FBDVariableDialog
Laurent Bessard
parents: 1187
diff changeset
   195
                self.ExecutionOrder.SetValue(value)
1730
64d8f52bc8c8 clean-up for PEP8: fix W291 trailing whitespace
Andrey Skvortsov <andrej.skvortzov@gmail.com>
parents: 1696
diff changeset
   196
1244
336d515096b1 Rewrite FBDVariableDialog
Laurent Bessard
parents: 1187
diff changeset
   197
        # Refresh preview panel
2591
5f685bcd3ad6 Fixed refresh problem following 9c5f835b031e, 9622418ac28c, c67488bd8134 : force redraw only through EVT_PAINT event and use wxPaintDC, as described in wx documentation
Edouard Tisserant
parents: 2587
diff changeset
   198
        self.Refresh()
1696
8043f32de7b8 make all dialog have non-fixed size
Andrey Skvortsov <andrej.skvortzov@gmail.com>
parents: 1571
diff changeset
   199
        self.Fit()
1730
64d8f52bc8c8 clean-up for PEP8: fix W291 trailing whitespace
Andrey Skvortsov <andrej.skvortzov@gmail.com>
parents: 1696
diff changeset
   200
814
5743cbdff669 Integration of PLCOpenEditor into Beremiz
Laurent Bessard
parents:
diff changeset
   201
    def GetValues(self):
1244
336d515096b1 Rewrite FBDVariableDialog
Laurent Bessard
parents: 1187
diff changeset
   202
        """
336d515096b1 Rewrite FBDVariableDialog
Laurent Bessard
parents: 1187
diff changeset
   203
        Return block parameters defined in dialog
336d515096b1 Rewrite FBDVariableDialog
Laurent Bessard
parents: 1187
diff changeset
   204
        @return: {parameter_name: parameter_value,...}
336d515096b1 Rewrite FBDVariableDialog
Laurent Bessard
parents: 1187
diff changeset
   205
        """
336d515096b1 Rewrite FBDVariableDialog
Laurent Bessard
parents: 1187
diff changeset
   206
        expression = self.Expression.GetValue()
336d515096b1 Rewrite FBDVariableDialog
Laurent Bessard
parents: 1187
diff changeset
   207
        values = {
2301
5b8a7dd43f9f Avoid usage of localized strings before initialization during import in many modules
Andrey Skvortsov <andrej.skvortzov@gmail.com>
parents: 1878
diff changeset
   208
            "class": self.VARIABLE_CLASSES_DICT_REVERSE[
1878
fb73a6b6622d fix pylint warning '(bad-continuation) Wrong hanging indentation before block'
Andrey Skvortsov <andrej.skvortzov@gmail.com>
parents: 1853
diff changeset
   209
                self.Class.GetStringSelection()],
1244
336d515096b1 Rewrite FBDVariableDialog
Laurent Bessard
parents: 1187
diff changeset
   210
            "expression": expression,
1246
101625efb1c1 Rewrite LDElementDialog
Laurent Bessard
parents: 1244
diff changeset
   211
            "var_type": self.VariableList.get(expression, (None, None))[1],
1244
336d515096b1 Rewrite FBDVariableDialog
Laurent Bessard
parents: 1187
diff changeset
   212
            "executionOrder": self.ExecutionOrder.GetValue()}
336d515096b1 Rewrite FBDVariableDialog
Laurent Bessard
parents: 1187
diff changeset
   213
        values["width"], values["height"] = self.Element.GetSize()
814
5743cbdff669 Integration of PLCOpenEditor into Beremiz
Laurent Bessard
parents:
diff changeset
   214
        return values
5743cbdff669 Integration of PLCOpenEditor into Beremiz
Laurent Bessard
parents:
diff changeset
   215
5743cbdff669 Integration of PLCOpenEditor into Beremiz
Laurent Bessard
parents:
diff changeset
   216
    def OnOK(self, event):
1244
336d515096b1 Rewrite FBDVariableDialog
Laurent Bessard
parents: 1187
diff changeset
   217
        """
336d515096b1 Rewrite FBDVariableDialog
Laurent Bessard
parents: 1187
diff changeset
   218
        Called when dialog OK button is pressed
336d515096b1 Rewrite FBDVariableDialog
Laurent Bessard
parents: 1187
diff changeset
   219
        Test if parameters defined are valid
336d515096b1 Rewrite FBDVariableDialog
Laurent Bessard
parents: 1187
diff changeset
   220
        @param event: wx.Event from OK button
336d515096b1 Rewrite FBDVariableDialog
Laurent Bessard
parents: 1187
diff changeset
   221
        """
814
5743cbdff669 Integration of PLCOpenEditor into Beremiz
Laurent Bessard
parents:
diff changeset
   222
        message = None
1730
64d8f52bc8c8 clean-up for PEP8: fix W291 trailing whitespace
Andrey Skvortsov <andrej.skvortzov@gmail.com>
parents: 1696
diff changeset
   223
1244
336d515096b1 Rewrite FBDVariableDialog
Laurent Bessard
parents: 1187
diff changeset
   224
        # Test that an expression have been selected or typed by user
1182
208103fd9ad0 Improved FBDVariable dialog
Laurent Bessard
parents: 814
diff changeset
   225
        value = self.Expression.GetValue()
814
5743cbdff669 Integration of PLCOpenEditor into Beremiz
Laurent Bessard
parents:
diff changeset
   226
        if value == "":
5743cbdff669 Integration of PLCOpenEditor into Beremiz
Laurent Bessard
parents:
diff changeset
   227
            message = _("At least a variable or an expression must be selected!")
1730
64d8f52bc8c8 clean-up for PEP8: fix W291 trailing whitespace
Andrey Skvortsov <andrej.skvortzov@gmail.com>
parents: 1696
diff changeset
   228
1244
336d515096b1 Rewrite FBDVariableDialog
Laurent Bessard
parents: 1187
diff changeset
   229
        # Show error message if an error is detected
814
5743cbdff669 Integration of PLCOpenEditor into Beremiz
Laurent Bessard
parents:
diff changeset
   230
        if message is not None:
1244
336d515096b1 Rewrite FBDVariableDialog
Laurent Bessard
parents: 1187
diff changeset
   231
            self.ShowErrorMessage(message)
1730
64d8f52bc8c8 clean-up for PEP8: fix W291 trailing whitespace
Andrey Skvortsov <andrej.skvortzov@gmail.com>
parents: 1696
diff changeset
   232
814
5743cbdff669 Integration of PLCOpenEditor into Beremiz
Laurent Bessard
parents:
diff changeset
   233
        else:
1244
336d515096b1 Rewrite FBDVariableDialog
Laurent Bessard
parents: 1187
diff changeset
   234
            # Call BlockPreviewDialog function
336d515096b1 Rewrite FBDVariableDialog
Laurent Bessard
parents: 1187
diff changeset
   235
            BlockPreviewDialog.OnOK(self, event)
814
5743cbdff669 Integration of PLCOpenEditor into Beremiz
Laurent Bessard
parents:
diff changeset
   236
5743cbdff669 Integration of PLCOpenEditor into Beremiz
Laurent Bessard
parents:
diff changeset
   237
    def OnClassChanged(self, event):
1244
336d515096b1 Rewrite FBDVariableDialog
Laurent Bessard
parents: 1187
diff changeset
   238
        """
336d515096b1 Rewrite FBDVariableDialog
Laurent Bessard
parents: 1187
diff changeset
   239
        Called when variable class value changed
336d515096b1 Rewrite FBDVariableDialog
Laurent Bessard
parents: 1187
diff changeset
   240
        @param event: wx.ComboBoxEvent
336d515096b1 Rewrite FBDVariableDialog
Laurent Bessard
parents: 1187
diff changeset
   241
        """
336d515096b1 Rewrite FBDVariableDialog
Laurent Bessard
parents: 1187
diff changeset
   242
        # Refresh name list box values
814
5743cbdff669 Integration of PLCOpenEditor into Beremiz
Laurent Bessard
parents:
diff changeset
   243
        self.RefreshNameList()
1730
64d8f52bc8c8 clean-up for PEP8: fix W291 trailing whitespace
Andrey Skvortsov <andrej.skvortzov@gmail.com>
parents: 1696
diff changeset
   244
2591
5f685bcd3ad6 Fixed refresh problem following 9c5f835b031e, 9622418ac28c, c67488bd8134 : force redraw only through EVT_PAINT event and use wxPaintDC, as described in wx documentation
Edouard Tisserant
parents: 2587
diff changeset
   245
        self.Refresh()
814
5743cbdff669 Integration of PLCOpenEditor into Beremiz
Laurent Bessard
parents:
diff changeset
   246
        event.Skip()
5743cbdff669 Integration of PLCOpenEditor into Beremiz
Laurent Bessard
parents:
diff changeset
   247
5743cbdff669 Integration of PLCOpenEditor into Beremiz
Laurent Bessard
parents:
diff changeset
   248
    def OnNameChanged(self, event):
1244
336d515096b1 Rewrite FBDVariableDialog
Laurent Bessard
parents: 1187
diff changeset
   249
        """
336d515096b1 Rewrite FBDVariableDialog
Laurent Bessard
parents: 1187
diff changeset
   250
        Called when name selected in name list box changed
336d515096b1 Rewrite FBDVariableDialog
Laurent Bessard
parents: 1187
diff changeset
   251
        @param event: wx.ListBoxEvent
336d515096b1 Rewrite FBDVariableDialog
Laurent Bessard
parents: 1187
diff changeset
   252
        """
336d515096b1 Rewrite FBDVariableDialog
Laurent Bessard
parents: 1187
diff changeset
   253
        # Change expression test control value to the value selected in name
336d515096b1 Rewrite FBDVariableDialog
Laurent Bessard
parents: 1187
diff changeset
   254
        # list box if value selected is valid
336d515096b1 Rewrite FBDVariableDialog
Laurent Bessard
parents: 1187
diff changeset
   255
        if self.VariableName.GetSelection() != wx.NOT_FOUND:
336d515096b1 Rewrite FBDVariableDialog
Laurent Bessard
parents: 1187
diff changeset
   256
            self.Expression.ChangeValue(self.VariableName.GetStringSelection())
1730
64d8f52bc8c8 clean-up for PEP8: fix W291 trailing whitespace
Andrey Skvortsov <andrej.skvortzov@gmail.com>
parents: 1696
diff changeset
   257
2591
5f685bcd3ad6 Fixed refresh problem following 9c5f835b031e, 9622418ac28c, c67488bd8134 : force redraw only through EVT_PAINT event and use wxPaintDC, as described in wx documentation
Edouard Tisserant
parents: 2587
diff changeset
   258
        self.Refresh()
1730
64d8f52bc8c8 clean-up for PEP8: fix W291 trailing whitespace
Andrey Skvortsov <andrej.skvortzov@gmail.com>
parents: 1696
diff changeset
   259
        event.Skip()
64d8f52bc8c8 clean-up for PEP8: fix W291 trailing whitespace
Andrey Skvortsov <andrej.skvortzov@gmail.com>
parents: 1696
diff changeset
   260
814
5743cbdff669 Integration of PLCOpenEditor into Beremiz
Laurent Bessard
parents:
diff changeset
   261
    def OnExpressionChanged(self, event):
1244
336d515096b1 Rewrite FBDVariableDialog
Laurent Bessard
parents: 1187
diff changeset
   262
        """
336d515096b1 Rewrite FBDVariableDialog
Laurent Bessard
parents: 1187
diff changeset
   263
        Called when expression text control is changed by user
336d515096b1 Rewrite FBDVariableDialog
Laurent Bessard
parents: 1187
diff changeset
   264
        @param event: wx.ListBoxEvent
336d515096b1 Rewrite FBDVariableDialog
Laurent Bessard
parents: 1187
diff changeset
   265
        """
336d515096b1 Rewrite FBDVariableDialog
Laurent Bessard
parents: 1187
diff changeset
   266
        # Select the corresponding value in name list box if it exists
1182
208103fd9ad0 Improved FBDVariable dialog
Laurent Bessard
parents: 814
diff changeset
   267
        self.VariableName.SetSelection(
1244
336d515096b1 Rewrite FBDVariableDialog
Laurent Bessard
parents: 1187
diff changeset
   268
            self.VariableName.FindString(self.Expression.GetValue()))
1730
64d8f52bc8c8 clean-up for PEP8: fix W291 trailing whitespace
Andrey Skvortsov <andrej.skvortzov@gmail.com>
parents: 1696
diff changeset
   269
2591
5f685bcd3ad6 Fixed refresh problem following 9c5f835b031e, 9622418ac28c, c67488bd8134 : force redraw only through EVT_PAINT event and use wxPaintDC, as described in wx documentation
Edouard Tisserant
parents: 2587
diff changeset
   270
        self.Refresh()
1730
64d8f52bc8c8 clean-up for PEP8: fix W291 trailing whitespace
Andrey Skvortsov <andrej.skvortzov@gmail.com>
parents: 1696
diff changeset
   271
        event.Skip()
64d8f52bc8c8 clean-up for PEP8: fix W291 trailing whitespace
Andrey Skvortsov <andrej.skvortzov@gmail.com>
parents: 1696
diff changeset
   272
814
5743cbdff669 Integration of PLCOpenEditor into Beremiz
Laurent Bessard
parents:
diff changeset
   273
    def OnExecutionOrderChanged(self, event):
1244
336d515096b1 Rewrite FBDVariableDialog
Laurent Bessard
parents: 1187
diff changeset
   274
        """
336d515096b1 Rewrite FBDVariableDialog
Laurent Bessard
parents: 1187
diff changeset
   275
        Called when block execution control value changed
336d515096b1 Rewrite FBDVariableDialog
Laurent Bessard
parents: 1187
diff changeset
   276
        @param event: wx.SpinEvent
336d515096b1 Rewrite FBDVariableDialog
Laurent Bessard
parents: 1187
diff changeset
   277
        """
2591
5f685bcd3ad6 Fixed refresh problem following 9c5f835b031e, 9622418ac28c, c67488bd8134 : force redraw only through EVT_PAINT event and use wxPaintDC, as described in wx documentation
Edouard Tisserant
parents: 2587
diff changeset
   278
        self.Refresh()
2587
c67488bd8134 Fixed preview drawing/refresh problem in sfc/ld/fbd graphical element creation dialogs on windows (introduced in 9c5f835b031e, continuation of 9622418ac28c)
Edouard Tisserant
parents: 2301
diff changeset
   279
        event.Skip()
c67488bd8134 Fixed preview drawing/refresh problem in sfc/ld/fbd graphical element creation dialogs on windows (introduced in 9c5f835b031e, continuation of 9622418ac28c)
Edouard Tisserant
parents: 2301
diff changeset
   280
c67488bd8134 Fixed preview drawing/refresh problem in sfc/ld/fbd graphical element creation dialogs on windows (introduced in 9c5f835b031e, continuation of 9622418ac28c)
Edouard Tisserant
parents: 2301
diff changeset
   281
    def DrawPreview(self):
1244
336d515096b1 Rewrite FBDVariableDialog
Laurent Bessard
parents: 1187
diff changeset
   282
        """
336d515096b1 Rewrite FBDVariableDialog
Laurent Bessard
parents: 1187
diff changeset
   283
        Refresh preview panel of graphic element
336d515096b1 Rewrite FBDVariableDialog
Laurent Bessard
parents: 1187
diff changeset
   284
        Override BlockPreviewDialog function
336d515096b1 Rewrite FBDVariableDialog
Laurent Bessard
parents: 1187
diff changeset
   285
        """
336d515096b1 Rewrite FBDVariableDialog
Laurent Bessard
parents: 1187
diff changeset
   286
        # Get expression value to put in FBD variable element
1182
208103fd9ad0 Improved FBDVariable dialog
Laurent Bessard
parents: 814
diff changeset
   287
        name = self.Expression.GetValue()
1730
64d8f52bc8c8 clean-up for PEP8: fix W291 trailing whitespace
Andrey Skvortsov <andrej.skvortzov@gmail.com>
parents: 1696
diff changeset
   288
1244
336d515096b1 Rewrite FBDVariableDialog
Laurent Bessard
parents: 1187
diff changeset
   289
        # Set graphic element displayed, creating a FBD variable element
1768
691083b5682a clean-up: fix PEP8 E128 continuation line under-indented for visual indent
Andrey Skvortsov <andrej.skvortzov@gmail.com>
parents: 1766
diff changeset
   290
        self.Element = FBD_Variable(
691083b5682a clean-up: fix PEP8 E128 continuation line under-indented for visual indent
Andrey Skvortsov <andrej.skvortzov@gmail.com>
parents: 1766
diff changeset
   291
            self.Preview,
2301
5b8a7dd43f9f Avoid usage of localized strings before initialization during import in many modules
Andrey Skvortsov <andrej.skvortzov@gmail.com>
parents: 1878
diff changeset
   292
            self.VARIABLE_CLASSES_DICT_REVERSE[self.Class.GetStringSelection()],
1768
691083b5682a clean-up: fix PEP8 E128 continuation line under-indented for visual indent
Andrey Skvortsov <andrej.skvortzov@gmail.com>
parents: 1766
diff changeset
   293
            name,
691083b5682a clean-up: fix PEP8 E128 continuation line under-indented for visual indent
Andrey Skvortsov <andrej.skvortzov@gmail.com>
parents: 1766
diff changeset
   294
            self.VariableList.get(name, ("", ""))[1],
691083b5682a clean-up: fix PEP8 E128 continuation line under-indented for visual indent
Andrey Skvortsov <andrej.skvortzov@gmail.com>
parents: 1766
diff changeset
   295
            executionOrder=self.ExecutionOrder.GetValue())
1730
64d8f52bc8c8 clean-up for PEP8: fix W291 trailing whitespace
Andrey Skvortsov <andrej.skvortzov@gmail.com>
parents: 1696
diff changeset
   296
1244
336d515096b1 Rewrite FBDVariableDialog
Laurent Bessard
parents: 1187
diff changeset
   297
        # Call BlockPreviewDialog function
2587
c67488bd8134 Fixed preview drawing/refresh problem in sfc/ld/fbd graphical element creation dialogs on windows (introduced in 9c5f835b031e, continuation of 9622418ac28c)
Edouard Tisserant
parents: 2301
diff changeset
   298
        BlockPreviewDialog.DrawPreview(self)