Here is my contrived example:

How would you, in your favorite language, implement a program that displays GDP information for every country for years from 1970-2007 using a nice graph. Countries should be selectable using a fancy popup menu that displays country name and country shape...

Using Mathematica 6:

    MenuView[Row[{Rasterize[
       Show[CountryData[#, "Shape"], ImageSize -> {40, 40}], 
       Background -> None], #}] -> 
        Dynamic[DateListPlot[CountryData[#, {{"GDP"}, {1970, 2005}}]]] & /@
       CountryData[], ImageSize -> Automatic]