I recently upgraded my workstation to Ubuntu 19 which has resulted in a number of downstream compilation issues. So, I'm currently in the process of ironing these out. These aren't subtantial but do result in runtime segmentation faults. Needlessly to say, these are very irritating, as they largely represent imcompatibilities between the earlier code and newer library internals.
Hey, ho! Moving along!
2019-11:
Building against Gtk+ 2.24.32 api
o removed unecessary code, all functions working.
gnocl::recentManager
o commands check, get, add, remove and purge now implemented
(warning dialog appears to confirm/cancel purge)
gnocl::recentChooserDialog
o new options -recentManager, -fileFilters, -sortType,
-limit, -localOnly, -showIcons, -showPrivate, -showTips, -returnURI,
-selectMultiple (does not return user selection, but those RCM list)
gnocl::splashScreen
o code simplified to remove unexpected crashes.
o status and progressBar repositioned to handle changes to the background image size.
gnocl::toolPalette
o gnocl::itemGroup and gnocl::itemTool implemented to return help information.
gnocl::aboutDialog -
gnocl::fontSelectionDialog -
gnocl::fileChooserDialog -
gnocl::message -
gnocl::recentChooserDialog -
gnocl::colorSelectionDialog -
gnocl::assistant -
gnocl::pageSetupDialog -
gnocl::window -
gnocl::application
o added -parent to all dialogs and windows
gnocl::radioButton
gnocl::paned
gnocl::notebook
gnocl::pixBuff
o new commands: icon and masthead, create pixbufs from internal graphics.
gnocl::window
o all toplevels now show the gnocl logo by default
gnocl::menuBar
o cget works for all options
o new commands append, prepend, insert
gnocl::winfo
o tidied up debugging messages
gnocl::iconView
o new option -data (data assigned to widget scrolledWindow)
o add command will now also load stockitems and pixbufs
o "not recommended" bindings removed from module sources (See Gtk docs for details)
o viewer model is preset, so related options have been removed
gnocl::drawingArea
o irregularlities with -onButtonPress script substitutions now fixed
o -actions now automatically set to an empty list, (no need to initialize to prevent crash)
Wednesday, December 11, 2019
Sunday, November 03, 2019
Recent Changes, October 2019
The past few weeks has offered me the opportunity to scan through the Gnocl code base and to do some much needed maintance. There's still much to do, but here's a summary of the past month's efforts.
gnocl::colorSelectionButton
o this is a very widget, unecessary functions removed.
gnocl::colorButton
o deprecated items removed
substitution string %a now works correctly
gnocl::fileSelection (deprecated widget)
o bugs fixed
gnocl::entry
o command onChanged renamed to changed.
gnocl::curve
o added options: -visible, -tooltip, -sensitive, -name, and -data.
gnocl::colorSelection
o added -tooltip, -onColorChanged, -palette
o added cget
gnocl::clock
o added commands, options, commands
o timeout now cancels when widget destroyed.
gnocl::assistant
o added commands insertPage, appendPage, prependPage
gnocl::pixBuf
o bug fix: load -file, will no longer crash if file not found.
gnocl::dialog
o fixed problems with showing StockItem icons in dialog response buttons.
gnocl::labelEntry
o new command set
gnocl::menu
o fixed -data option problems
o new command parent, returns the widgetId of the object to which the menu is attached.
gnocl::toolBar - menuButton
o -text option is now reconfigurable.
o cget -text and -menu now work.
o new options -heightRequest, -widthRequest
gnocl::menuItem
o setting -submenu to "" will remove current submenu. Submenu widget will not be destroyed.
gnocl::
o the "options" command will now return tagged lists suitable for use with the dict command.
gnocl::tree/gnocl::list
o cget now works for options -columns, -selectionMode, -children
gnocl::colorSelectionButton
o this is a very widget, unecessary functions removed.
gnocl::colorButton
o deprecated items removed
substitution string %a now works correctly
gnocl::fileSelection (deprecated widget)
o bugs fixed
gnocl::entry
o command onChanged renamed to changed.
gnocl::curve
o added options: -visible, -tooltip, -sensitive, -name, and -data.
gnocl::colorSelection
o added -tooltip, -onColorChanged, -palette
o added cget
gnocl::clock
o added commands, options, commands
o timeout now cancels when widget destroyed.
gnocl::assistant
o added commands insertPage, appendPage, prependPage
gnocl::pixBuf
o bug fix: load -file, will no longer crash if file not found.
gnocl::dialog
o fixed problems with showing StockItem icons in dialog response buttons.
gnocl::labelEntry
o new command set
gnocl::menu
o fixed -data option problems
o new command parent, returns the widgetId of the object to which the menu is attached.
gnocl::toolBar - menuButton
o -text option is now reconfigurable.
o cget -text and -menu now work.
o new options -heightRequest, -widthRequest
gnocl::menuItem
o setting -submenu to "" will remove current submenu. Submenu widget will not be destroyed.
gnocl::
o the "options" command will now return tagged lists suitable for use with the dict command.
gnocl::tree/gnocl::list
o cget now works for options -columns, -selectionMode, -children
Tuesday, October 15, 2019
Serialize/Deserialize a Gnocl Tree Widget
The options and command set of the gnocl::tree widget allow for easy creation and editing of data arranged and displayed in a tree structure. What is lacking in the Gtk api is an equivalent of the GtkTreeView serialize and deserialize functionality.
Creating a similar offering for the gnocl::tree is not altogether difficult to implement because it is possible to sequentially extract data from a tree which can then be saved for later use (serialize). When the data is next needed for use, it can be sequentially added to a new tree widget (deserialize).
The sampe code below will produce the following, the tree on the left is created through the direct addtion of data, whereas the tree on the right (with treelines) is created by deserializing the data set of the first tree.
When data contained in a tree was serialzed the following list was returned and save to disk. Each line of list represents a row in the tree where the first item is the node path, and the second item, the data itself. More specifically, the data contains the valued held in each cel on each row. Hence, 2 values for 2 columns per row.
0 {Mamals 0}
{0 0} {Cat 4}
{0 1} {Dog 4}
{0 2} {Human 2}
1 {ABC 0}
{1 0} {Parrots 0}
{1 0 0} {Cockatoo 2}
{1 0 1} {Amazone 2}
{1 1} {Predator 0}
{1 1 0} {Hawk 2}
{1 1 1} {Eagle 2}
2 {Bugs 0}
{2 0} {Beetle 6}
{2 1} {Spider 8}
{2 2} {Worm 0}
The path ids in the above form provide a means of identifying a specific row in the tree. The number of digits in the path id indicate the level of depth within the tree. In this example there are in fact three tree structures displayed simulaneously, namely Mammals (0), Birds (1) and Insects (2).
Whenever an entry is added, the target doesn't exist and so, when deserializing the final element of the path id is ignored. In the case of the tree roots, (Mammals, Birds and Insects in the above example), the first and last nodes are the same, hence the path id set to "".
#---------------
# simple-tree.tcl
#---------------
#!/bin/sh
#\
exec tclsh "$0" "$@"
package require Gnocl
# TODO: Perhaps these two procs can be embedded into the C code?
proc serialize { wid } {
foreach node [$wid nodeList] {
::lappend nodes $node [$wid getRow $node]
}
foreach key [::dict keys $nodes] {
append res "[::list $key] [::list [::dict get $nodes $key]]\n"
}
return $res
}
proc deserialize {wid data} {
foreach { pos val } $data {
if { [::llength $pos] == 1 } { set pos "" }
$wid add [::lrange $pos 0 end-1] [::list $val]
}
}
#~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
# its necessary to have similar trees, i.e. same number of columns and data types.
set tree(1) [gnocl::tree \
-ruleHint 1 \
-onSelectionChanged {
# use join to safely convert the list to a string.
puts [ %w get [join %p] 0]
# to get an entire row:
puts [join %p]~~~[%w getRow [join %p] ]
} \
-types {string string} \
-titles {"Type" "# of Legs"}]
set tree(2) [gnocl::tree \
-treeLines 1 \
-onSelectionChanged {
# use join to safely convert the list to a string.
puts [ %w get [join %p] 0]
# to get an entire row:
puts [join %p]~~~[%w getRow [join %p] ]
} \
-types {string string} \
-titles {"Type" "# of Legs"}]
# add some items in a hap-hazard sort of way ;-)
$tree(1) add {} {Mammals Birds Insects}
$tree(1) add 0 {{Cat 4} {Dog 4} {Human 2}}
foreach {paro pred} [$tree(1) add 1 {Parrots Raptor}] {}
$tree(1) add $paro {{Cockatoo 2} {Sparrow 2}}
$tree(1) add $pred {{Hawk 2} {Eagle 2}}
$tree(1) add 2 {{Beetle 6} {Spider 8} {Centipede ?}}
set fp [open treeData.dat w]
puts $fp [serialize $tree(1)]
close $fp
set fp [open treeData.dat r]
deserialize $tree(2) [read $fp]
close $fp
set box1 [gnocl::vBox -label TreeView-1 -children $tree(1) -fill 1 -expand 1]
set box2 [gnocl::vBox -label TreeView-2 -children $tree(2) -fill 1 -expand 1]
set box [gnocl::hBox -children [list $box1 $box2] -fill 1 -expand 1]
foreach pid {0 1 2} {
$tree(1) expand -path $pid -recursive 1
$tree(2) expand -path $pid -recursive 1
}
gnocl::window -child $box -setSize 0.35
Creating a similar offering for the gnocl::tree is not altogether difficult to implement because it is possible to sequentially extract data from a tree which can then be saved for later use (serialize). When the data is next needed for use, it can be sequentially added to a new tree widget (deserialize).
The sampe code below will produce the following, the tree on the left is created through the direct addtion of data, whereas the tree on the right (with treelines) is created by deserializing the data set of the first tree.
When data contained in a tree was serialzed the following list was returned and save to disk. Each line of list represents a row in the tree where the first item is the node path, and the second item, the data itself. More specifically, the data contains the valued held in each cel on each row. Hence, 2 values for 2 columns per row.
0 {Mamals 0}
{0 0} {Cat 4}
{0 1} {Dog 4}
{0 2} {Human 2}
1 {ABC 0}
{1 0} {Parrots 0}
{1 0 0} {Cockatoo 2}
{1 0 1} {Amazone 2}
{1 1} {Predator 0}
{1 1 0} {Hawk 2}
{1 1 1} {Eagle 2}
2 {Bugs 0}
{2 0} {Beetle 6}
{2 1} {Spider 8}
{2 2} {Worm 0}
The path ids in the above form provide a means of identifying a specific row in the tree. The number of digits in the path id indicate the level of depth within the tree. In this example there are in fact three tree structures displayed simulaneously, namely Mammals (0), Birds (1) and Insects (2).
Whenever an entry is added, the target doesn't exist and so, when deserializing the final element of the path id is ignored. In the case of the tree roots, (Mammals, Birds and Insects in the above example), the first and last nodes are the same, hence the path id set to "".
#---------------
# simple-tree.tcl
#---------------
#!/bin/sh
#\
exec tclsh "$0" "$@"
package require Gnocl
# TODO: Perhaps these two procs can be embedded into the C code?
proc serialize { wid } {
foreach node [$wid nodeList] {
::lappend nodes $node [$wid getRow $node]
}
foreach key [::dict keys $nodes] {
append res "[::list $key] [::list [::dict get $nodes $key]]\n"
}
return $res
}
proc deserialize {wid data} {
foreach { pos val } $data {
if { [::llength $pos] == 1 } { set pos "" }
$wid add [::lrange $pos 0 end-1] [::list $val]
}
}
#~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
# its necessary to have similar trees, i.e. same number of columns and data types.
set tree(1) [gnocl::tree \
-ruleHint 1 \
-onSelectionChanged {
# use join to safely convert the list to a string.
puts [ %w get [join %p] 0]
# to get an entire row:
puts [join %p]~~~[%w getRow [join %p] ]
} \
-types {string string} \
-titles {"Type" "# of Legs"}]
set tree(2) [gnocl::tree \
-treeLines 1 \
-onSelectionChanged {
# use join to safely convert the list to a string.
puts [ %w get [join %p] 0]
# to get an entire row:
puts [join %p]~~~[%w getRow [join %p] ]
} \
-types {string string} \
-titles {"Type" "# of Legs"}]
# add some items in a hap-hazard sort of way ;-)
$tree(1) add {} {Mammals Birds Insects}
$tree(1) add 0 {{Cat 4} {Dog 4} {Human 2}}
foreach {paro pred} [$tree(1) add 1 {Parrots Raptor}] {}
$tree(1) add $paro {{Cockatoo 2} {Sparrow 2}}
$tree(1) add $pred {{Hawk 2} {Eagle 2}}
$tree(1) add 2 {{Beetle 6} {Spider 8} {Centipede ?}}
set fp [open treeData.dat w]
puts $fp [serialize $tree(1)]
close $fp
set fp [open treeData.dat r]
deserialize $tree(2) [read $fp]
close $fp
set box1 [gnocl::vBox -label TreeView-1 -children $tree(1) -fill 1 -expand 1]
set box2 [gnocl::vBox -label TreeView-2 -children $tree(2) -fill 1 -expand 1]
set box [gnocl::hBox -children [list $box1 $box2] -fill 1 -expand 1]
foreach pid {0 1 2} {
$tree(1) expand -path $pid -recursive 1
$tree(2) expand -path $pid -recursive 1
}
gnocl::window -child $box -setSize 0.35
Cloning a Gnocl Widget Made Simple
A while ago I saw a StackoverFlow
request about cloning widgets. Ok, the request was about cloning Gtk
widgets in C, but here's the solution in Tcl using the Gnocl package.
For a some time now its been possible to query the Gnocl package about
the various options and commands available to each widget and its this
ability combined with the cget (configuration get) command that allows
property and data values to be extracted from a widget. Here's a very
simple example based upon a button.
#!/bin/sh
# the next line restarts using tclsh \
exec tclsh "$0" "$@"
if { [catch { package present Gnocl } ] } { package require Gnocl }
## clone specified widget
#/param wid the widget to clone
#/returns wid of newly created clone object
#
proc gnocl::clone { wid } {
foreach item [split [string trim [gnocl::[$wid class] options]] \n] {
# get list of options from internal help,
# trim away option information
set item [string range $item 0 [string first " " $item]-1]
lappend res $item [$wid cget $item]
}
return [gnocl::[$wid class] {*}$res]
}
## test proc
#
proc main { } {
set but [gnocl::button -text %#New -onClicked { puts "HIDIHI" } ]
gnocl::window -child $but \
-x 500 -y 500 -width 300 -title ORIGINAL
gnocl::window -child [gnocl::clone $but] \
-x 850 -y 500 -width 300 -title CLONE
}
main
Recent Changes. September 2019.
Just a few enhancements to the code this month.
gnocl::application
o new option -title
gnocl::labelEntry, gnocl::labelText, gnocl::labelWidget
o new option -orientation
gnocl::window
o -geometry, list of four integers x, y, width, height.
o cget -geometry returns same values as command geometry
gnocl::label
o cget -baseColor now returns correct value.
gnocl::application
o new option -title
gnocl::labelEntry, gnocl::labelText, gnocl::labelWidget
o new option -orientation
gnocl::window
o -geometry, list of four integers x, y, width, height.
o cget -geometry returns same values as command geometry
gnocl::label
o cget -baseColor now returns correct value.
Saturday, July 06, 2019
Recent Changes. June 2019.
Spent most of my available time Tcl coding during June, none the less, a couple of bug fixes sorted out.
gnocl::text
o fixed buffer overflow bug in the 'tag ranges' subcommand.
o fixed bug in "tag properties" commmand, now returns correct values for -foreground, -background, -fontRise, -rise and -font.
gnocl::text
o fixed buffer overflow bug in the 'tag ranges' subcommand.
o fixed bug in "tag properties" commmand, now returns correct values for -foreground, -background, -fontRise, -rise and -font.
Saturday, June 01, 2019
Recent Changes. May 2019.
Some minor but useful changes and additions.
drag and drop operations
o -onDropData substitution string %d (data) now reassigned to %D,
%d will now be replaced by widget data assigned by the -data option.
gnocl::entry
o new options -primaryIconTooltip and -secondaryIconTooltip.
gnocl::comboEntry
o cget -baseColor now works.
o new options -onDragData, -onDropData and -afterDropData.
o on activiation empty strings are no longer added to the dropdown list.
o problem fixed with %d substitution within -onChanged event commands.
gnocl::text
o Now defaults to -wrapMode word.
drag and drop operations
o -onDropData substitution string %d (data) now reassigned to %D,
%d will now be replaced by widget data assigned by the -data option.
gnocl::entry
o new options -primaryIconTooltip and -secondaryIconTooltip.
gnocl::comboEntry
o cget -baseColor now works.
o new options -onDragData, -onDropData and -afterDropData.
o on activiation empty strings are no longer added to the dropdown list.
o problem fixed with %d substitution within -onChanged event commands.
gnocl::text
o Now defaults to -wrapMode word.
Monday, April 01, 2019
Recent Changes, April 2019
How time flies! I knew that I hadn't made one of this blog posts for some time but, didn't think that it such a long time ago. Well, some enhancements to the core modules has taken place although not too many. In a nutshell a couple of bug fixes and some enhancements to a few widget options. As usual latest code available from SourceForge.
2019-03:
gnocl::label
o new commands push/pull, synonyms for set and get, when label used as simpler status bar.
gnocl::text
o -onSelection will now be respond to selections made via the keyboard.
gnocl::fileChooserButton
o %d substitution string implemented for -onFileSet callbacks.
gnocl::comboBox
o renamed onChanged command to changed.
o problems with -onPopup and -onPopulateMenu options now fixed.
2019-02
gnocl::fileChooserButton
o new command clear, resets file selection to 'none'.
o added -fileName (include full path in utf8)
2019-01
gnocl::comboBox
o new option -widthGroup.
2019-03:
gnocl::label
o new commands push/pull, synonyms for set and get, when label used as simpler status bar.
gnocl::text
o -onSelection will now be respond to selections made via the keyboard.
gnocl::fileChooserButton
o %d substitution string implemented for -onFileSet callbacks.
gnocl::comboBox
o renamed onChanged command to changed.
o problems with -onPopup and -onPopulateMenu options now fixed.
2019-02
gnocl::fileChooserButton
o new command clear, resets file selection to 'none'.
o added -fileName (include full path in utf8)
2019-01
gnocl::comboBox
o new option -widthGroup.
Subscribe to:
Comments (Atom)
-
Given this module some attention today. Added some of the more package wide options to the module and created customised handler for settin...
-
Spent some time today creating some simple howto-tutorials on creating standalone Tcl/Gnocl applications using freewrap. The process is almo...
-
Linux distros have heaps of pre-installed icons ready for use. I recently needed to create a toolbar menu which needed to access a set of un...