Skip to content
Browse files

reduce calling repaint when exporting.

  • Loading branch information...
1 parent 6050e5d commit 518e95af5705517941b1d5531c873b9257917b4c @fukamachi committed Jan 7, 2011
Showing with 1 addition and 1 deletion.
  1. +1 −1 src/L5/export.clj
View
2 src/L5/export.clj
@@ -28,7 +28,7 @@
(.update @(:frame context) g2d)
(.dispose g2d)
(.addTemplate cb tp 0 0))
- (slide/next-slide context)
+ (dosync (alter (:current context) inc))
;(.setValue progress (+ i 1))
;(.setString progress (str (int (* (/ (inc i) len) 100)) "%"))
(.newPage doc)))

0 comments on commit 518e95a

Please sign in to comment.
Something went wrong with that request. Please try again.