Only a couple of updates to the code this month.
gnocl::toggleButton
new option -iconSize, set to one of: menu, small, large, button, dnd or dialog.
gnocl::button
-iconSize now works properly, set to one of: menu, small, large, button, dnd or dialog.
gnocl::image
new command size, returns size of a valid image file.
gnocl::font renamed to gnocl::pangoFont
convert pango font string to valid Tcl tagged list.
Sometimes you just want to drop a small toolbar or widget holder on screen without all the decorations and controls. This code minimal minimal object is about as simple as it gets.
Just a few updates:
gnocl::fixed
o new option for move command, -align {x y} ; pair of floats (0-1.0) for positioning
gnocl::pixBuf
o new command getOrientation, returns either portrait or landscape
gnocl::pointer
o new command, get returns pointer screen x y coordinates
gnocl::window
o pointer command now has -screen option to return screen coordinates
gnocl::toolBar
o -iconSize and -style configure and cget fixed.
gnocl::text
o -shadow option now works properly (applied to scrolled window container).
o search now has new option -wholeword <boolean> ; select between wholewords (1) and substring (0, default)
gnocl::callback
o new subcommands, prepend and append. Extend widget signal callback scripts.
A little late in the offering, but a few enhancements were made to the core options since the last posting.
2020-09:
gnocl::window
o -icon option now recognizes %# (stock item) %/ (file) and %? (buffer) percent strings.
2020-08:
gnocl::notebook
o new command: getLabel
gnocl::toolbar
o new option: -widthGroup.
A bit late, but a couple of updates in July. The text search applying to whole words may present some issues where pattern matching on sub-strings was used. A later version may see the introduction of a -subString option.
2020-07:
gnocl::label
o new options: -editable, boolean. Use in conjunction with the edit command.
-onEnter, -onLeave, allows reaction to potential label rollover effects.
gnocl::text
o search will now ignore word embedded search patterns, i.e. search whole word only.
The way in which the tree and list widgets handle cell formatting is to emphasize data groups in the context a columns, and their background colouration. Specific cells are usually formatted based upon their contents, principally as foreground attributes although cell value contents can also be formatted using pango markup.
Row formatting in comparison is principally used for assisting visibility such as changing alternating row colour hinting and treeline. Selected rows are temporarily highlighted. Unlike the column configuration options Gtk+ offers no equivalent for setting rows attributes. To achieve this, each cell value needs to be reset and specific attributes assigned. The following example shows how to set the foreground colour for cells in the same row.
#!/bin/sh
#\
exec tclsh "$0" "$@"
package require Gnocl
#---------------
# create UI
#---------------
proc main {} {
set box [gnocl::box -orientation vertical]
set ::list [gnocl::list \
-titles {"string" "string" "string" "string"} \
-types {string string string string} ]
$box add $::list -fill {1 1} -expand 1
gnocl::window -child $box -setSize 0.25
$::list add {0 "list widget" -104 1.45} -singleRow 1
$::list add {1 "window box" 3350 9.58} -singleRow 1
$::list add {AAA BBB CCC DDD} -singleRow 1
$::list columnConfigure 1 -editable 1
}
main
proc colorRowInit {wid {from 0} {to end}} {
global _activeRow
if { $to == "end" } { set to [$wid columns] }
for { set i $from } { $i < $to } { incr i } { $wid columnConfigure $i -onCellData {setColor2 %w %p %v} }
set _activeRow ""
#---------------
# change entry colour
#---------------
proc setColor2 { wid row val } {
global _activeRow
if { $row == $_activeRow } {
return "-foreground red "
} else {
return "-foreground [list [$wid cget -textColor]] "
}
}
gnocl::update
}
proc colorRow {wid row} {
global _activeRow
set _activeRow $row
for {set i 0} {$i < [$wid columns] } { incr i } {
$wid cellConfigure $row $i -value [$wid get $row $i]
}
$wid draw
gnocl::update
}
colorRowInit $list
set _activeRow 0
while 1 {
after 1000
colorRow $list $_activeRow
if { [incr _activeRow] == [$list rows] } { set _activeRow 0 }
}
