Проблема интервала виджета масштаба Tk / Tcl - PullRequest
Новая
       21

Проблема интервала виджета масштаба Tk / Tcl

0 голосов
/ 04 февраля 2020

Я создаю масштабный виджет с 10 до 100 с интервалом (интервалом) 10. Когда разрешение = 1, получается: масштабный виджет с разрешением = 1

Но когда разрешение = 3, масштаб изменяется от 9 до 99 и не более 10-> 100, результаты отображаются здесь: виджет масштаба с разрешением = 3

Код : 

#!/bin/sh
####################################################################### \
exec /sw/freetools/tk/8.5.6/Linux/rh5/x86_64/bin/wish8.5 "$0" ${1+"$@"}
package require Tk

font create FONT1 -family {DejaVu Sans Mono} -size 7 -weight normal
font create FONT2 -family {DejaVu Sans} -size -8 -weight normal -slant roman

ttk::style configure rule1.TCombobox -background lavender \
                                     -foreground black \
                                     -fieldbackground mistyrose2 \
                                     -padding 0.5
ttk::style map rule1.TCombobox       -fieldbackground [list readonly gray98]

frame .frame_F1        -background gray98 -highlightbackground black -highlightthickness 1 
frame .frame_F1.top    -background gray98 -highlightbackground red   -highlightthickness 0
frame .frame_F1.bottom -background gray98 -highlightbackground blue  -highlightthickness 0

pack .frame_F1 -padx 10 -pady 10
pack .frame_F1.top    -side top -anchor w
pack .frame_F1.bottom -side bottom -anchor w

label .frame_F1.bottom.scale_text1 -text "scale" -foreground black -background gray98 -font FONT1 -justify left
entry .frame_F1.bottom.scale_value -textvariable ::SCALE      -foreground black -width 5 -justify right -state readonly

scale .frame_F1.top.scale -orient horizontal \
                          -variable ::SCALE \
                          -length 210 \
                          -from 10 -to 100 \
                          -tickinterval 10 \
                          -resolution 1 \
                          -showvalue false \
                          -background gray98 \
                          -font FONT2 \
                          -foreground black \
                          -width 12 \
                          -highlightthickness 0 \
                          -borderwidth 2 \
                          -sliderrelief groove \
                          -sliderlength 18

pack .frame_F1.top.scale
grid .frame_F1.bottom.scale_text1  -column 0 -row 1
grid .frame_F1.bottom.scale_value  -column 1 -row 1

Как это исправить и иметь от 10 до 100?

...