We read every piece of feedback, and take your input very seriously.
To see all available qualifiers, see our documentation.
1 parent 8409105 commit 8fd03ceCopy full SHA for 8fd03ce
gui-lib/framework/private/text-line-numbers.rkt
@@ -67,8 +67,8 @@
67
(send padding-dc set-font (get-style-font))
68
(define-values (padding-left padding-top padding-right padding-bottom) (get-padding))
69
(define new-padding (text-width padding-dc (number-space+1)))
70
- (set-padding new-padding 0 0 0)
71
(unless (= padding-left new-padding)
+ (set-padding new-padding 0 0 0)
72
(invalidate-bitmap-cache))]
73
[else
74
(set-padding 0 0 0 0)]))
@@ -95,7 +95,7 @@
95
(define notify-registered-in-list #f)
96
97
(define style-change-notify
98
- (lambda (style) (unless style (setup-padding))))
+ (lambda (style) (setup-padding)))
99
100
(define/private (get-style)
101
(let* ([style-list (editor:get-standard-style-list)]
0 commit comments