[Swarm-Support] About that special bitmap thing (was HDF5 warning ...

[Paul E Johnson]

Marcus G. Daniels wrote:
>
>> (Tcl -eval:) bitmap "special" not defined
>>    (processing "-bitmap" option)
>>    invoked from within
>> ".w135637336.w135644464.w135648456.w135656120.w135657568.w135665600
>> configure -bitmap special -activeforeground red -foreground red"
>> while evaluating:
>> .w135637336.w135644464.w135648456.w135656120.w135657568.w135665600
>> configure -bitmap special -activeforeground red -foreground red
>
>
> What does src/tkobjc/Makefile look like and what does
> src/tkobjc/simtools_tcl.x look like?
> Usually this happens when the _tcl.x files are created as one
> big quoted line instead of individual joined and quoted lines.

Thank you very much. I have confirmed your surmise is correct. Now that 
I understand where the problem comes from, I can try to fix it.

In case anybody else is playing in the studio audience, here is what I 
find so far.

The simtools_tcl.x file has a quotation mark at the beginning of every 
line, quite unlike the simtools_tcl.x files I find on systems where 
Swarm built and ran with no trouble.  It also has (mistakenly) grabbed 
some SDG copyright message.

Here is a snip from the top.

================================blah blah blah ====================

const char *simtools_tcl =
"# Swarm library. Copyright © 1996-2000 Swarm Development Group.  This\
"
"# program is free software; you can redistribute it and/or modify it\
"
"# under the terms of the GNU General Public License as published by\
"
"# the Free Software Foundation; either version 2 of the License, or\
"
"# (at your option) any later version.\
"
"#\
"
"# This program is distributed in the hope that it will be useful, but\
"
"# WITHOUT ANY WARRANTY; without even the implied warranty of\
"
"# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU\
"
"# General Public License for more details.\
"
"#\
"
"# You should have received a copy of the GNU General Public License\
"
"# along with this program; if not, write to the Free Software\
"
"# Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307\
"
"# USA\
"
"# \
"
"# The Swarm Development Group can be reached via our website at:\
"
"# http://www.swarm.org/\
"
"\
"
"bitmap define hide {{16 16} {\
"
"    0x00, 0x00, 0x00, 0x00, 0x04, 0x80, 0x08, 0x40, 0x90, 0x27, 0x60, 
0x18,\
"
"    0x60, 0x18, 0x90, 0x24, 0x10, 0x23, 0x10, 0x23, 0x90, 0x24, 0x60, 
0x18,\
"
"    0x60, 0x18, 0x90, 0x27, 0x08, 0x40, 0x04, 0x80}}\
"
"        \
"
"bitmap define special {{16 16} {\
"
"    0x00, 0x00, 0x00, 0x00, 0x04, 0x80, 0x08, 0x40, 0x90, 0x27, 0x60, 
0x1b,\
"
"    0x60, 0x1b, 0x90, 0x27, 0xf0, 0x3c, 0xf0, 0x3c, 0x90, 0x27, 0x60, 
0x1b,\
"
==========================[snip]==============================


And the part of the Makefile that drives this


tkobjc.lo: $(foreach f, $(TCLFILES), $(basename $(f))_tcl.x)

#internal.lo: internal.m
#       $(OBJCCOMPILE) -O0 -c -o $@ $<

%_tcl.x: %.tcl
        (echo 'const char *$(notdir $(basename $<))_tcl = ' ; cat $< | 
sed -e 's/\\/\\\\/g'
-e 's/"/\\"/g' -e 's/^/"/' -e 's/$$/\\\n"/' ; echo ';' ) > $@



================================================

I'm going to figure this one out.

On a different Machine, I find an old Makefile and it looks quite 
different, and I need to track down the reasons for the change. The old 
one is like so:

%_tcl.x: %.tcl
        (echo 'const char *$(notdir $(basename $<))_tcl = ' ; cat $< | 
sed -e 's/\\/\\\\/g'
-e 's/"/\\"/g' -e 's/^/"/' -e 's/$$/\\\n"/' ; echo ';' ) > $@


ANyway, I understand that, in the end, I want the file simtools_tcl.x to 
look like this, right?


const char *simtools_tcl = "
bitmap define hide {{16 16} {
    0x00, 0x00, 0x00, 0x00, 0x04, 0x80, 0x08, 0x40, 0x90, 0x27, 0x60, 0x18,
    0x60, 0x18, 0x90, 0x24, 0x10, 0x23, 0x10, 0x23, 0x90, 0x24, 0x60, 0x18,
    0x60, 0x18, 0x90, 0x27, 0x08, 0x40, 0x04, 0x80}}

bitmap define special {{16 16} {
    0x00, 0x00, 0x00, 0x00, 0x04, 0x80, 0x08, 0x40, 0x90, 0x27, 0x60, 0x1b,
    0x60, 0x1b, 0x90, 0x27, 0xf0, 0x3c, 0xf0, 0x3c, 0x90, 0x27, 0x60, 0x1b,
    0x60, 0x1b, 0x90, 0x27, 0x08, 0x40, 0x04, 0x80}}

bitmap define super {{16 16} {
    0x00, 0x00, 0x00, 0x00, 0x7c, 0x08, 0x44, 0x04, 0x44, 0x7e, 0x44, 0x44,
    0x7c, 0x48, 0x00, 0x40, 0x00, 0x40, 0x00, 0x40, 0x00, 0x40, 0x7c, 0x40,
    0x44, 0x40, 0x44, 0x7e, 0x44, 0x00, 0x7c, 0x00}}

proc send_id {interp ddwin data} {
    global DDOBJ
    set DDOBJ $data
    drag&drop target $ddwin handle id
}

[snip]




--
Paul E. Johnson                       email: address@hidden
Dept. of Political Science            http://lark.cc.ku.edu/~pauljohn
1541 Lilac Lane, Rm 504
University of Kansas                  Office: (785) 864-9086
Lawrence, Kansas 66044-3177           FAX: (785) 864-5700