Platon Technologies
not logged in Login Registration
EnglishSlovak
open source software development celebrating 10 years of open source development! Friday, October 16, 2026
[BACK] [TXT][DIR] Up to [Platon] / dead / diplomovka / xgrafix / src

Diff for dead/diplomovka/xgrafix/src/xgdialogs250.tcl between version 1.1.1.1 and 1.1.1.1.2.1

version 1.1.1.1, 2001/09/20 14:12:00 version 1.1.1.1.2.1, 2002/09/13 18:38:33
Line 180  proc CreateRescaleDialog { type } \
Line 180  proc CreateRescaleDialog { type } \
   
         ##############          ##############
         # The X Axis          # The X Axis
           # {{{
   
         frame $RescalePath.xaxis -relief raised -bd 2          frame $RescalePath.xaxis -relief raised -bd 2
   
Line 187  proc CreateRescaleDialog { type } \
Line 188  proc CreateRescaleDialog { type } \
         label $RescalePath.xaxis.xmax.label -text xmax -width 15 -anchor w          label $RescalePath.xaxis.xmax.label -text xmax -width 15 -anchor w
         entry $RescalePath.xaxis.xmax.entry -highlightthickness 0 \          entry $RescalePath.xaxis.xmax.entry -highlightthickness 0 \
                         -relief sunken -width 12 \                          -relief sunken -width 12 \
                 -textvariable rescaleXMax                          -textvariable rescaleXMax
   
         bind $RescalePath.xaxis.xmax.entry <KeyPress> {          bind $RescalePath.xaxis.xmax.entry <KeyPress> {
                 set rescaleAutoX Off; EntryFloatProc %W %K; break }                  set rescaleAutoX Off; EntryFloatProc %W %K; break }
Line 200  proc CreateRescaleDialog { type } \
Line 201  proc CreateRescaleDialog { type } \
         label $RescalePath.xaxis.xmin.label -text xmin -width 15 -anchor w          label $RescalePath.xaxis.xmin.label -text xmin -width 15 -anchor w
         entry $RescalePath.xaxis.xmin.entry -highlightthickness 0 \          entry $RescalePath.xaxis.xmin.entry -highlightthickness 0 \
                         -relief sunken -width 12 \                          -relief sunken -width 12 \
                 -textvariable rescaleXMin                          -textvariable rescaleXMin
         bind $RescalePath.xaxis.xmin.entry <KeyPress> {          bind $RescalePath.xaxis.xmin.entry <KeyPress> {
                 set rescaleAutoX Off; EntryFloatProc %W %K; break }                  set rescaleAutoX Off; EntryFloatProc %W %K; break }
         bind $RescalePath.xaxis.xmin.entry <Control-KeyPress> {          bind $RescalePath.xaxis.xmin.entry <Control-KeyPress> {
Line 213  proc CreateRescaleDialog { type } \
Line 214  proc CreateRescaleDialog { type } \
                 -anchor w                  -anchor w
         button $RescalePath.xaxis.auto.button -padx 0 -pady 0 -highlightthickness 0 \          button $RescalePath.xaxis.auto.button -padx 0 -pady 0 -highlightthickness 0 \
                         -text On -width 12 \                          -text On -width 12 \
                 -command "ToggleButton $RescalePath.xaxis.auto.button \                          -command "ToggleButton $RescalePath.xaxis.auto.button \
                         rescaleAutoX On Off"                          rescaleAutoX On Off"
   
         pack $RescalePath.xaxis.auto.label -side left          pack $RescalePath.xaxis.auto.label -side left
Line 235  proc CreateRescaleDialog { type } \
Line 236  proc CreateRescaleDialog { type } \
         pack $RescalePath.xaxis.auto $RescalePath.xaxis.linlog -fill both \          pack $RescalePath.xaxis.auto $RescalePath.xaxis.linlog -fill both \
                 -pady 3 -expand true                  -pady 3 -expand true
         pack $RescalePath.xaxis -fill both -expand true          pack $RescalePath.xaxis -fill both -expand true
           # }}}
   
         ##############          ##############
         # The Y Axis          # The Y Axis
           # {{{
   
         frame $RescalePath.yaxis -relief raised -bd 2          frame $RescalePath.yaxis -relief raised -bd 2
   
Line 245  proc CreateRescaleDialog { type } \
Line 248  proc CreateRescaleDialog { type } \
         label $RescalePath.yaxis.ymax.label -text ymax -width 15 -anchor w          label $RescalePath.yaxis.ymax.label -text ymax -width 15 -anchor w
         entry $RescalePath.yaxis.ymax.entry -highlightthickness 0 \          entry $RescalePath.yaxis.ymax.entry -highlightthickness 0 \
                         -relief sunken -width 12 \                          -relief sunken -width 12 \
                 -textvariable rescaleYMax                          -textvariable rescaleYMax
         bind $RescalePath.yaxis.ymax.entry <KeyPress> {          bind $RescalePath.yaxis.ymax.entry <KeyPress> {
                 set rescaleAutoY Off; EntryFloatProc %W %K; break }                  set rescaleAutoY Off; EntryFloatProc %W %K; break }
         bind $RescalePath.yaxis.ymax.entry <Control-KeyPress> {          bind $RescalePath.yaxis.ymax.entry <Control-KeyPress> {
Line 257  proc CreateRescaleDialog { type } \
Line 260  proc CreateRescaleDialog { type } \
         label $RescalePath.yaxis.ymin.label -text ymin -width 15 -anchor w          label $RescalePath.yaxis.ymin.label -text ymin -width 15 -anchor w
         entry $RescalePath.yaxis.ymin.entry -highlightthickness 0 \          entry $RescalePath.yaxis.ymin.entry -highlightthickness 0 \
                         -relief sunken -width 12 \                          -relief sunken -width 12 \
                 -textvariable rescaleYMin                          -textvariable rescaleYMin
         bind $RescalePath.yaxis.ymin.entry <KeyPress> {          bind $RescalePath.yaxis.ymin.entry <KeyPress> {
                 set rescaleAutoY Off; EntryFloatProc %W %K; break }                  set rescaleAutoY Off; EntryFloatProc %W %K; break }
         bind $RescalePath.yaxis.ymin.entry <Control-KeyPress> {          bind $RescalePath.yaxis.ymin.entry <Control-KeyPress> {
Line 292  proc CreateRescaleDialog { type } \
Line 295  proc CreateRescaleDialog { type } \
         pack $RescalePath.yaxis.auto $RescalePath.yaxis.linlog -fill both \          pack $RescalePath.yaxis.auto $RescalePath.yaxis.linlog -fill both \
                 -pady 3 -expand true                  -pady 3 -expand true
         pack $RescalePath.yaxis -fill both -expand true          pack $RescalePath.yaxis -fill both -expand true
           # }}}
   
         ##############          ##############
         # The Z Axis          # The Z Axis
           # {{{
   
         if { $type == "3D" } {          if { $type == "3D" } {
         frame $RescalePath.zaxis -relief raised -bd 2          frame $RescalePath.zaxis -relief raised -bd 2
Line 303  proc CreateRescaleDialog { type } \
Line 308  proc CreateRescaleDialog { type } \
         label $RescalePath.zaxis.zmax.label -text zmax -width 15 -anchor w          label $RescalePath.zaxis.zmax.label -text zmax -width 15 -anchor w
         entry $RescalePath.zaxis.zmax.entry -highlightthickness 0 \          entry $RescalePath.zaxis.zmax.entry -highlightthickness 0 \
                         -relief sunken -width 12 \                          -relief sunken -width 12 \
                 -textvariable rescaleZMax                          -textvariable rescaleZMax
         bind $RescalePath.zaxis.zmax.entry <KeyPress> { set rescaleAutoZ Off; EntryFloatProc %W %K; break }          bind $RescalePath.zaxis.zmax.entry <KeyPress> { set rescaleAutoZ Off; EntryFloatProc %W %K; break }
         bind $RescalePath.zaxis.zmax.entry <Control-KeyPress> {          bind $RescalePath.zaxis.zmax.entry <Control-KeyPress> {
                 EntryControlProc %W %K; break }                  EntryControlProc %W %K; break }
Line 314  proc CreateRescaleDialog { type } \
Line 319  proc CreateRescaleDialog { type } \
         label $RescalePath.zaxis.zmin.label -text zmin -width 15 -anchor w          label $RescalePath.zaxis.zmin.label -text zmin -width 15 -anchor w
         entry $RescalePath.zaxis.zmin.entry -highlightthickness 0 \          entry $RescalePath.zaxis.zmin.entry -highlightthickness 0 \
                         -relief sunken -width 12 \                          -relief sunken -width 12 \
                 -textvariable rescaleZMin                          -textvariable rescaleZMin
         bind $RescalePath.zaxis.zmin.entry <KeyPress> { set rescaleAutoZ Off; EntryFloatProc %W %K; break }          bind $RescalePath.zaxis.zmin.entry <KeyPress> { set rescaleAutoZ Off; EntryFloatProc %W %K; break }
         bind $RescalePath.zaxis.zmin.entry <Control-KeyPress> {          bind $RescalePath.zaxis.zmin.entry <Control-KeyPress> {
                 EntryControlProc %W %K; break }                  EntryControlProc %W %K; break }
Line 326  proc CreateRescaleDialog { type } \
Line 331  proc CreateRescaleDialog { type } \
                 -anchor w                  -anchor w
         button $RescalePath.zaxis.auto.button -padx 0 -pady 0 -highlightthickness 0 \          button $RescalePath.zaxis.auto.button -padx 0 -pady 0 -highlightthickness 0 \
                         -text On -width 12 \                          -text On -width 12 \
                 -command "ToggleButton $RescalePath.zaxis.auto.button \                          -command "ToggleButton $RescalePath.zaxis.auto.button \
                         rescaleAutoZ On Off"                          rescaleAutoZ On Off"
   
         pack $RescalePath.zaxis.auto.label -side left          pack $RescalePath.zaxis.auto.label -side left
Line 337  proc CreateRescaleDialog { type } \
Line 342  proc CreateRescaleDialog { type } \
                 -anchor w                  -anchor w
         button $RescalePath.zaxis.linlog.button -padx 0 -pady 0 -highlightthickness 0 \          button $RescalePath.zaxis.linlog.button -padx 0 -pady 0 -highlightthickness 0 \
                         -text Linear -width 12 \                          -text Linear -width 12 \
                 -command "ToggleButton $RescalePath.zaxis.linlog.button \                          -command "ToggleButton $RescalePath.zaxis.linlog.button \
                         rescaleZType Logarithmic Linear"                          rescaleZType Logarithmic Linear"
   
         pack $RescalePath.zaxis.linlog.label -side left          pack $RescalePath.zaxis.linlog.label -side left
Line 350  proc CreateRescaleDialog { type } \
Line 355  proc CreateRescaleDialog { type } \
         pack $RescalePath.zaxis -fill both -expand true          pack $RescalePath.zaxis -fill both -expand true
         }          }
   
           # }}}
   
         #####################          #####################
         # Some key bindings          # Some key bindings
   
Line 388  proc CreateRescaleDialog { type } \
Line 395  proc CreateRescaleDialog { type } \
         #########################          #########################
         # Ok and Cancel buttons          # Ok and Cancel buttons
   
           # TODO:
         frame $RescalePath.bottom -relief raised -bd 2          frame $RescalePath.bottom -relief raised -bd 2
           button $RescalePath.bottom.autorescale -padx 0 -pady 0 -highlightthickness 0 \
                           -text "Rescale now" -command { \
                                   set save_rescaleAutoX $rescaleAutoX
                                   set save_rescaleAutoY $rescaleAutoY
                                   set rescaleAutoX On
                                   set rescaleAutoY On
                                   set Changed 1
                                   #Rescale ignored_param
                                   Rescale new
                                   GetRanges
                                   set rescaleAutoX $save_rescaleAutoX
                                   set rescaleAutoY $save_rescaleAutoY
                           }
   
         button $RescalePath.bottom.apply -padx 0 -pady 0 -highlightthickness 0 \          button $RescalePath.bottom.apply -padx 0 -pady 0 -highlightthickness 0 \
                         -text Apply -command { \                          -text Apply -command { \
                 set Changed 1                                  set Changed 1
                 Rescale new                                  Rescale new
                 GetRanges}                                  GetRanges
                           }
         button $RescalePath.bottom.ok -padx 0 -pady 0 -highlightthickness 0 \          button $RescalePath.bottom.ok -padx 0 -pady 0 -highlightthickness 0 \
                         -text Ok -command " \                          -text Ok -command " [list RescaleButtonProc $RescalePath new ] "
                 [list RescaleButtonProc $RescalePath new ] "  
         button $RescalePath.bottom.cancel -padx 0 -pady 0 -highlightthickness 0 \          button $RescalePath.bottom.cancel -padx 0 -pady 0 -highlightthickness 0 \
                         -text Cancel -command " \                          -text Cancel -command " [list RescaleButtonProc $RescalePath old ] "
                 [list RescaleButtonProc $RescalePath old ] "  
         pack $RescalePath.bottom.cancel $RescalePath.bottom.ok \          pack $RescalePath.bottom.cancel $RescalePath.bottom.ok \
                 $RescalePath.bottom.apply -side right -padx 3 -pady 3 -ipadx 3                  $RescalePath.bottom.apply $RescalePath.bottom.autorescale \
                   -side right -padx 3 -pady 3 -ipadx 3
         pack $RescalePath.bottom -fill x          pack $RescalePath.bottom -fill x
 }  }
 # }}}  # }}}
Legend:
Removed from v.1.1.1.1  
changed lines
  Added in v.1.1.1.1.2.1
Platon Group <platon@platon.org> http://platon.org/
Copyright © 2002-2006 Platon Group
Site powered by Metafox CMS 		Go to Top