Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
Browse files

Minor cleanup - remove extra blank lines.

  • Loading branch information...
commit 75c44e754cad7d939d82e4d64c957c6b40f02a95 1 parent e3121ce
khardy khardy authored
Showing with 0 additions and 11 deletions.
  1. +0 −11 mreddesigner-misc.ss
11 mreddesigner-misc.ss
View
@@ -41,7 +41,6 @@
(define name val))]
))
-
;; Current version of MrEd Designer
(define/provide application-version-maj 3)
(define/provide application-version-min 8)
@@ -50,8 +49,6 @@
(define/provide application-name-version
(string-append application-name " " application-version))
-
-
;; Defines a mock (a substitute) for a function.
;; When called, the function only prints a warning.
;; The body part is ripped off.
@@ -68,7 +65,6 @@
(define/provide (debug-printf . r)
(when debug
(apply printf r)))
-
;; Loads the images when necessary
;; Stores them in a hash for re-use
@@ -183,8 +179,6 @@
(define/provide (list-move-right l e)
(reverse (list-move-left (reverse l) e)))
-
-
(define/provide (text-split-with-empty str ch empty)
(let*
((idx (string-length str))
@@ -275,7 +269,6 @@
;; Usefull for some property widgets like pwig:file%
(define/provide current-property-mred-id (make-parameter #f))
-
;; takes a list of codes and generates code accordingly.
;; if no code -> #f
;; if one expr -> this expr
@@ -286,7 +279,6 @@
[(empty? (rest codes)) (first codes)]
[else (cons 'begin codes)]
))
-
;; Try ... catch ... finally
;; Finally is executed before the catch.
@@ -310,12 +302,10 @@
(try t ... (catch) (finally f ...))]
))
-
; ***********************
; * Classes and Objects *
; ***********************
-
;; Sends the same message to all the objects of the list.
;; (map get-value list-of-valued-objects)
;; (map (set-value 10) list-of-valued-objects)
@@ -390,7 +380,6 @@
; * GUI *
; *******
-
;; Closes a top-level-window.
(define/provide (close-window tlw)
(when (send tlw can-close?)
Please sign in to comment.
Something went wrong with that request. Please try again.