From 5a35785c7a2618816f59e45f9d5e365e77860a1d Mon Sep 17 00:00:00 2001
From: Danny Yoo <dyoo@cs.wpi.edu>
Date: Mon, 19 Mar 2012 19:00:06 -0400
Subject: [PATCH] continuing to load the map element

---
 examples/google-maps/maps.rkt | 34 ++++++++++++++++++++++++++++++++--
 1 file changed, 32 insertions(+), 2 deletions(-)

diff --git a/examples/google-maps/maps.rkt b/examples/google-maps/maps.rkt
index b382c08..892a1ec 100644
--- a/examples/google-maps/maps.rkt
+++ b/examples/google-maps/maps.rkt
@@ -29,6 +29,28 @@ EOF
 ))
 
 
+(define raw-make-map-dom-and-map
+  (js-async-function->procedure
+   #<<EOF
+function(success, fail, lat, lng) {
+    var myOptions = {
+         center: new google.maps.LatLng(lat, lng),
+         zoom: 8,
+         mapTypeId: google.maps.MapTypeId.ROADMAP
+    };
+    var domElement = document.createElement('div');
+    domElement.style.width = "100%";
+    domElement.style.height = "200px";
+    var map = new google.maps.Map(domElement, myOptions);
+    success(domElement, map);
+}
+EOF
+))
+
+
+
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+
 (define (initialize-google-maps-api! key sensor)
   (unless (string? key)
     (raise-type-error 'initialize-google-maps-api! "string" 0 key))
@@ -36,9 +58,17 @@ EOF
     (raise-type-error 'initialize-google-maps-api! "boolean" 1 sensor))
   (void (raw-initialize-google-maps-api! key sensor)))
 
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 
 
 ;; This is dyoo's API key.
 (printf "Loading google maps api\n");
-(initialize-google-maps-api! "AIzaSyCRKQNI_nbyyN1286cssEy3taKj5IZcHN8" #t)
-(printf "google maps api loaded\n")
\ No newline at end of file
+(initialize-google-maps-api! "AIzaSyCRKQNI_nbyyN1286cssEy3taKj5IZcHN8" #f)
+(printf "google maps api loaded\n")
+
+
+
+(raw-make-map-dom-and-map (number->js-number -34.397)
+                          (number->js-number 150.644))
+
+"done"
\ No newline at end of file