http://www.satisoft.com/tcltk/gridplus2

• New GRIDPLUS gpdb command to provide a GRIDPLUS interface to TDBC based SQL databases.
• New GRIDPLUS gpdelete command to delete specified row/line/node from a tablelist/text/tree.
• New GRIDPLUS gpupdate command to update a specified tablelist row.
• New -maintansort option for tablelist.

• New -insertoptions true/false options for tablelist.
• New widget command created for tablelist to return column values for selected row.
• New -save option for gpselect to save the rowid/key of the selected tablelist row.
• New -restore option for gpselect to restore previously saved tablelist row selection.
• New -first option for gpselect to select tablelist row with lowest rowid.
• New -last option for gpselect to select tablelist row with highest rowid.
• New -max option for gpselect to select tablelist row with the highest match.
• New -min option for gpselect to select tablelist row with the lowest match.
• New -padding option for notebook.
• New -tabpadding option for notebook.
• New -selectmode option for tree.
• New gpset "-|" dedent option to improve source code readability.
• New layout column/row weight setting syntax to control resizing behaviour.
• New grid "ns" row stretching option.
• New grid -attach "ns" stretch option.
• New widget option subsitution in embedded widget grid.
• New Adds "buttonWidth" and "entryWidth" option database options

• Change tablelist to automatically set default column names.
• Change gpselect syntax to (optionally) reverse order of "match" and "column" for tablelist row selection.
• Change gpselect to allow use of tablelist column names.
• Change gpset so that -sortfirst is disabled if there is a "saved" selection.
• Change gpunset to allow use of patterns.
• Change: Example 5 and Example 6 have been updated to demonstrate using the gpdb command.
• Change: StarKit now includes FamFamFam icon set.

• Fix problem with entry validation when using right-click menu in another entry.
• Fix problem setting checkbutton default selected when -state is "disabled".
• Fix problem setting radiobutton default selected when -state is "disabled".
• Fix dropdown to use "-state" correctly.
• Fix problem with tree keyboard traversal selection.
• Fix problem with notebook pane naming.
• Fix problem with text find dialog with patterns begining with "-".
• Fix problem clearing date when "dateIcon" specified.

• Scrollable text widget.
• Scrollable tablelist.
• Scrollable tree widget.
• Calendar style date display selector.
• Basic notebook type widget.
• Simple drop-down menus.
• Simple method to specify widget traversal order when using the TAB key to navigate the screen.
• A group facility to enable/disable groups of widgets and menu options.
• Facility to include non-GRIDPLUS widgets in groups.
• Simple pattern/procedure based entry validations.
• Works with toplevel windows.
• ...and much, much more.

RELEASE HISTORY:  edit

• New spinbox command/mode.
• New pane command/mode.
• New gpoptions command to simplify setting options database for GRIDPLUS.
• New dateselector option to display icon instead of downarrow.
• New popup/balloon help (*Gridplus.helpDisplayTime) display duration option.
• New gpselect (backward compatible) syntax.
• New -menu option to specify user defined right-click invoked menu for text.
• New -seeinsert option for text.
• New -seeinsert option for tablelist.
• New -takefocus option for tablelist.
• New -selectpage option for tablelist.
• New -names option for tablelist.
• New "=name" column option for tablelist to set column names - (Potential compatibility issue).
• New -names option for gpset to set tablelistt column names.
• New -titles option for gpset to set tablelist column titles.
• New -index option for gpset to set/select a tablelist row.
• New -index option for gpselect to set/select a tablelist row.
• New gpmap option to map to dict.
• New Command Substitution facility for Grid/Layout and Notebook.
• New interface to create User Defined Grid Widgets for widget grid.

• Change popup/balloon help to display at pointer position to improve look/feel for larger widgets.
• Change to allow "@" embedded widgets to work in embedded grids.
• Change: Support for "&w" embedded widget grid syntax removed - (Potential compatibility issue).
• Change: Example7 has been updated to demonstrate using the (PNG) icon image files facility in ICONS version 2.

• Fix problem setting tablelist sort column when first column is integer/real.
• Fix problem with tablelist row selection.
• Fix problem with clipboard operations when widget with focus not of suitable type.
• Fix problem with gpfind for patterns begining with "-".
• Fix problem with menu separator problem with cascade style menus.

• Fix problem with value of tree node containing spaces.
• Fix problem with container frame sizing.
• Fix problem with some validations in "contained" toplevels.
• Fix problem with clear to ensure validation pop-up messages are withdrawn.

http://www.satisoft.com/tcltk/gridplus2

• New =default option to specify default dropdown option.
• New ~command link option to specify command to invoke when link is selected.

• checkbutton modified so that "+" option always results in a checked button.

• Fix gpset to ensure that window is updated.
• Fix problem clearing radiobutton group values.
• Fix link indent "-" option problem.
• Fix gap in theme style border when text is null (Due to ::ttk::labelframe bug?)

http://www.satisoft.com/tcltk/gridplus2

• New -locale option for set to explicitly set locale. This can be used to ensure that correct locale specific month/day text is used for calendar/dateselector when the month/day names returned by clock are not in accordance with the default locale.
• New gpdefault command.
• New gpdate command.
• New =default widget option to specify default entry and date values.
• New integer/real sort options for tablelist
• New option to set a fixed label width
• New *Gridplus.optionDefaultStyle option.

• Fix problem posting dateselector in a topmost window.
• Fix problem clearing radiobutton group values.

date

http://www.satisoft.com/tcltk/gridplus2

• New single/space action for tree command mode.
• New ISO date validation.

• Fix problem with containers on Unix.

http://www.satisoft.com/tcltk/gridplus2

• New calendar command mode.
• New gpnav command.
• New dropdown date selector grid widget.
• Extra pre-defined validations.
• New "trim" option for validations.
• New button "!+" widget option.
• New "-overrideredirect" option for GRIDPLUS window.
• New pre-defined optionset.

• gpset and gpselect modified to set values for "calendar" and "date" selector.
• Pressing the Enter key while a button is highlighted will now invoke the button command.
• New behaviour for validations when loosing focus to toplevel window.

• Fix various validation problems when validated field looses focus to a toplevel window.
• Fix problem with popup validation error messages in notebooks.
• Fix "num" validation pattern.
• Fixes "expected integer" font problem due to Tcl/Tk bug.

calendar

date selector

http://www.satisoft.com/tcltk/gridplus2

• New much simpler/clearer syntax for Embedded Widget Grids.
• New "-spacestretch" option for widget and grid to specify which links between columns can stretch.
• New "-stretch" option for widget and grid to specify which column contents can stretch.
• New "-basename" option for grid to specify the basename for data items and commands.
• New "#style" widget option.
• New define command mode.
• New radiobutton groups facility.
• New window resizing facility.
• New pack command mode to support resizing.
• New "-command" option for text to specify a command to be invoked when the content of the text widget is modified.

• gpselect to "see" the selected row for tablelist.
• It is no longer necessary to name the widget ID for radiobuttons.
• All examples have been updated to use new syntax/facilities/recommendations.
• Examples 2, 4, 5 and 6 have been updated to demonstrate embedded widget grids.
• Example 7 has been updated to demonstrate resizing.

• Fix problem whereby popup validation error messages were not cleared properly for toplevel windows.
• Fix problem with popup validation error messages in notebooks.
• Fix date validations.
• Fix problem with entry popup edit menu in contained windows.
• Fix problem creating default label widgets for embedded grids.
• Fix problem setting dropdown using gpmap.
• Fix problem in widget displaying a label only column when default widget is button/link/menubutton.

• New "-columnformat" option for widget and grid to specify the width of the left and right elements of each column. This makes it possible to line up labels and widgets in separately created grids.
• New "-validatepopup" option to enable "pop-up" validation error messages.
• New "-validateauto" option for widget to determine whether entry validations are to be automatic or forced.
• New "-validate" option for tree and tablelist to invoke entry validations when a tree/tablelist node/row is selected.
• New facility to specify entry validation error messages for individual widgets.
• New "!@" widget option to specify that an entry may be null when a validation is specified. For example: "!@int" means entry may be null or integer.
• New "?!" widget option to set pop-up/balloon text to be same as validation error message.
• The "-entrycommand" option can be used to specify an event to be generated. This can be used to allow the enter key to "Tab" to the next field.
• The "-entrycommand" can now be set using the option database.
• New "-fixed" option for widget grid to specify maximum number of characters allowed in an entry field.
• New widget option for entry widgets to allow both display size and maximum number of characters allowed to be specified for an individual widget.
• New "-topmost" option for window to determine whether a toplevel window will be the topmost window.
• New facility to allow accelerator keys for menus.
• New "-labelanchor" option for grid and layout to determine the position of the frame label text.
• New "Find" option added to text right-click pop-up menu.
• New gpfind/gpfind_dialog commands to perform find operations on text widgets.
• New gpcut/gpcopy/gppaste/gpclear commands to perform cut/copy/paste/clear operations on text and entry widgets.
• New Example "Text Editor" application. See: [2]

• When autogroup facility is in use the initial widget state is set to the opposite of the state specified for when the widget is modified. For example: If ">mygroup" widget option is specified the widget will be created as "disabled".
• The menu seprator can now be specified using "=" to be consistent with grid/layout. The old ("-") method still works.
• The menu command can now be specified using "~" to be consistent with widget. The old (".") method still works.

• Date validations now work for dates prior to 01/01/1970.
• Text right-click pop-up menu only shows "Copy" when created as "disabled".
• "{expand}" changed to "{*}" for Tcl8.5b1 and later.
• Fix problem with validations in contained windows.
• Notebook tab text now uses message catalog.
• The text default font is set to "TkTextFont" to deal with font change in recent (production) 8.5 releases.

• New "-icons" option for tree to determine whether or not icons are displayed.

• The gpmap modified to map to a dropdown value (which makes much more sense!!).
• The window command mode has been modified so that (for a contained window) the "windowcommand" is invoked when a window of the same name already exists.

• Fixed container problem caused by latest Tcl/Tk release.
• Fixed layout edge padding problem for some layouts using spanned columns.

• New GRIDPLUS container command mode to create a frame which can contain toplevel windows.
• New gpselect command to select a tablelist row or tree node.
• New gpinsert command to insert a tablelist row or text line.
• The gpmap command can now also map array elements to GRIDPLUS widget values.
• The window command mode now has an "-in" option to put the window into a container.
• Variable Substitution now also works for the notebook layout.
• The text command mode now has an "-font" option to set the display font when not using tags.

• The -title option for the GRIDPLUS layouts with a name ending with ".main" no longer sets the window title.

• The Notebook now works in toplevel windows.
• The tablelist "-columnsort" now works.

COMMENTS:  edit

• The new version, 2.5, should be noted and documented here...
• Can't get the tree to work: ERROR: Invalid file (C:/Programme/Tcl/lib/tcl8.5/tkIcons)

gpset .mytree2 {
    /a
    /a/b
    /a/b/c
}

gpset .mytree2 {
    /a/b
    /a/b/c
}

1. In the tree widget, how do I get the horizontal scrollbar to work? -scroll x or -scroll xy don't work, only -scroll y works.
2. If I specify -action single and -command test in a gridplus tree statement, how do I know which item gets clicked? It seems that the callback proc didn't get any arguments. Does some kind of %var substitution take place like with bind?
3. The documentation states: ...Specifies text to be displayed for node (Must not begin with "+", ":" -or- "/").... But the various examples for gpset show that inserting entries like /a/b/c is perfectly ok...?

1. When I was working on GRIDPLUS 2.5 the ttk treeview didn't support "X" direction scrolling. I tried it recently with Tcl 8.5.8 and it still didn't seem to work.
2. The value of the array item for the tree will be set to the selected node. For example: If you created a tree called .mytree then the name of the node can be accessed as $(.mytree) - See "Selecting a Tree Node" in http://www.satisoft.com/tcltk/gridplus2/tree.html
3. This applies when specifying alternative display text as a node option. By default, the last part of the nodename (after the last "/") is the text displayed for the node in the tree display. It is possible to specify alternative text - See "Setting Specific Text For a Node" in http://www.satisoft.com/tcltk/gridplus2/tree.html#tree-gpset

• Expanding and collapsing a node with the (space)-key does not trigger the callback, while klicking on the symbol does...

  single/space {
      bind $options(name).tree <Button-1> "after 1 [list ::gridplus::gpTreeSelect $options(name) .$window $options(-validate) [list $command]]"
      bind $options(name).tree <space>    "after 1 [list ::gridplus::gpTreeSelect $options(name) .$window $options(-validate) [list $command]]"
  }

Example 1

Groups

http://www.satisoft.com/tcltk/gridplus2/reference.html#modes

GRIDPLUS2 Container

invalid command name ".win2"
invalid command name ".win2"
    while executing
"$options(name) configure -menu {}"
    (procedure "gpClear" line 24)
    invoked from within
"gpClear"
    (procedure "::gridplus::gridplus" line 116)
    invoked from within
"::gridplus::gridplus clear .win2"
    ("eval" body line 1)
    invoked from within
"eval $gpInfo($options(-in):wcmd)"
    (procedure "gpWindow" line 29)
    invoked from within
"gpWindow"
    (procedure "gridplus" line 138)
    invoked from within
"gridplus window .win1 -in .mycont"
    (procedure "display_win1" line 3)
    invoked from within
"display_win1"
    invoked from within
".select,win1 invoke "
    invoked from within
".select,win1 instate {pressed !disabled} { .select,win1 state !pressed; .select,win1 invoke } "
    (command bound to event)

gpset .form,dropdown_lesson  [db eval "SELECT lesson_name FROM lesson"]

db eval "INSERT INTO new_lesson (lesson_name) VALUES ('[.form,dropdown_lesson get]'"

here

gridplus window .main -modal 1 -topmost 1 -windowcommand main:buttons,exit
wm withdraw .main
eval [format {gridplus widget .main.userWidget -title $fTitle %s} $args]
gridplus button .main.buttons {
    {Weiter .ok} {Abbruch .exit}
}
gridplus layout .main.layout -wtitle $wTitle {
    .main.userWidget
    .main.buttons:e
}
bind .main <Escape> [list main:buttons,exit]
pack .main.layout

gridplus window .main -modal 1 -topmost 1 -windowcommand main:buttons,exit -overrideredirect 1
wm withdraw .main
wm overrideredirect .main 0

if {[gpDialog1 TestFensterTitel TestFrameTitel {
   {&e "Benutzer" .benutzer} {&e "Neues Kennwort" .passwort +}
   {"Optionen" &c .unlock}   {}
}] == 1} {
   msgBox ">>>$gpDialog1bValues<<<"
}

defined

#-------------------------------#
# First, define some widgets... #
#-------------------------------#

gridplus define {
    userid    {&e "User ID" .userid 25 +}
    password  {&e "Password" .password 25 *}
    ok-cancel {|&b "OK" .ok |> "Cancel" .cancel}
}

#----------------------------------#
# Then, use the defined widgets... #
#----------------------------------#

gridplus widget .dialog -wtitle Login {
    @userid
    @password
    =
    @ok-cancel
}

pack .dialog

#-------------------------------------#
# ...to create a simple login dialog. #
#-------------------------------------#

• Just tested the &D-Dropdown-Date-Selector, but it's window appears behind the main dialog window (perhaps because the main windows has the attribut -topmost 1?).
  • MHo: I tested it again, yes, it was the topmost 1.
  • adavis 2011-06-10: I'll look into this.
• A predefined file/directory selector would eleminate the need to code a button callback routine, which in turn calls tk_getOpenFile etc.
• adavis 2011-06-10: What do you require that is different from tk_getOpenFile?
  • MHo I thought of some kind of megawidget: an entry widget with a button to the right, togeter as a unit. Klicking in the button (labeled "...", e.g.) open the FileOpen-dialog. Or something like that. Just to reduce the neccesseraity to code a callback, for no other reason.

• Is it possible to redefine the day/month names? Maybe I overlooked something...
• adavis (10th June 2011): The day/month names are set according to the locale. It uses the day/month names as they are returned by the clock command.
  • MHo I notice, that the clock command doesn't do automatically what it should (IMHO), at least on Windows XP:

% clock format [clock seconds] -format %A
Friday; # wrong
% clock format [clock seconds] -format %A -locale current
Freitag; # correct
% clock format [clock seconds] -format %A -locale system
Freitag; # correct
%

• The Calendarcontrol only handles mouse clicks, the arrow keys seem to have no effect.
• Another fundamental: how to give default values for entry fields (GPSET or manipulating {} before doesn't help as the values are cleared on call!)???
• The text "-ecmd <tab>" should be rewritten as "-ecmd <Tab>" in your documentation.

http://www.satisoft.com/tcltk/gridplus2/embedded-grid.html#example3

  Bugs:
   - I think internal group data is not completely deleted when doing "gridplus clear …“
   - When using an embedded grid and a -group name I get an error when trying to disable the group widgets:
     "gridplus::gridplus set -group view_dummy -state disabled" -> Error: unknown option "-state"
   - An embedded grid takes some more left and right space than a normal grid (some pixels only!)
   - I cannot get locale days in german because of the clock behaviour in 8.5 as already mentioned by [MHo]

  Enhancements:
   - a spinbox widget
   - a time selection widget i.e. a clock with moveable hands (like iWidgets)
   - I would like to call a given proc with a parameter from a button like this: "{&b .name=para :image ~:::namespace::myproc}"

   - I think internal group data is not completely deleted when doing "gridplus clear …“

   - When using an embedded grid and a -group name I get an error when trying to disable the group widgets
   - ([ARR] -> solved! see below...)

gridplus widget .mygrid {
    {"My Label" || |&e "Entry 1" .entry1 %mygroup |> "Entry 2" .entry2 %mygroup |> "Entry 3" .entry3 %mygroup}
}

pack .mygrid

gridplus set -group mygroup -state disabled

gridplus optionset myoptions {
    -group mygroup
    -style {}
}

gridplus widget .mygrid {
    {"My Label" || |#myoptions |&e "Entry 1" .entry1 |> "Entry 2" .entry2 |> "Entry 3" .entry3}
}

pack .mygrid

gridplus set -group mygroup -state disabled

option add *Gridplus.optionsetDefaultStyle 1

   - An embedded grid takes some more left and right space than a normal grid (some pixels only!)

   - I cannot get locale days in german because of the clock behaviour in 8.5

   - a spinbox widget

http://www.satisoft.com/tcltk/gridplus2/groups.html

   - a time selection widget i.e. a clock with moveable hands (like iWidgets)

   - I would like to call a given proc with a parameter from a button

proc myproc {parameter} {
    puts $parameter
}

gridplus button .mygrid {
    {"Press Me" .mybutton "~myproc myparameter"}
}

pack .mygrid

{:fileopen16 "^Quelle:w" |: }
{ |: "Datei(en)/Ordner:" |> &e .source 30 |: &b "Datei(en)..." .button=chooseFile  |: &b "Ordner..." .button=chooseDir}
{}
=
{:devpc16 "^Ziel:w" |: }
{ |: "Maschine(n):"      |> &e .dest 30   |: &b "AusGruppe..." .button=chooseADGrp |: &b "QueryFarm..." .button=getFarm}
{ |: "Zielpfad:"         |> &e .dPath 30  |: ^ |: ^ }
{}
=
{:apptools16  "^Optionen:w" |: }
{ |: &c .testOnly "Testmodus"}
{ |: &c .overWrite "Vorhandene Zieldateien überschreiben" +}

gridplus optionset x {
    -cfmt  {0 10}
    -style {}
}

gridplus widget .test {
    {:fileopen16 "^Quelle" |>}
    {|: |#x &e "Datei(en)/Ordner:" .source 30 |> &b "Datei(en)..." .button=chooseFile  |: &b "Ordner..." .button=chooseDir}
    {}
    =
    {:devpc16 "^Ziel" |>}
    {|: |#x &e "Maschine(n):"      .dest 30   |> &b "AusGruppe..." .button=chooseADGrp |: &b "QueryFarm..." .button=getFarm}
    {|: |#x &e "Zielpfad:"         .dPath 30  |>}
    {}
    =
    {:apptools16  "^Optionen" |>}
    {|: &c .testOnly  "Testmodus" |>}
    {|: &c .overWrite "Vorhandene Zieldateien überschreiben" + |>}
}

pack .test

{:fileopen16 "^Quelle:w" |: }
{ |: "Datei(en)/Ordner:" |> &e .source 30 } {&b "Datei(en)..." .button=chooseFile |: &b "Ordner..." .button=chooseDir}
{}
= - - - -
{}
{:devpc16 "^Ziel:w" |: }
{ |: "Maschine(n):"      |> &e .dest 30   } {&b "AusGruppe..." .button=chooseADGrp |: &b "QueryFarm..." .button=getFarm}
{ |: "Zielpfad:"         |> &e .dPath 30  } 
{}
= - - - -
{}
{:apptools16  "^Optionen:w" |: }
{ |: &c .testOnly "Testmodus"}
{ |: &c .overWrite "Vorhandene Zieldateien überschreiben" +}

if {[gpDialog1 dlg1 {Kennwort zurücksetzen} [list -taborder row] {
   {&e "Benutzer :e"       .benutzer 20 +}
   {&e "Neues Kennwort :e" .passwort 20}
   {=}
   {&c .mustchg "Änderung bei 1.Anmeldung erzwingen :w" +}
}] == 1} {
   array set myVals $dlg1_Val
} else {
   return
}
# :
# :
# now we can use $myVals(benutzer), $myVals(passwort), etc.
# :

gridplus widget .test {
    {:fileopen16 "^Quelle" |>}
    {|: &e "Datei(en)/Ordner:10" .source 30 |> &b "Datei(en)..." .button=chooseFile  |: &b "Ordner..." .button=chooseDir}
    {}
    =
    {:devpc16 "^Ziel" |>}
    {|: &e "Maschine(n):10"      .dest 30   |> &b "AusGruppe..." .button=chooseADGrp |: &b "QueryFarm..." .button=getFarm}
    {|: &e "Zielpfad:10"         .dPath 30  |>}
    {}
    =
    {:apptools16  "^Optionen" |>}
    {|: &c .testOnly "Testmodus" |>}
    {|: &c .overWrite "Vorhandene Zieldateien überschreiben" + |>}
    {}
}

pack .test

{&d "Dropdown One" .dropdown1 {+"Option one" "Option two" "Option three"} >}

gpset

set mydata [array get {}]

array set {} $mydata

if {$select} {
    $widgetName invoke
}

if {$select} {
    set ($widgetName) 0
    $widgetName invoke
}

if {type_of_widget is checkbox} {
    if {save_value} {
        widget invoke
    }
}

gridplus widget .mydialog -wtitle Dialog {
   {&e "Entry"         .myentry}
   {&c "Checkbutton"   .mycheck}
   {&r "Radiobutton 1" . +radio1 *radiogroup}
   {&r "Radiobutton 2" . -radio2 *radiogroup}
   {&d "Dropdown"      .mydrop {+"Option One" "Option Two" "Option Three"}}
}

pack .mydialog

update idletasks

gpset {
   .mydialog,myentry    "Test String"
   .mydialog,mycheck    1
   .mydialog,mydrop     "Option Two"
   .mydialog,radiogroup radio2
}

• It seems that using -title title for a widget automatically forces the -relief value to theme?
• Using -relief theme alone (without a title) "interrupts" the border where otherwise the title would be?
• Keyboard Shortcuts in Buttons would be great (So one can press Alt+O for Ok, or Alt+C for cancel).

• Is it right, that the ~command-option has no meaning with links...? That is, I cannot overwrite the autogenerated name of the proc that is called if the link is clicked?

main.tcl:

package require Tk
package require gridplus 
namespace import gridplus::*
set c 0;set row 0; set inTime 0; set nearTime 0; set pastTime 0
set cmbName ""; set cmbWard ""
option add *Gridplus.linkColor /blue
option add *Gridplus.icon right1wbw 
option add *Gridplus.linkStyle 10/10
option add *Gridplus.labelStyle 10/10
ttk::setTheme clam
ttk::style configure title.TLabel -font {"Tahoma" 16} ; # -foreground white -background dodgerblue
ttk::style configure TLabel -font {"Tahoma" 10 bold}
ttk::style configure TButton -font {"Tahoma" 10 bold}
#=======================================================================#
# WINDOW SETTINGS                                                       #
#=======================================================================#
wm title . "TrakPil"
bind . <Escape> {exit}
wm geometry . +0+0
#=======================================================================#
# INCLUDE SOURCES                                                       #
#=======================================================================#
source "./Menu.tcl"
source "./FormRegistration.tcl"
#=======================================================================#
# CONTAINERS CONFIGURATION                                              #
#=======================================================================#
gridplus container .ctrMenu -height 600 -width 150 -relief groove -sticky new
gridplus container .ctrForm -height 600 -width 700 -relief groove -sticky new
gridplus container .ctrTop   -height 50 -width 860 -relief ridge  -sticky new
gridplus container .ctrBtm   -height 65 -width 860 -relief raised -sticky new
#=======================================================================#
# TOP BAR (TITLE)                                                       #
#=======================================================================#
if {! [gridplus window .top -in .ctrTop]} {return}
ttk::label .top.lblTitle -text "TRAKPIL v0.4 - PRESCRIPTION TRACKER SYSTEM" -style title.TLabel
    gridplus layout .top.display {
     .top.lblTitle:c  
    }
    pack .top.display -expand 1 -fill both
#=======================================================================#
# SET LAYOUT AND DISPLAY                                                #
#=======================================================================#
gridplus layout .mainDisplay -wtitle "TrakPil 0.4" {
    .ctrTop     -
    .ctrMenu   .ctrForm
    .ctrBtm     -
}

pack .mainDisplay
focus -force .mainDisplay
proc formInit {} {
if {! [gridplus window .form -in .ctrForm]} {return}
    foreach tag {. .form} {
        bind $tag <F1> {tkcon show}
        bind $tag <Escape> {exit}
        bind $tag <Alt-Key-1> menu:main,registration 
        bind $tag <Alt-Key-2> menu:main,tracking 
        bind $tag <Alt-Key-3> menu:main,queue
        bind $tag <Alt-Key-4> menu:main,complete
        bind $tag <Alt-Key-5> menu:main,logout
        bind $tag <Alt-Key-6> menu:main,mainmenu 
    }
if {[winfo exists .gpValidateError]} {wm withdraw .gpValidateError}
}
Menu

Menu.tcl:

proc Menu {} {
    formInit
    if {! [gridplus window .menu -in .ctrMenu]} {return}
    gridplus link .menu.main -iconfile tkIcons.sat {
       {: "1. Registration" .registration}
       {: "2. Tracking"     .tracking}
       {: "3. Work Queue"   .queue}
       {: "4. Scan Barcode" .scan}
       {: "5. Complete"     .complete}
       {: "6. Logout"       .logout}
    }

    ttk::label .form.lblTitle -text "\n\n\n\nPLEASE CLICK ON MENU ITEM\n\n\n\n\
    OR PRESS ALT + MENU NUMBER" -style title.TLabel -justify center 
    gridplus layout .form.display {
     .form.lblTitle:c
    }
    pack .form.display -expand 1 -fill both

    gridplus layout .menu.display {
        .menu.main
    }
    pack .menu.display -expand 1 -fill both
}
proc menu:main,registration {} {
    FormRegistration
}
proc menu:main,tracking {} {
    FormTracking
}
proc menu:main,queue {} {
    FormQueue
}

FormRegistration.tcl:

proc FormRegistration {} {
    formInit
    #=======================================================================#
    # TITLE                                                                 #
    #=======================================================================#
    ttk::label .form.lblTitle -text "REGISTRATION OF PRESCRIPTION" -style title.TLabel
    #=======================================================================#
    # REGISTRATION FORM                                                     #
    #=======================================================================#
    gridplus entry .form.registration -validatepopup 1 {
       { "PATIENT DETAILS:"}
       {   "Hospital Number: "  .txtHospNum 20 "!int?Please enter correct Hospital Number" }
       {   "Surname: "          .txtSurname 20 }
       {   "Forename: "         .txtForename 20}
       {&d "Ward: "             .cmbWard 17}
       =
       {"PRESCRIPTION DETAILS:"} ^
       {&d "Prescription Type: " .cmbType 17 }
       {   "Number of Items: "   .txtItem 5 "!int?Must be a valid number" }
       {&d "Initial Comments: "  .cmbComment 40}
       {&c "Fast Track "         .chkFast  }
       {&b .register :actcheck16 "Register" ! |: &b .clear :actstop16 "Clear Form" }
    }
    .form.registration,cmbComment configure -state normal
    # click to open comment combobox because is editable 
    bind .form.registration,cmbComment <ButtonPress> {event generate %W <Down>}
    focus .form.registration,txtHospNum

    gpset .form.registration,cmbType     [db eval {SELECT typename FROM type}]
    gpset .form.registration,cmbWard     [db eval {SELECT wardName FROM ward}]
    gpset .form.registration,cmbComment  [db eval {SELECT comText FROM comment}]
    .form.registration,cmbType current 0

    gridplus layout .form.display {
     .form.lblTitle
     .form.registration
}
    pack .form.display -expand 1 -fill both
}

{ &b "Nach oben"        .upList      ~m_dlgKS_CB_moveUpInList   15 < %rightGrp2 :nav1uparrow16    }
{ &b "Nach unten"       .downList    ~m_dlgKS_CB_moveDownInList 15 < %rightGrp2 :nav1downarrow16  }
{ &b "Pause einfügen"   .pauseList   ~m_dlgKS_CB_insPauseInList 15              :appclock16       }

• Is it possible to align the text left and the icons right within the button? In the example above, the icons are on the left side, and everything is centered. I Tried "Nach oben:e", but it has no effect (The ":e" becomes visible part of the button text instead....).
• Another question: I have a dialogue with mixed buttons and two tablelists. The tablelists do not gain focus during keyboard traversal, even with -takefocus 1. What could be wrong?

gridplus widget .mygrid -compound right {
    {&b "Nach oben        " .upList    ~m_dlgKS_CB_moveUpInList   15 < %rightGrp2 :nav1uparrow16  }
    {&b "Nach unten       " .downList  ~m_dlgKS_CB_moveDownInList 15 < %rightGrp2 :nav1downarrow16}
    {&b "Pause einfügen"    .pauseList ~m_dlgKS_CB_insPauseInList 15              :appclock16     }
}

gridplus text .mytext -width 25 -height 8 -scroll y -title "Text Box"

.mytext configure -text "New Title"

gpinsert name index text

name.text insert index text

This Example

Here

gridplus text .mytext -menu .mymenu -tags 1
 
gridplus layout .main -wtitle "Text Example" {
    .mytext
}
 
pack .main

gpset .mytext {
<b>This Text is Bold</b>
This text is not bold
}

gpinsert .mytext end "Here is some <color red>red</color> text"
gpinsert .mytext end "Here is some <color blue>blue</color> text"
gpinsert .mytext end "<u>This text</u> is underlined"

.mywidget.text see end

Here

gridplus text .mywidget -state disabled -font {courier 8} -scroll xy -wrap none
.mywidget.text see end

package require gridplus 
namespace import gridplus::*

gridplus text .mywidget  -scroll xy  -wrap none 
gridplus layout .main -wtitle "Test" {
      .mywidget
}
pack .main

for {set i 1} {$i < 30} {incr i} {
after 300
gpinsert .mywidget $i $i ;update
}

package require gridplus 
namespace import gridplus::*

gridplus text .mywidget  -scroll xy  -wrap none 
gridplus layout .main -wtitle "Test" {
      .mywidget
}
pack .main

for {set i 1} {$i < 30} {incr i} {
after 300
gpinsert .mywidget $i $i ;update
#effect of auto scrolling ?
.mywidget.text see end
}

for {set i 1} {$i < 30} {incr i} {
    after 300
    gpinsert .mywidget end $i
    update idletasks
    .mywidget.text see end
}

gridplus tablelist .mytable {
    4 "Column1"
    4 "Column2"
    0 "Column3"
}

gridplus layout .main -wtitle "Tablelist Example" {
   .mytable
}

pack .main

can't access "::tablelist::ns.::data": parent namespace doesn't exist
can't access "::tablelist::ns.::data": parent namespace doesn't exist
    while executing
"upvar ::tablelist::ns${win}::data data"
    (procedure "tablelist::addActiveTag" line 2)
    invoked from within
"tablelist::addActiveTag ."
    (command bound to event)

grid .mytext.ybar -row 0 -column 0 -sticky ns
grid .mytext.text -row 0 -column 1 -sticky nsew

http://www.satisoft.com/tcltk/gridplus2/groups.html

gridplus widget .statusbar -relief groove -stretch 0 {
    {"^Connection Status: " .status} {&l .connect :disconnect}
}
proc statusbar,connect {} {}

gridplus widget .statusbar -relief groove -stretch 0 {
    {"^Connection Status: " .status} {.connect}
}

.statusbar,connect configure -image disconnect

.statusbar,connect configure -image connect

gridplus widget .statusbar -relief groove -stretch 0 {
    {"^Connection Status: " .connection}
}

.statusbar,connection configure -image disconnect

gridplus entry .myentry -stretch 0 -width 30 -title "Entry Grid" {
   {"Entry One"   .entry1:ew}
   {"Entry Two"   .entry2:ew}
   {"Entry Three" .entry3:ew}
}

gridplus pack .myentry -resize xy

gridplus entry .myentry -stretch 0 -width 30 -title "Entry Grid" {
   {"Entry One"   .entry1:ew}
   {"Entry Two"   .entry2:ew}
   {"Entry Three" .entry3:ew}
}

gridplus layout .mylayout -wtitle "Resize Example" {
   .myentry:ew
}

gridplus pack .mylayout -resize xy

gridplus entry .entry -stretch 0 {
    .entry:ew {&b .button Foo}
}

gridplus layout .main {
    .entry:ew
}

gridplus pack .main -resize x

gridplus entry .entry -stretch 0 {
    {entry .entry:ew }
}

gridplus button .button  {
    {Foo .button } 
}

gridplus layout .main {
    .entry:ew
    ^ .button+
}

gridplus pack .main -resize x

gridplus entry .entry -stretch 0 -spacestretch {000} {
    .entry:ew {&b .button Foo}
}

gridplus layout .main {
    .entry:ew
}

gridplus pack .main -resize x

gridplus button .b {
   {Foo .b1 ~{foo bar}} {Bar .b2}
}

gridplus button .b {
   {Foo .b1 "~foo bar"} {Bar .b2}
}

gridplus text .t

gridplus pack .t

gpset .mytable {}

gpset tooltips {
   widget {text...}
   widget {text...}
   :
}

http://www.satisoft.com/tcltk/gridplus2/resize.html

gridplus entry .name {
   {"First name " .firstname:ew}
   {"Last name "  .lastname:ew}
}

package require gridplus
namespace import gridplus::*
gridplus text .mytext1 -width 80 -height 5 -title "Titel!"
gridplus text .mytext2 -width 80 -height 5
gridplus layout .main -wtitle "Text Menu Example" {
   .mytext1
   .mytext2
}
pack .main

• Home
• Recent changes
• Help
• WhoAmI/Logout
• Create new page
• Random page
• Previous page
• Next page
• 
  
• Add comments
• Edit
• History
• Edit summary
• References