46 lines
1.1 KiB
Smalltalk
46 lines
1.1 KiB
Smalltalk
<?cs def:warning(warnname) ?><?cs
|
|
each:item = Lang.WarningMessage ?><?cs
|
|
if:(name(item) == warnname)
|
|
?><div class="warning">
|
|
<h1><?cs var:item.Title ?></h1>
|
|
<p><?cs var:item.Text ?></p></div>
|
|
<?cs
|
|
/if ?><?cs
|
|
/each ?><?cs
|
|
/def ?>
|
|
|
|
|
|
<?cs def:error(errname) ?><?cs
|
|
each:item = Lang.ErrorMessage ?><?cs
|
|
if:(name(item) == errname)
|
|
?><div class="error">
|
|
<h1><?cs var:item.Title ?></h1>
|
|
<p><?cs var:item.Text ?></p></div>
|
|
<?cs
|
|
/if ?><?cs
|
|
/each ?><?cs
|
|
/def ?>
|
|
|
|
|
|
<?cs def:success(succname) ?><?cs
|
|
each:item = Lang.SuccessMessage ?><?cs
|
|
if:(name(item) == succname)
|
|
?><div class="success">
|
|
<h1><?cs var:item.Title ?></h1>
|
|
<p><?cs var:item.Text ?></p></div>
|
|
<?cs
|
|
/if ?><?cs
|
|
/each ?><?cs
|
|
/def ?>
|
|
|
|
|
|
<?cs def:parseTree(root) ?>
|
|
<!-- the output looks quite ugly and is not very helpful as there are only a few values -->
|
|
<!-- data tree
|
|
<?cs each:item = root ?><?cs
|
|
name:item ?>: <?cs var:item ?><?cs
|
|
each:subitem = item ?> / <?cs name:subitem ?>=<?cs var:subitem ?><?cs /each ?>
|
|
<?cs /each ?>
|
|
-->
|
|
<?cs /def ?>
|