| … | … | ||
|---|---|---|---|
| 26 | >k::save_state; | 26 | >k::save_state; |
| 27 | Storable::nstore($state, $staterc); | 27 | Storable::nstore($state, $staterc); |
| 28 | appwin::status("save_state", "layout saved"); | 28 | appwin::status("save_state", "layout saved"); |
| 29 | } | 29 | } |
| 30 | 30 | ||
| 31 | # text to xml | ||
| 31 | sub toxml($) { | 32 | sub toxml($) { |
| 32 | local $_ = shift; | 33 | local $_ = shift; |
| 33 | s/&/&/g; | 34 | s/&/&/g; |
| 34 | s/</</g; | 35 | s/</</g; |
| 35 | s/]]>/]]>/g; | 36 | s/]]>/]]>/g; |
| 36 | $_; | 37 | $_; |
| 37 | } | 38 | } |
| 38 | 39 | ||
| 40 | # pseudo-"xml" to text | ||
| 41 | sub xmlto($) { | ||
| 42 | local $_ = shift; | ||
| 43 | s/</</g; | ||
| 44 | s/&/&/g; | ||
| 45 | $_; | ||
| 46 | } | ||
| 47 | |||
| 39 | 1; | 48 | 1; |
| 40 | 49 |
| – | Removed lines |
| + | Added lines |
| < | Changed lines |
| > | Changed lines |