Updated 2018-03-18 09:10:03 by WJG

WJG (18/03/18) The gnocl::dial widget is not a binding to any of the core Gtk widgets or, for that matter, a custom widget derived from Gtk classes along the lines of the gnocl::tickerTape widget. From the Tcl side of things, there is no difference between the scripting interface, they work seamlessly together. Creating custom widgets like the dial using the GtkDrawingArea as the base object and making Cairo calls to make the direct drawing has its advantages: less to learn, no extra C modules and less prone to the downstream effects of any changes to the Gtk API. This widget could, of course, have been implemented in Tcl/Gnocl too, there so much choice in life...

#!/bin/sh
# the next line restarts using tclsh \
exec tclsh "$0" "[email protected]"

package require Gnocl

set val1 50

gnocl::dial -name dial1 -variable val1 -value 75.0 -digits 2 -tooltip "gnocl::dial" -description Oranges
gnocl::dial -name dial2 -variable val1 -value 75.0 -digits 5 -tooltip "gnocl::dial" -description Apples
gnocl::dial -name dial3 -variable val1 -value 75.0 -digits 2 -tooltip "gnocl::dial" -description Banannas

gnocl::label -name label -textVariable val1
set ent [gnocl::entry -name entry -onActivate { set val1 [format "%.2f" %t] ; #dial set %t}]
gnocl::scale -name scale -orientation horizontal -variable val1 -valuePos right -digits 2
gnocl::button -name button -icon %#Yes -onClicked { demo }

gnocl::vBox -name box -padding 15 

#box add [scale] 
box add [dial1] -expand 1 -fill {1 1}
box add [dial2] -expand 1 -fill {1 1}
box add [dial3] -expand 1 -fill {1 1}
box add [label]
box add [entry]
box add [scale]
box add [button]

set win [gnocl::window -name window -child [box] ] ;#-setSize 0.125

dial1 configure -variable val1
dial1 configure -value 50.00


proc demo {} {
for {set i 0} {$i<=100} {incr i} {
        #set val1 [expr 100 * rand()]
        set ::val1 $i.00
        entry set $::val1
        after 25
        gnocl::update
}
after 25
for {set i 0} {$i<=100} {incr i} {
        #set val1 [expr 100 * rand()]
        set ::val1 [expr 100.00-$i]
        entry set $::val1
        after 25
        gnocl::update
}
}


dial1 configure -scaleColor #FFFFFF -pointerColor #000000 -showValue yes -textColor white
dial2 configure -scaleColor #F6F6C5 -pointerColor blue -tickColor black -showValue yes -active 0
dial3 configure -sensitive 0 -pointerColor blue -tickColor black -textColor green -showValue yes


gnocl::update

dial3 configure -sensitive 1 -onValueChanged {puts %v}