Mercurial > hg > xemacs-beta
diff lwlib/energize/fidget-widget @ 0:376386a54a3c r19-14
Import from CVS: tag r19-14
author | cvs |
---|---|
date | Mon, 13 Aug 2007 08:45:50 +0200 |
parents | |
children |
line wrap: on
line diff
--- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/lwlib/energize/fidget-widget Mon Aug 13 08:45:50 2007 +0200 @@ -0,0 +1,22 @@ +#!/bin/sh +# fidget-widget modifies the output of XDesigner. +# the creation function returns widget1 and does not create the parent. +# marc + matthieu + +NAME=$2 +FILE=$1 +case $FILE in + *ctreebr_ps.xdc|*classbr_ps.xdc|*leb_psheet.xdc) filter="grep -v Offset" ;; + *) filter=cat ;; +esac +sed " + /^\*\* Generated by / a\\ + ** Modified by fidget-widget, `date +%d-%h-%y` + /Widget widget0/d + /^create_widget0/s//Widget $NAME/ + /int h_spacing/s//short h_spacing/ + /widget0 =/d + /widget1 =/s/widget0/parent/ + /^}/i\\ + return widget1; + " $FILE | $filter