2009/1/18 Israel Chauca Fuentes <[email protected]>

> I forgot to modify the flag radiobuttons in the Header Search window, here
> is the patch:
>
> --- tcl/search/header.tcl       11 Jan 2009 21:04:09 -0000      1.16
> +++ tcl/search/header.tcl       18 Jan 2009 22:26:47 -0000
> @@ -346,14 +346,14 @@
>     set lab [ttk::label $w.flags.l$var -textvar ::tr($var) -font
> font_Small]
>     grid $lab -row $row -column $col -sticky e
>     incr col
> -    grid [radiobutton $w.flags.yes$var -variable sHeaderFlags($var) -ind 0
> -value yes -text $::tr(Yes) -padx 2 -pady 0 -font font_Small] \
> -        -row $row -column $col
> +    grid [ttk::radiobutton $w.flags.yes$var -variable sHeaderFlags($var) \
> +      -value yes -text $::tr(Yes)] -row $row -column $col
>     incr col
> -    grid [radiobutton $w.flags.no$var -variable sHeaderFlags($var) -ind 0
> -value no -text $::tr(No) -padx 2 -pady 0 -font font_Small] \
> -        -row $row -column $col
> +    grid [ttk::radiobutton $w.flags.no$var -variable sHeaderFlags($var) \
> +      -value no -text $::tr(No)] -row $row -column $col
>     incr col
> -    grid [radiobutton $w.flags.both$var -variable sHeaderFlags($var) -ind
> 0 -value both -text $::tr(Both) -padx 2 -pady 0 -font font_Small] \
> -        -row $row -column $col
> +    grid [ttk::radiobutton $w.flags.both$var -variable sHeaderFlags($var)
> \
> +      -value both -text $::tr(Both)] -row $row -column $col
>     incr count
>     incr col -3
>     incr row
>
>
Done.

Pascal
------------------------------------------------------------------------------
This SF.net email is sponsored by:
SourcForge Community
SourceForge wants to tell your story.
http://p.sf.net/sfu/sf-spreadtheword
_______________________________________________
Scid-users mailing list
[email protected]
https://lists.sourceforge.net/lists/listinfo/scid-users

Reply via email to