Attachment 2317 Details for Bug 11988 – ui patch

[patch] ui patch

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

(hide)

Description:

Filename:

MIME Type:

Creator: Michael Shigorin

Created: 2007-12-05 21:27:31 MSK

Size: 1.47 KB

patch

obsolete

>--- index.scm-orig	2007-04-05 10:10:51 +0300
>+++ index.scm	2007-12-05 20:15:58 +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

Actions: View | Diff

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