@@ 13,6 13,22 @@ object c = Protocols.XMLRPC.Client("http
 
 object app;
 
+void setCurrencyList_(object l) {
+  currencyList = l;
+}
+
+void setSpinner_(object s) {
+  spinner = s;
+}
+
+void setDollarsToConvert_(object d) {
+  dollarsToConvert = d;
+}
+
+void setConvertedAmount_(object c) {
+  convertedAmount = c;
+}
+
 static void create()
 {
   ::create();

          
@@ 22,7 38,8 @@ static void create()
 
 void _finishedMakingConnections()
 {
-   werror("*\n*\n*\n*\n*\n*\n");	
+   werror("*\n*\n*\n*\n*\n*\n");
+   werror("CLASS: %O\n", currencyList);
    currencyList->addItemsWithTitles_( ({"Choose", "CAD", "EUR", "DKK", "SEK", "GBP", "CHF"}) );
 }
 

          
@@ 47,4 64,4 @@ void convert_(object action)
    float x;
    x = exchangeRate * dollarsToConvert->floatValue();
    convertedAmount->setFloatValue_(x);
-}
  No newline at end of file
+}