Avoid spaces and caps in file names.

(Also fixes a bug, AFAICT, since "SpeechBubble" wasn't uniformly.)

collects/2htdp/planetcute/brown-block.rkt

@@ -1,5 +1,5 @@
 #lang racket/base
 (provide brown-block)
 (require racket/draw racket/runtime-path)
-(define-runtime-path brown-block-img "Brown Block.png")
+(define-runtime-path brown-block-img "brown-block.png")
 (define brown-block (read-bitmap brown-block-img))

collects/2htdp/planetcute/character-boy.rkt

@@ -1,5 +1,5 @@
 #lang racket/base
 (provide character-boy)
 (require racket/draw racket/runtime-path)
-(define-runtime-path character-boy-img "Character Boy.png")
+(define-runtime-path character-boy-img "character-boy.png")
 (define character-boy (read-bitmap character-boy-img))

collects/2htdp/planetcute/character-cat-girl.rkt

@@ -1,5 +1,5 @@
 #lang racket/base
 (provide character-cat-girl)
 (require racket/draw racket/runtime-path)
-(define-runtime-path character-cat-girl-img "Character Cat Girl.png")
+(define-runtime-path character-cat-girl-img "character-cat-girl.png")
 (define character-cat-girl (read-bitmap character-cat-girl-img))

collects/2htdp/planetcute/character-horn-girl.rkt

@@ -1,5 +1,5 @@
 #lang racket/base
 (provide character-horn-girl)
 (require racket/draw racket/runtime-path)
-(define-runtime-path character-horn-girl-img "Character Horn Girl.png")
+(define-runtime-path character-horn-girl-img "character-horn-girl.png")
 (define character-horn-girl (read-bitmap character-horn-girl-img))

collects/2htdp/planetcute/character-pink-girl.rkt

@@ -1,5 +1,5 @@
 #lang racket/base
 (provide character-pink-girl)
 (require racket/draw racket/runtime-path)
-(define-runtime-path character-pink-girl-img "Character Pink Girl.png")
+(define-runtime-path character-pink-girl-img "character-pink-girl.png")
 (define character-pink-girl (read-bitmap character-pink-girl-img))

collects/2htdp/planetcute/character-princess-girl.rkt

@@ -1,5 +1,5 @@
 #lang racket/base
 (provide character-princess-girl)
 (require racket/draw racket/runtime-path)
-(define-runtime-path character-princess-girl-img "Character Princess Girl.png")
+(define-runtime-path character-princess-girl-img "character-princess-girl.png")
 (define character-princess-girl (read-bitmap character-princess-girl-img))

collects/2htdp/planetcute/chest-closed.rkt

@@ -1,5 +1,5 @@
 #lang racket/base
 (provide chest-closed)
 (require racket/draw racket/runtime-path)
-(define-runtime-path chest-closed-img "Chest Closed.png")
+(define-runtime-path chest-closed-img "chest-closed.png")
 (define chest-closed (read-bitmap chest-closed-img))

collects/2htdp/planetcute/chest-lid.rkt

@@ -1,5 +1,5 @@
 #lang racket/base
 (provide chest-lid)
 (require racket/draw racket/runtime-path)
-(define-runtime-path chest-lid-img "Chest Lid.png")
+(define-runtime-path chest-lid-img "chest-lid.png")
 (define chest-lid (read-bitmap chest-lid-img))

collects/2htdp/planetcute/chest-open.rkt

@@ -1,5 +1,5 @@
 #lang racket/base
 (provide chest-open)
 (require racket/draw racket/runtime-path)
-(define-runtime-path chest-open-img "Chest Open.png")
+(define-runtime-path chest-open-img "chest-open.png")
 (define chest-open (read-bitmap chest-open-img))

collects/2htdp/planetcute/dirt-block.rkt

@@ -1,5 +1,5 @@
 #lang racket/base
 (provide dirt-block)
 (require racket/draw racket/runtime-path)
-(define-runtime-path dirt-block-img "Dirt Block.png")
+(define-runtime-path dirt-block-img "dirt-block.png")
 (define dirt-block (read-bitmap dirt-block-img))

collects/2htdp/planetcute/door-tall-closed.rkt

@@ -1,5 +1,5 @@
 #lang racket/base
 (provide door-tall-closed)
 (require racket/draw racket/runtime-path)
-(define-runtime-path door-tall-closed-img "Door Tall Closed.png")
+(define-runtime-path door-tall-closed-img "door-tall-closed.png")
 (define door-tall-closed (read-bitmap door-tall-closed-img))

collects/2htdp/planetcute/door-tall-open.rkt

@@ -1,5 +1,5 @@
 #lang racket/base
 (provide door-tall-open)
 (require racket/draw racket/runtime-path)
-(define-runtime-path door-tall-open-img "Door Tall Open.png")
+(define-runtime-path door-tall-open-img "door-tall-open.png")
 (define door-tall-open (read-bitmap door-tall-open-img))

collects/2htdp/planetcute/enemy-bug.rkt

@@ -1,5 +1,5 @@
 #lang racket/base
 (provide enemy-bug)
 (require racket/draw racket/runtime-path)
-(define-runtime-path enemy-bug-img "Enemy Bug.png")
+(define-runtime-path enemy-bug-img "enemy-bug.png")
 (define enemy-bug (read-bitmap enemy-bug-img))

collects/2htdp/planetcute/gem-blue.rkt

@@ -1,5 +1,5 @@
 #lang racket/base
 (provide gem-blue)
 (require racket/draw racket/runtime-path)
-(define-runtime-path gem-blue-img "Gem Blue.png")
+(define-runtime-path gem-blue-img "gem-blue.png")
 (define gem-blue (read-bitmap gem-blue-img))

collects/2htdp/planetcute/gem-green.rkt

@@ -1,5 +1,5 @@
 #lang racket/base
 (provide gem-green)
 (require racket/draw racket/runtime-path)
-(define-runtime-path gem-green-img "Gem Green.png")
+(define-runtime-path gem-green-img "gem-green.png")
 (define gem-green (read-bitmap gem-green-img))

collects/2htdp/planetcute/gem-orange.rkt

@@ -1,5 +1,5 @@
 #lang racket/base
 (provide gem-orange)
 (require racket/draw racket/runtime-path)
-(define-runtime-path gem-orange-img "Gem Orange.png")
+(define-runtime-path gem-orange-img "gem-orange.png")
 (define gem-orange (read-bitmap gem-orange-img))

collects/2htdp/planetcute/grass-block.rkt

@@ -1,5 +1,5 @@
 #lang racket/base
 (provide grass-block)
 (require racket/draw racket/runtime-path)
-(define-runtime-path grass-block-img "Grass Block.png")
+(define-runtime-path grass-block-img "grass-block.png")
 (define grass-block (read-bitmap grass-block-img))

collects/2htdp/planetcute/heart.rkt

@@ -1,5 +1,5 @@
 #lang racket/base
 (provide heart)
 (require racket/draw racket/runtime-path)
-(define-runtime-path heart-img "Heart.png")
+(define-runtime-path heart-img "heart.png")
 (define heart (read-bitmap heart-img))

collects/2htdp/planetcute/key.rkt

@@ -1,5 +1,5 @@
 #lang racket/base
 (provide key)
 (require racket/draw racket/runtime-path)
-(define-runtime-path key-img "Key.png")
+(define-runtime-path key-img "key.png")
 (define key (read-bitmap key-img))

collects/2htdp/planetcute/plain-block.rkt

@@ -1,5 +1,5 @@
 #lang racket/base
 (provide plain-block)
 (require racket/draw racket/runtime-path)
-(define-runtime-path plain-block-img "Plain Block.png")
+(define-runtime-path plain-block-img "plain-block.png")
 (define plain-block (read-bitmap plain-block-img))

collects/2htdp/planetcute/ramp-east.rkt

@@ -1,5 +1,5 @@
 #lang racket/base
 (provide ramp-east)
 (require racket/draw racket/runtime-path)
-(define-runtime-path ramp-east-img "Ramp East.png")
+(define-runtime-path ramp-east-img "ramp-east.png")
 (define ramp-east (read-bitmap ramp-east-img))

collects/2htdp/planetcute/ramp-north.rkt

@@ -1,5 +1,5 @@
 #lang racket/base
 (provide ramp-north)
 (require racket/draw racket/runtime-path)
-(define-runtime-path ramp-north-img "Ramp North.png")
+(define-runtime-path ramp-north-img "ramp-north.png")
 (define ramp-north (read-bitmap ramp-north-img))

collects/2htdp/planetcute/ramp-south.rkt

@@ -1,5 +1,5 @@
 #lang racket/base
 (provide ramp-south)
 (require racket/draw racket/runtime-path)
-(define-runtime-path ramp-south-img "Ramp South.png")
+(define-runtime-path ramp-south-img "ramp-south.png")
 (define ramp-south (read-bitmap ramp-south-img))

collects/2htdp/planetcute/ramp-west.rkt

@@ -1,5 +1,5 @@
 #lang racket/base
 (provide ramp-west)
 (require racket/draw racket/runtime-path)
-(define-runtime-path ramp-west-img "Ramp West.png")
+(define-runtime-path ramp-west-img "ramp-west.png")
 (define ramp-west (read-bitmap ramp-west-img))

collects/2htdp/planetcute/rock.rkt

@@ -1,5 +1,5 @@
 #lang racket/base
 (provide rock)
 (require racket/draw racket/runtime-path)
-(define-runtime-path rock-img "Rock.png")
+(define-runtime-path rock-img "rock.png")
 (define rock (read-bitmap rock-img))

collects/2htdp/planetcute/roof-east.rkt

@@ -1,5 +1,5 @@
 #lang racket/base
 (provide roof-east)
 (require racket/draw racket/runtime-path)
-(define-runtime-path roof-east-img "Roof East.png")
+(define-runtime-path roof-east-img "roof-east.png")
 (define roof-east (read-bitmap roof-east-img))

collects/2htdp/planetcute/roof-north-east.rkt

@@ -1,5 +1,5 @@
 #lang racket/base
 (provide roof-north-east)
 (require racket/draw racket/runtime-path)
-(define-runtime-path roof-north-east-img "Roof North East.png")
+(define-runtime-path roof-north-east-img "roof-north-east.png")
 (define roof-north-east (read-bitmap roof-north-east-img))

collects/2htdp/planetcute/roof-north-west.rkt

@@ -1,5 +1,5 @@
 #lang racket/base
 (provide roof-north-west)
 (require racket/draw racket/runtime-path)
-(define-runtime-path roof-north-west-img "Roof North West.png")
+(define-runtime-path roof-north-west-img "roof-north-west.png")
 (define roof-north-west (read-bitmap roof-north-west-img))

collects/2htdp/planetcute/roof-north.rkt

@@ -1,5 +1,5 @@
 #lang racket/base
 (provide roof-north)
 (require racket/draw racket/runtime-path)
-(define-runtime-path roof-north-img "Roof North.png")
+(define-runtime-path roof-north-img "roof-north.png")
 (define roof-north (read-bitmap roof-north-img))

collects/2htdp/planetcute/roof-south-east.rkt

@@ -1,5 +1,5 @@
 #lang racket/base
 (provide roof-south-east)
 (require racket/draw racket/runtime-path)
-(define-runtime-path roof-south-east-img "Roof South East.png")
+(define-runtime-path roof-south-east-img "roof-south-east.png")
 (define roof-south-east (read-bitmap roof-south-east-img))

collects/2htdp/planetcute/roof-south-west.rkt

@@ -1,5 +1,5 @@
 #lang racket/base
 (provide roof-south-west)
 (require racket/draw racket/runtime-path)
-(define-runtime-path roof-south-west-img "Roof South West.png")
+(define-runtime-path roof-south-west-img "roof-south-west.png")
 (define roof-south-west (read-bitmap roof-south-west-img))

collects/2htdp/planetcute/roof-south.rkt

@@ -1,5 +1,5 @@
 #lang racket/base
 (provide roof-south)
 (require racket/draw racket/runtime-path)
-(define-runtime-path roof-south-img "Roof South.png")
+(define-runtime-path roof-south-img "roof-south.png")
 (define roof-south (read-bitmap roof-south-img))

collects/2htdp/planetcute/roof-west.rkt

@@ -1,5 +1,5 @@
 #lang racket/base
 (provide roof-west)
 (require racket/draw racket/runtime-path)
-(define-runtime-path roof-west-img "Roof West.png")
+(define-runtime-path roof-west-img "roof-west.png")
 (define roof-west (read-bitmap roof-west-img))

collects/2htdp/planetcute/selector.rkt

@@ -1,5 +1,5 @@
 #lang racket/base
 (provide selector)
 (require racket/draw racket/runtime-path)
-(define-runtime-path selector-img "Selector.png")
+(define-runtime-path selector-img "selector.png")
 (define selector (read-bitmap selector-img))

collects/2htdp/planetcute/shadow-east.rkt

@@ -1,5 +1,5 @@
 #lang racket/base
 (provide shadow-east)
 (require racket/draw racket/runtime-path)
-(define-runtime-path shadow-east-img "Shadow East.png")
+(define-runtime-path shadow-east-img "shadow-east.png")
 (define shadow-east (read-bitmap shadow-east-img))

collects/2htdp/planetcute/shadow-north-east.rkt

@@ -1,5 +1,5 @@
 #lang racket/base
 (provide shadow-north-east)
 (require racket/draw racket/runtime-path)
-(define-runtime-path shadow-north-east-img "Shadow North East.png")
+(define-runtime-path shadow-north-east-img "shadow-north-east.png")
 (define shadow-north-east (read-bitmap shadow-north-east-img))

collects/2htdp/planetcute/shadow-north-west.rkt

@@ -1,5 +1,5 @@
 #lang racket/base
 (provide shadow-north-west)
 (require racket/draw racket/runtime-path)
-(define-runtime-path shadow-north-west-img "Shadow North West.png")
+(define-runtime-path shadow-north-west-img "shadow-north-west.png")
 (define shadow-north-west (read-bitmap shadow-north-west-img))

collects/2htdp/planetcute/shadow-north.rkt

@@ -1,5 +1,5 @@
 #lang racket/base
 (provide shadow-north)
 (require racket/draw racket/runtime-path)
-(define-runtime-path shadow-north-img "Shadow North.png")
+(define-runtime-path shadow-north-img "shadow-north.png")
 (define shadow-north (read-bitmap shadow-north-img))

collects/2htdp/planetcute/shadow-side-west.rkt

@@ -1,5 +1,5 @@
 #lang racket/base
 (provide shadow-side-west)
 (require racket/draw racket/runtime-path)
-(define-runtime-path shadow-side-west-img "Shadow Side West.png")
+(define-runtime-path shadow-side-west-img "shadow-side-west.png")
 (define shadow-side-west (read-bitmap shadow-side-west-img))

collects/2htdp/planetcute/shadow-south-east.rkt

@@ -1,5 +1,5 @@
 #lang racket/base
 (provide shadow-south-east)
 (require racket/draw racket/runtime-path)
-(define-runtime-path shadow-south-east-img "Shadow South East.png")
+(define-runtime-path shadow-south-east-img "shadow-south-east.png")
 (define shadow-south-east (read-bitmap shadow-south-east-img))

collects/2htdp/planetcute/shadow-south-west.rkt

@@ -1,5 +1,5 @@
 #lang racket/base
 (provide shadow-south-west)
 (require racket/draw racket/runtime-path)
-(define-runtime-path shadow-south-west-img "Shadow South West.png")
+(define-runtime-path shadow-south-west-img "shadow-south-west.png")
 (define shadow-south-west (read-bitmap shadow-south-west-img))

collects/2htdp/planetcute/shadow-south.rkt

@@ -1,5 +1,5 @@
 #lang racket/base
 (provide shadow-south)
 (require racket/draw racket/runtime-path)
-(define-runtime-path shadow-south-img "Shadow South.png")
+(define-runtime-path shadow-south-img "shadow-south.png")
 (define shadow-south (read-bitmap shadow-south-img))

collects/2htdp/planetcute/shadow-west.rkt

@@ -1,5 +1,5 @@
 #lang racket/base
 (provide shadow-west)
 (require racket/draw racket/runtime-path)
-(define-runtime-path shadow-west-img "Shadow West.png")
+(define-runtime-path shadow-west-img "shadow-west.png")
 (define shadow-west (read-bitmap shadow-west-img))

collects/2htdp/planetcute/speech-bubble.rkt

@@ -0,0 +1,5 @@
+#lang racket/base
+(provide speech-bubble)
+(require racket/draw racket/runtime-path)
+(define-runtime-path speech-bubble-img "speech-bubble.png")
+(define speech-bubble (read-bitmap speech-bubble-img))

collects/2htdp/planetcute/speechbubble.rkt

@@ -1,5 +0,0 @@
-#lang racket/base
-(provide speechbubble)
-(require racket/draw racket/runtime-path)
-(define-runtime-path speechbubble-img "Speechbubble.png")
-(define speechbubble (read-bitmap speechbubble-img))

collects/2htdp/planetcute/stone-block-tall.rkt

@@ -1,5 +1,5 @@
 #lang racket/base
 (provide stone-block-tall)
 (require racket/draw racket/runtime-path)
-(define-runtime-path stone-block-tall-img "Stone Block Tall.png")
+(define-runtime-path stone-block-tall-img "stone-block-tall.png")
 (define stone-block-tall (read-bitmap stone-block-tall-img))

collects/2htdp/planetcute/stone-block.rkt

@@ -1,5 +1,5 @@
 #lang racket/base
 (provide stone-block)
 (require racket/draw racket/runtime-path)
-(define-runtime-path stone-block-img "Stone Block.png")
+(define-runtime-path stone-block-img "stone-block.png")
 (define stone-block (read-bitmap stone-block-img))

collects/2htdp/planetcute/tree-short.rkt

@@ -1,5 +1,5 @@
 #lang racket/base
 (provide tree-short)
 (require racket/draw racket/runtime-path)
-(define-runtime-path tree-short-img "Tree Short.png")
+(define-runtime-path tree-short-img "tree-short.png")
 (define tree-short (read-bitmap tree-short-img))

collects/2htdp/planetcute/tree-tall.rkt

@@ -1,5 +1,5 @@
 #lang racket/base
 (provide tree-tall)
 (require racket/draw racket/runtime-path)
-(define-runtime-path tree-tall-img "Tree Tall.png")
+(define-runtime-path tree-tall-img "tree-tall.png")
 (define tree-tall (read-bitmap tree-tall-img))

collects/2htdp/planetcute/tree-ugly.rkt

@@ -1,5 +1,5 @@
 #lang racket/base
 (provide tree-ugly)
 (require racket/draw racket/runtime-path)
-(define-runtime-path tree-ugly-img "Tree Ugly.png")
+(define-runtime-path tree-ugly-img "tree-ugly.png")
 (define tree-ugly (read-bitmap tree-ugly-img))