REBOL [ Title: "The Kasper Program" File: %kasper.r Date: 21-May-2001 Updated: 13-Jun-2008 Version: 1.0 Purpose: "Please Ingri (my sister, the dog owner)" Library: [ level: 'beginner plugin: [size: 280x273] domain: [gui] license: none Platform: [all plugin] Tested-under: none Type: [demo] Support: none ] ] emails: [ {Ingri, Hey, this Kasper dog of yours really WAS wonderful, wasn't he!!} {Ingri, Hey, that dog was so cool! You were a lucky dog owner, that's for sure!} "Ingri, I love your dog!" {Kasper --- What a wonderful name for a dog!} {Your dog was so cool. Been lookin' all over the web for his fan club, but I couldn't find it. Pity.} {Kasper Is your name Kasper? Why isn't it Caspar? (Just wondering).} "Kasper is cool. Was he an ACD, by any chance?" {Honourable dog owner, I'm thinking of starting a Kasper Fan Club. Cool, eh?} {I have a dog too, but his name isn't Kasper. Thought maybe you'd like to know.} {Hello, I saw Kasper on http://www.rebol.org/, and I must say, he really was a beautiful dog.} "Kasper was a nice dog. Nice dog. Bet he was a blue healer!" ] dialog: layout [ backdrop effect [gradient 1x1 0.0.0 0.0.180] h2 "Attention:" red text yellow bold 250x60 { Kasper probably was the most wonderful dog in the world. If you disagree, stop using this program. } button "OK" [hide-popup] ] view layout [ size 280x273 ;backtile http://www.oops-as.no/royg/kasper.jpg <-- wesite long gone backdrop effect [gradient 1x1 0.200.0 0.0.0] at 0x0 title red center 280 "The Kasper Program" at 50x50 text black bold "Kasper probably was the most wonderful dog in the world" at 0x100 banner center 280 "Kasper" banner center 280 "1993 - 2008" banner center 280 "R.I.P." across at 5x240 button 195 "Please share your condolences" [ ;random/seed now ;send/header %ingris--email--here pick emails random (length? emails) make object! [X-kasper: "Kasper" from: to: date: none] emailer/to/subject %ingri--imprint--no "Kasper" ] button 70 "Disagree" [inform dialog] ] quit ;halt ;; to terminate script if DOne from webpage