Added cipher interface.

oplS15projects · Apr 20, 2015 · 6b6e6ce · 6b6e6ce
1 parent d15053d
commit 6b6e6ce
Showing 1 changed file with 7 additions and 0 deletions.
diff --git a/BankClient.rkt b/BankClient.rkt
@@ -83,5 +83,12 @@
                                                       (send amount-text set-value "")
                                                       (set! active-account nil)))]))
 
+(define cipher-panel (new vertical-panel% [parent balance-panel]))
+(define cipher-choice (new choice% [label "Type of Cipher"]
+                                   [parent cipher-panel]
+                                   [choices (list "Caesar" "Vignere")]))
+(define cipher-text (new text-field% [label "Cipher Data"]
+                                     [parent cipher-panel]))
+
 #|SHOW WINDOW|#
 (send window show #t)