mirror of https://github.com/GNOME/gimp.git
slide.scm: Don't use deprecated procedures (Fixes bug #647834)
Spotted by, and patch from, Alexis Wilhelm with white space changes and a missing context-set added.
This commit is contained in:
parent
0d65fd7ba8
commit
4911777c03
|
@ -96,6 +96,7 @@
|
|||
)
|
||||
|
||||
(gimp-context-push)
|
||||
(gimp-context-set-feather FALSE)
|
||||
|
||||
(gimp-image-undo-disable image)
|
||||
|
||||
|
@ -185,22 +186,18 @@
|
|||
|
||||
(gimp-selection-none image)
|
||||
(while (< hole 8)
|
||||
(gimp-rect-select image
|
||||
(* hole-space hole)
|
||||
top-y
|
||||
hole-width
|
||||
hole-height
|
||||
CHANNEL-OP-ADD
|
||||
FALSE
|
||||
0)
|
||||
(gimp-rect-select image
|
||||
(* hole-space hole)
|
||||
bottom-y
|
||||
hole-width
|
||||
hole-height
|
||||
CHANNEL-OP-ADD
|
||||
FALSE
|
||||
0)
|
||||
(gimp-image-select-rectangle image
|
||||
CHANNEL-OP-ADD
|
||||
(* hole-space hole)
|
||||
top-y
|
||||
hole-width
|
||||
hole-height)
|
||||
(gimp-image-select-rectangle image
|
||||
CHANNEL-OP-ADD
|
||||
(* hole-space hole)
|
||||
bottom-y
|
||||
hole-width
|
||||
hole-height)
|
||||
(set! hole (+ hole 1))
|
||||
)
|
||||
|
||||
|
|
Loading…
Reference in New Issue