#reader(lib "htdp-beginner-reader.ss" "lang")((modname gui-world-drop-down) (read-case-sensitive #t) (teachpacks ()) (htdp-settings #(#t constructor repeating-decimal #f #t none #f ())))
(require (lib "gui-world.ss" "gui-world"))
(define initial-world "black")
(define (current-choice w)
w)
(define (choices w)
(list "red" "green" "blue" "black" "white"))
(define (update-choice w new-choice)
new-choice)
(define (status w)
(string-append "The current world is: " w))
(big-bang initial-world
(col
(drop-down current-choice choices update-choice)
(message status)))