annotate lwlib/energize/fidget-widget @ 94:1040fe1366ac xemacs-20-0f2

Import from CVS: tag xemacs-20-0f2
author cvs
date Mon, 13 Aug 2007 09:12:09 +0200
parents 376386a54a3c
children
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
0
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
1 #!/bin/sh
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
2 # fidget-widget modifies the output of XDesigner.
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
3 # the creation function returns widget1 and does not create the parent.
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
4 # marc + matthieu
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
5
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
6 NAME=$2
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
7 FILE=$1
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
8 case $FILE in
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
9 *ctreebr_ps.xdc|*classbr_ps.xdc|*leb_psheet.xdc) filter="grep -v Offset" ;;
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
10 *) filter=cat ;;
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
11 esac
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
12 sed "
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
13 /^\*\* Generated by / a\\
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
14 ** Modified by fidget-widget, `date +%d-%h-%y`
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
15 /Widget widget0/d
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
16 /^create_widget0/s//Widget $NAME/
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
17 /int h_spacing/s//short h_spacing/
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
18 /widget0 =/d
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
19 /widget1 =/s/widget0/parent/
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
20 /^}/i\\
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
21 return widget1;
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
22 " $FILE | $filter