Attachment 2319 Details for Bug 11988 – ui patch (clear mppe too)

[patch] ui patch (clear mppe too)

index.scm.patch (text/plain), 1.65 KB, created by Michael Shigorin on 2007-12-05 21:46:21 MSK

(hide)

Description:

Filename:

MIME Type:

Creator: Michael Shigorin

Created: 2007-12-05 21:46:21 MSK

Size: 1.65 KB

patch

obsolete

>--- 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)))
> 
> ;;;;;;;;;;;;;;;;;;;;;;;

Actions: View | Diff

Attachments on bug 11988: 2316 | 2317 | 2318 | 2319