/[gnumed]/gnumed/gnumed/client/wxpython/patient/gmBMICalc.py
ViewVC logotype

Diff of /gnumed/gnumed/client/wxpython/patient/gmBMICalc.py

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.17 by ncq, Sun Apr 20 12:26:56 2003 UTC revision 1.18 by ncq, Sun Apr 20 22:47:06 2003 UTC
# Line 186  class BMICalc_Panel(wxPanel): Line 186  class BMICalc_Panel(wxPanel):
186                  label.SetFont(wxFont(13,wxSWISS,wxNORMAL,wxNORMAL,false,''))                  label.SetFont(wxFont(13,wxSWISS,wxNORMAL,wxNORMAL,false,''))
187                  label.SetForegroundColour(wxColour(0,0,131))                  label.SetForegroundColour(wxColour(0,0,131))
188    
189                  self.txtbmi = wxTextCtrl(self,-1,"",size=(100,20))                  self.txtbmi = wxTextCtrl(self,-1,"",size=(100,20), style = wxTE_READONLY)
190                    self.txtbmi.Enable(false)
191                  self.txtbmi.SetFont(wxFont(13,wxSWISS,wxNORMAL,wxNORMAL,false,''))                  self.txtbmi.SetFont(wxFont(13,wxSWISS,wxNORMAL,wxNORMAL,false,''))
192    
193                  szr_bmi = wxBoxSizer(wxHORIZONTAL)                  szr_bmi = wxBoxSizer(wxHORIZONTAL)
# Line 195  class BMICalc_Panel(wxPanel): Line 196  class BMICalc_Panel(wxPanel):
196                  szr_bmi.Add(self.txtbmi,1,wxALIGN_CENTRE_VERTICAL | wxEXPAND,0)                  szr_bmi.Add(self.txtbmi,1,wxALIGN_CENTRE_VERTICAL | wxEXPAND,0)
197                  szr_bmi.Add(5,5,1,0)                  szr_bmi.Add(5,5,1,0)
198                  #--------------------------------------------------                  #--------------------------------------------------
199                  #the color elipses to show where on scale of mass                  #the color ellipses to show where on scale of mass
200                  #--------------------------------------------------                  #--------------------------------------------------
                 # FIXME: this should not be able to receive focus, e.g  
                 # it should be skipped during tabbing  
201                  bmi_colour_scale = BMI_Colour_Scale(self)                  bmi_colour_scale = BMI_Colour_Scale(self)
202                    bmi_colour_scale.Enable(false)
203                  szr_col_scale = wxBoxSizer(wxHORIZONTAL)                  szr_col_scale = wxBoxSizer(wxHORIZONTAL)
204                  szr_col_scale.Add(bmi_colour_scale,1,wxEXPAND)                  szr_col_scale.Add(bmi_colour_scale,1,wxEXPAND)
205                  #-----------------------------------------------------                  #-----------------------------------------------------
# Line 548  else: Line 548  else:
548                                          return _icons["""icon_BMI_calc"""]                                          return _icons["""icon_BMI_calc"""]
549  #=====================================================================  #=====================================================================
550  # $Log$  # $Log$
551    # Revision 1.18  2003/04/20 22:47:06  ncq
552    # - skip color scale and bmi text field on tab order
553    #
554  # Revision 1.17  2003/04/20 12:26:56  ncq  # Revision 1.17  2003/04/20 12:26:56  ncq
555  # - clean up, sizer streamlining  # - clean up, sizer streamlining
556  #  #

Legend:
Removed from v.1.17  
changed lines
  Added in v.1.18

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26