#!/bin/sh
#\
exec tclsh "$0" "$@"

package require Gnocl

proc buttonRelease {w t p} {
        if {$p == "primary"} {
                $w configure -value "Gnocl Entry Widget"
        }
        if {$p == "secondary"} {
                $w configure -value ""
        }
}


set ent [gnocl::entry \
                -tooltip "HIDIHI" \
                -secondaryIconTooltip "Clear Entry Contents" \
                -hasFrame 0 \
                -primaryIcon "%#New" \
                -secondaryIcon "%#Clear" \
                -onIconPress {puts "PRESS %w %t %p"} \
                -onIconRelease { buttonRelease %w %t %p } \
                -onPreeditChanged {puts "preeditChanged %t"} \
                -secondaryIconSensitive 1 \
                -pulseStep 0.15]



gnocl::window -child $ent -title EntryIcons

        gnocl::update

if {1} {
set d 0.05
for {set i 0} {$i < 20} {incr i} {
        $ent progress [expr $i * $d]
        gnocl::update
        after 100
}

$ent progress 0.0
}


if {1} {
for {set i 0} {$i < 20} {incr i} {
        $ent pulse
        after 100
        gnocl::update
}
$ent progress 0.0
}