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/xgsetup250.tcl between version 1.1 and 1.2

version 1.1, 2001/09/20 14:12:00 version 1.2, 2002/09/06 15:00:41
Line 110  proc InitMainMenu { WasInputFileGiven Fi
Line 110  proc InitMainMenu { WasInputFileGiven Fi
         CreateQuitDialog          CreateQuitDialog
         CreateListBox $defaultMainMenuX $defaultMainMenuY          CreateListBox $defaultMainMenuX $defaultMainMenuY
   
         bind . <Enter> { focus .list.top.entry; break}          #bind . <Enter> { focus .list.top.entry; break}
 }  }
 # }}}  # }}}
 # Procedure ViewInputFile { } {{{  # Procedure ViewInputFile { } {{{
Line 227  proc CreateListBox { WinPosX WinPosY } \
Line 227  proc CreateListBox { WinPosX WinPosY } \
         pack .list.top.entry -side right -fill x -expand true -pady 3          pack .list.top.entry -side right -fill x -expand true -pady 3
         pack .list.top -fill both          pack .list.top -fill both
   
         focus .list.top.entry          #focus .list.top.entry
         bind .list.top.entry <KeyPress> { EntryKeyPressProc %K %A; break }          bind .list.top.entry <KeyPress> { EntryKeyPressProc %K %A; break }
         #bind .list.top.entry <KeyPress> { ListboxSearch }          #bind .list.top.entry <KeyPress> { ListboxSearch }
         bind .list.top.entry <Control-KeyPress> {          bind .list.top.entry <Control-KeyPress> {
Line 294  proc CreateListBox { WinPosX WinPosY } \
Line 294  proc CreateListBox { WinPosX WinPosY } \
         bind .list.lframe.listbox <3> [bind Listbox <1>]          bind .list.lframe.listbox <3> [bind Listbox <1>]
         bind .list.lframe.listbox <Double-3> { CloseDiag; break }          bind .list.lframe.listbox <Double-3> { CloseDiag; break }
         bind .list.lframe.listbox <Shift-1> { }          bind .list.lframe.listbox <Shift-1> { }
         bind .list <Enter> { focus .list.top.entry; break }          #bind .list <Enter> { focus .list.top.entry; break }
 }  }
 # }}}  # }}}
 # Procedure ListboxScroll { type direction } {{{  # Procedure ListboxScroll { type direction } {{{
Line 728  proc CreateWindow { Window } \
Line 728  proc CreateWindow { Window } \
                 pack $Window.bottom.z -fill x -expand true -side left \                  pack $Window.bottom.z -fill x -expand true -side left \
                         -padx 3 -pady 3                          -padx 3 -pady 3
   
                 bind $Window <Enter> { focus %W; break }                  #bind $Window <Enter> { focus %W; break }
                 bind $Window <Left> { \                  bind $Window <Left> { \
                         set pathname [string trimleft %W "."]                          set pathname [string trimleft %W "."]
                                 set rootname [string range $pathname 0 [expr \                                  set rootname [string range $pathname 0 [expr \
Line 759  proc CreateWindow { Window } \
Line 759  proc CreateWindow { Window } \
                         [$rootname.middle.y.scale get ] + 1 ]; break }                          [$rootname.middle.y.scale get ] + 1 ]; break }
   
         } else {          } else {
                 bind $Window <Enter> { focus .list.top.entry; break }                  #bind $Window <Enter> { focus .list.top.entry; break }
         }          }
 }  }
 # }}}  # }}}
Legend:
Removed from v.1.1  
changed lines
  Added in v.1.2
Platon Group <platon@platon.org> http://platon.org/
Copyright © 2002-2006 Platon Group
Site powered by Metafox CMS 		Go to Top