--- index.scm-orig	2007-04-05 10:10:51 +0300
+++ index.scm	2007-12-05 20:44:30 +0200
@@ -39,9 +39,14 @@
          (spacer)
          ;;
          (spacer)
-         (label (_ "Walk throw interface") align "right")
+         (label (_ "Walk through interface") align "right")
          (document:id iface (combobox widget-name "iface"))
-         (spacer))       
+         (spacer)
+         ;;
+         (spacer)
+         (label (_ "MPPE encryption") align "right")
+         (document:id mppe (checkbox "" widget-name "mppe"))
+         (spacer))
 
 (hbox
  align "center"
@@ -70,6 +75,7 @@
 (define (update-connection name)
   (let ((data (woo-read-first (string-append "/net-pptp/" name))))
     (server text (woo-get-option data 'server))
+    (mppe state (woo-get-option data 'mppe))
     (login text (woo-get-option data 'login))
     (password text "")
     (iface current (or (string-list-index (woo-get-option data 'iface) gates) 0))))
@@ -86,6 +92,7 @@
       (apply woo-write/constraints (string-append "/net-pptp/" name)
              'server (server text)
              'iface (iface text)
+             'mppe (mppe state)
              'login (login text)
              (if (not-empty-string? pwd) (list 'password pwd) '()))))))
 
@@ -98,6 +105,7 @@
               'name name
               'server (server text)
               'iface (iface text)
+              'mppe (mppe state)
               'login (login text)
               'password (password text))
      (connections append-row name
@@ -126,6 +134,7 @@
   ((widgets name server login password)
    text "")
   (iface current 0)
+  (mppe state #f)
   (name text (first-available)))
 
 ;;;;;;;;;;;;;;;;;;;;;;;