地図を表示する

アプリケーション登録などが必要なく手っ取り早かったので、ALPSLABのサービスを使ってみましたが、Squeakから使うなら、利用規約の面でYahoo!Maps APIの方が使いやすいかもしれません（今のところ日本地図データがないのですが）。Google Mapが JavaScriptなしで使えたらうれしいのですがね。

注意：このコードはサンプルとして掲載しております。ALPSLAB clip!の利用規約では、ALPSLABへのtrackback機能を実現することが必要とされていますが、このコードだけでは規約を満たしていません。このコードを流用される際には、自己責任で必要な機能を実装してから使用してください。

| url aGraphic obj |
url := Url absoluteFromText: 
 	'http://clip.alpslab.jp/bin/map?pos=35/40/41.548,139/45/57.228&scale=25000&opt=L'.
aGraphic := (GIFReadWriter new on: (url retrieveContents contentStream)) nextImage.
obj := CImagePlayer new.
obj value: aGraphic.
obj graphicForm: aGraphic.
obj graphicFit: #stretch.
obj extent: aGraphic extent.
obj fill: nil.
obj name: 'a map'.
obj openInHand.