suzanne.soy/gui
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

..

Browse Source 
original commit: 7fc7381eb94c93bafa0724d8385b384dbbac60ff
This commit is contained in:
Robby Findler 2002-09-03 19:06:22 +00:00
parent 992cf386f1
commit f49b8bfa1c
3 changed files with 8 additions and 13 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
collects/framework/private/frame.ss
View File

@ -456,7 +456,7 @@
(rename [super-on-close on-close]) (rename [super-on-close on-close])
[define remove-first [define remove-first
(preferences:add-callback (preferences:add-callback
'framework:line-offsets 'framework:col-offsets
(lambda (p v) (lambda (p v)
(editor-position-changed-offset/numbers (editor-position-changed-offset/numbers
v v
@ -467,7 +467,7 @@
'framework:display-line-numbers 'framework:display-line-numbers
(lambda (p v) (lambda (p v)
(editor-position-changed-offset/numbers (editor-position-changed-offset/numbers
(preferences:get 'framework:line-offsets) (preferences:get 'framework:col-offsets)
v) v)
#t))] #t))]
(override on-close) (override on-close)
@ -489,16 +489,11 @@
[char (- pos line-start)]) [char (- pos line-start)])
(if line-numbers? (if line-numbers?
(format "~a:~a" (format "~a:~a"
(if offset?
(add1 line) (add1 line)
line)
(if offset? (if offset?
(add1 char) (add1 char)
char)) char))
(format "~a" (format "~a" pos))))])
(if offset?
(+ pos 1)
pos)))))])
(cond (cond
[(not (object? position-canvas)) [(not (object? position-canvas))
(void)] (void)]
@ -565,7 +560,7 @@
[define editor-position-changed [define editor-position-changed
(lambda () (lambda ()
(editor-position-changed-offset/numbers (editor-position-changed-offset/numbers
(preferences:get 'framework:line-offsets) (preferences:get 'framework:col-offsets)
(preferences:get 'framework:display-line-numbers)))] (preferences:get 'framework:display-line-numbers)))]
[define overwrite-status-changed [define overwrite-status-changed
(lambda () (lambda ()

2
collects/framework/private/main.ss
View File

@ -55,7 +55,7 @@
(preferences:set-default 'framework:auto-set-wrap? #t boolean?) (preferences:set-default 'framework:auto-set-wrap? #t boolean?)
(preferences:set-default 'framework:display-line-numbers #t boolean?) (preferences:set-default 'framework:display-line-numbers #t boolean?)
(preferences:set-default 'framework:show-status-line #t boolean?) (preferences:set-default 'framework:show-status-line #t boolean?)
(preferences:set-default 'framework:line-offsets #t boolean?) (preferences:set-default 'framework:col-offsets #f boolean?)
(preferences:set-default (preferences:set-default
'framework:print-output-mode 'framework:print-output-mode

2
collects/framework/private/preferences.ss
View File

@ -427,7 +427,7 @@
(make-check editor-panel 'framework:delete-forward? (string-constant map-delete-to-backspace) (make-check editor-panel 'framework:delete-forward? (string-constant map-delete-to-backspace)
not not) not not)
(make-check editor-panel 'framework:show-status-line (string-constant show-status-line) values values) (make-check editor-panel 'framework:show-status-line (string-constant show-status-line) values values)
(make-check editor-panel 'framework:line-offsets (string-constant count-from-one) values values) (make-check editor-panel 'framework:col-offsets (string-constant count-columns-from-one) values values)
(make-check editor-panel (make-check editor-panel
'framework:display-line-numbers 'framework:display-line-numbers
(string-constant display-line-numbers) (string-constant display-line-numbers)