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:
Kevin Cozens 2011-11-09 19:14:10 -05:00
parent 0d65fd7ba8
commit 4911777c03
1 changed files with 13 additions and 16 deletions

View File

@ -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))
)