diff options
| author | s-ol <s+removethis@s-ol.nu> | 2024-05-25 12:46:33 +0000 |
|---|---|---|
| committer | s-ol <s+removethis@s-ol.nu> | 2024-05-30 17:44:43 +0000 |
| commit | 5643620fb0ce0bc96a41f79b60f991ccf9842404 (patch) | |
| tree | 0425bad0346bf391489cab08e30f5bf65b1c24d0 /lib/language.tcl | |
| parent | web.tcl: fix utf-8 encoding (diff) | |
| download | folk-keymap-locale.tar.gz folk-keymap-locale.zip | |
Grab keyboard devices while associated to a pagekeymap-locale
Diffstat (limited to 'lib/language.tcl')
| -rw-r--r-- | lib/language.tcl | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/lib/language.tcl b/lib/language.tcl index 2977933d..bb42a800 100644 --- a/lib/language.tcl +++ b/lib/language.tcl @@ -18,13 +18,14 @@ proc unknown {name args} { } namespace eval dictset { - namespace export create add union difference entries size + namespace export create add remove union difference entries size proc create {args} { set kvs [list] foreach k $args { lappend kvs $k true } dict create {*}$kvs } proc add {sv entry} { upvar $sv s; dict set s $entry true } + proc remove {sv entry} { upvar $sv s; dict unset s $entry } proc union {s t} { dict merge $s $t } proc difference {s t} { |