gnocl::widget - new command 'attach'

The menu widget allows for the organization of menu items into rows and columns. This can now be achieved using the 'attach' sub-command. Where required, menu items can be allow to span multiple rows or columns. The syntax for this this command is:

<widget-id> attach <menuitem-id> row col <options>

The possible options are -rowSpan (int) and -colSpan (int). 

Menu items are only expanded to fill actual rows and columns. So, if the last item requests a spacing of 2 rows, it will only be allocated the space required for its default rendering.

Modifications available in nightly build.

The following test code shows this in operation:

# test-menu-attach.tcl
#!/bin/sh
# the next line restarts using tclsh \
exec tclsh "$0" "$@"


package require Gnocl

set menu [gnocl::menu]

$menu add [gnocl::menuItem -text "%#New" -onClicked {puts "That's new"}]
$menu add [gnocl::menuSeparator]
$menu add [gnocl::menuItem -text "%#Quit" -onClicked exit ]

set file [gnocl::menuItem -text "%__File" -submenu $menu]

set menu [gnocl::menu]

$menu add [gnocl::menuItem -text "%__About" -onClicked {puts "Menu example"}]

set help [gnocl::menuItem -text "%__Help" -submenu $menu]
set box [gnocl::box -orientation vertical -borderWidth 0 -spacing 0]


set extras_menu [gnocl::menu]
set extras  [gnocl::menuItem -text "%__Extras" -submenu $extras_menu]

$box add [gnocl::menuBar  -children [list $file $help $extras]]

set em(1) [gnocl::menuItem -text FIRST]
set em(2) [gnocl::menuItem -text SECOND]
set em(3) [gnocl::menuItem -text THIRD]
set em(4) [gnocl::menuItem -text FOURTH]
set em(5) [gnocl::menuItem -text FIFTH]
set em(6) [gnocl::menuItem -text SIXTH]
set em(7) [gnocl::menuItem -text SEVENTH]
set em(8) [gnocl::menuItem -text EIGTH]
set em(9) [gnocl::menuItem -text NINTH]

$extras_menu attach $em(1) 0 0
$extras_menu attach $em(2) 0 1
$extras_menu attach $em(3) 1 0 -colSpan 2
$extras_menu attach $em(4) 2 0
$extras_menu attach $em(5) 3 0 -rowSpan 2
$extras_menu attach $em(6) 4 1
$extras_menu attach $em(7) 5 0 -rowSpan 2 -colSpan 2
$extras_menu attach $em(8) 5 2
$extras_menu attach $em(8) 6 2

gnocl::window  -child $box -setSize 0.2

gnocl::mainLoop

gnocl::tree & gnocl::list -highlighting columns

Its possible to use Ctrl-F to launch an interactive search of entries contained within a tree or list view. Prior to any search, however, the column needs to be preselected. This mornings coding session has fixed a couple of issues within the gnocl core modules to enable this process to be done interactively under Tcl control. A single click on a cell in an view can now result in the column being preselected and highlighted. The following example script shows how its done. Get the nightly build for all the updates.

# test-me.tcl
#!/bin/sh
# the next line restarts using tclsh \
exec tclsh "$0" "$@"

package require Gnocl

set chn2indic:mappings(conjuncts) {
阿呵 āha
阿訶 āha
爍鉢 śva
悉吉利 skri
室佛 śva
地利 dhri
穆帝 mukta
佛囉 pra
帝利 tre
}

#---------------
# view and edit specific lists
#---------------
#
proc chn2indix:view:call_back {w c} {
    set last [$w cget -searchColumn]
    $w columnConfigure $last -background white
    $w columnConfigure $c -background grey
    $w configure -searchColumn $c

    # force window refresh, Gtk+ has some internal issues here!
    if {$last != $c} {
        [gnocl::winfo toplevel $w ] grabFocus
    }
}


#---------------
# view and edit specific lists
#---------------
#
proc chn2indix:view { set } {

    global chn2indic:mappings

    set vbox [gnocl::vBox]
    set tbar [gnocl::toolBar]
    set lst [gnocl::list -types {string string} -baseFont {Sans 14} -data {0} ]
    set hbox [gnocl::hBox ]
    set but(1) [gnocl::button -text Accept]
    set but(2) [gnocl::button -text Cancel]
    set stat [gnocl::statusBar]

    # add toolbar widgets
    $tbar add item -text "%#New"

    $lst columnConfigure 1 -editable 1 -background grey
    $lst configure -onSelectionChanged {puts "%p"} -searchColumn 1
   
    # atttempt to highlight selected column   
    $lst configure -onButtonRelease {
        set col [lindex [%w coordsToPath %x %y] 1]
        chn2indix:view:call_back %w $col
     
    }

    $vbox add $tbar  -fill {1 0} -expand 0
    $vbox add $lst -fill {1 1} -expand 1
    $hbox add $but(2) -align right -fill {0 1} -expand 0
    $hbox add $but(1) -align right -fill {0 1} -expand 0
    $vbox add $hbox -fill {1 0} -expand 0 -align right
    $vbox add $stat -fill {1 0} -expand 0

    # populate the list
    set i 0
    foreach {a b} [set chn2indic:mappings($set) ] {
        $lst add [list $a $b] -singleRow 1
        incr i
    }

    $stat push "$i items in the current list."

gnocl::window -child $vbox -width 200 -height 400 -x 950 -y 200

}

chn2indix:view conjuncts

gnocl::tree boolean toggling -solved!

Just completed the job of bringing the button toggling into the main code module. Took longer than I anticipated. The logic of it all was straight forward but, for some unknown reason, the Gtk+ libraries kept rejecting booleans typed variables for the value setting! So, these were set to uint and all works well!

gnocl::tree issues around toggling booleans

The gnocl::tree and gnocl::list widgets automatically set tick boxes for columns identified as containing boolean data.  The present distribution (0.9.96) will cause a warning if a tree view is created, data added but no callback script set for the column containing the toggle item. Furthermore, the Gtk library code does not automatically toggle the cell widget anyway! This is something to add into the gnocl core and so I've added this to the 'todo' list.

So, when a script has the following type of widget declaration...

set tree [gnocl::tree \
-treeLines 1 \
-ruleHint 1 \
-types {string boolean} \
-titles {"Mapping Source" "Select"}]

Make sure that this configuration follows immeadiately...

$tree columnConfigure 1 -onToggled {
if { [%w get %p %c] } {
%w cellConfigure %p %c -value 0
} else {
%w cellConfigure %p %c -value 1
}
}

gnocl::text tag rollover effects

Suprisingly, to me at least, tag rollover is not standard feature of the GtkTextTag. I've had Tcl a solution for some time now but always felt that this needed to be moved in to the package code itself. Whilst implementing rollover effects isn't difficult, matters would be made easier if the widget internals offered tag signals which tracked motion in and out of the tag rather than giving the simpler 'event' event binding. Well, its sorted now and the following test script illustrates how it works. There's a little more tweeking that can be done to the source code to allow similar changes to the rollover tag background colour. Finally,  runtime changes to the rollover colour setting (default = red) for the script will affect all instances of text widgets within a script.

# tagRollover.tcl

#!/bin/sh
# the next line restarts using tclsh \
exec tclsh "$0" "$@"

package require Gnocl

set text [gnocl::text ]

$text configure -rollOverColor red

# whenever the pointer moves, clear any rollOver highlight
 $text configure -onMotion { #puts MOTION }


for {set j 0} {$j <= 5 } {incr j} {
 # create new, rollOver tag
 $text tag create _tag_rollOver_$j -rollOver 1 -fontWeight bold -foreground blue -onEvent {puts "HELLO!"}

 # use it
 $text insert end "This is "
 $text insert end "Gnocl tag $j" -tags _tag_rollOver_$j
 $text insert end "! \n"
}

gnocl::window -title "Text TagRollover Effects" -child $text -setSize 0.25
gnocl::mainLoop

gnocl::label -last of the signal bindings done!

Just added the last two signal bindings for this widget.
-onActivateCurrentLink
-onActivateLink
Nightly build updated.

gnocl::label -more options added

With the ability to copy text from the label widget being added, the widget can report a number of events. Those added today include: -onPopulatePopup, -onCopyClipboard, -onMoveCursor.

Available in today's 'nightly-build'.