removed some bogus code
This commit is contained in:
parent
d7b9857f7b
commit
ca930a8e30
|
@ -1137,18 +1137,6 @@
|
||||||
#t
|
#t
|
||||||
'none)))))
|
'none)))))
|
||||||
|
|
||||||
|
|
||||||
(let ([admin (send src get-admin)])
|
|
||||||
(when admin
|
|
||||||
(let-values ([(w h) (send admin get-view-size)]
|
|
||||||
[(x y) (send src position-location (- pos 1))])
|
|
||||||
(send src scroll-editor-to
|
|
||||||
(max 0 (- x (* .1 w)))
|
|
||||||
(max 0 (- y (* .1 h)))
|
|
||||||
w h
|
|
||||||
#t
|
|
||||||
'none))))
|
|
||||||
|
|
||||||
(send src set-position (- pos 1) (+ pos span -1))
|
(send src set-position (- pos 1) (+ pos span -1))
|
||||||
(send src end-edit-sequence))))
|
(send src end-edit-sequence))))
|
||||||
|
|
||||||
|
|
Loading…
Reference in New Issue
Block a user