gnocl::richTextToolBar -working version ready...

Not working on any academic research over the past few days has given me time to focus on completing the implementation of a simple pango/html rich text edit widget. GtkHtml was one route to take but this is being phased out in favour of WebkitGtk (besides, GtkHtml documentation of any work simply doesn't exist). After hacking together an editor using the webKitGtk, which itself is something of a work around, I modified the existing gnocl webkit package to offer all the basic functionality of a simple html doc editor. But, this required implementing Javascript calls in C procs which were then called through a Tcl front end! Apart from the package taking a second or two to load, I found that webkitGtk will tend to crash after a while. Not much use to me! My aim is to create markup strings which can also be used for display within Gtk+ widgets during run-time, i.e. marked up labels or list entries. As a glance through previous blog postings will show, I had already put together some basics, exploring the task from both the Tcl and C side of things. At the end of the day, I coded the whole lot in C and it now works fine although some care needs to be taken when applying background colours. Needless to say, if there is an error in the pango markup then this won't cause a crash as the returned text will be stripped of any markup. Along with the editor, there's also a html-source viewer.

As the widget item name suggests, this is basically a toolbar, if the -text option is set, then any pre-existing text widget can be used.

Here's a snapshot and the script that created it.

#--------------------------
# test_gtk_richTextToolBar.tcl
#--------------------------
#!/bin/sh
#\
exec tclsh "$0" "$@"

package require Gnocl

set txt [gnocl::text -wrapMode word -markupTags 1 -baseFont {Sans 14}]
set app(rtbar) [gnocl::richTextToolBar -text $txt -textAccelerators 1 ]

$txt configure -onChanged {
           $app(rtf,lab1) configure -text [$txt getMarkup start end]
           }

   
set vbox [gnocl::vBox]

set app(rtf,lab1) [gnocl::label -useMarkup 1 -justify left -align topLeft  -wrap 1 ]
set eb1 [gnocl::eventBox -child $app(rtf,lab1) -background white ]

$vbox add $eb1 -fill {1 1} -expand 1
$vbox add $app(rtbar)
$vbox add $txt -fill {1 1} -expand 1

gnocl::window -child $vbox -setSize 0.4

New Year's Enhancements

Given some extra time to the implementation of the gnocl::toolBar items. Whilst is is possible to pack buttons, toggles and radio buttons into the toolbar, the custom items offer better formatting and are stylistically 'correct'. As the resulting module source code was stretching into thousands of lines, the toolbar.c module was split and the code for creating the 'items' shifted into separate files. Here's summary of the recent changes:

2014-01:
    gnocl::toolbar
        o separated source code for the creation of toolbar items into
            individual modules.
        o -onToggled functionality now working properly for relevant
            items.
    gnocl::radioButton
        o added %p substitution strings
    gnocl::toggleButton
        o added %p %d subtitution strings
        o new option -data

Updated code available from sourceforge.

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