[PD-cvs] pd/src g_text.c,1.1.1.4.2.2.2.11,1.1.1.4.2.2.2.12 u_object.tk,1.1.2.18,1.1.2.19

[Mathieu Bouchard]

Update of /cvsroot/pure-data/pd/src
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv18414

Modified Files:
      Tag: impd_0_37
	g_text.c u_object.tk 
Log Message:
fixed messagebox


Index: g_text.c
===================================================================
RCS file: /cvsroot/pure-data/pd/src/g_text.c,v
retrieving revision 1.1.1.4.2.2.2.11
retrieving revision 1.1.1.4.2.2.2.12
diff -C2 -d -r1.1.1.4.2.2.2.11 -r1.1.1.4.2.2.2.12
*** g_text.c	8 Apr 2004 10:48:11 -0000	1.1.1.4.2.2.2.11
--- g_text.c	17 Apr 2004 04:39:01 -0000	1.1.1.4.2.2.2.12
***************
*** 284,289 ****
      if (glist_isvisible(x->m_glist))
      {
!     	sys_vgui(".x%x.c itemconfigure %sBASE -width 5\n", 
! 	    glist_getcanvas(x->m_glist), x);
      	clock_delay(x->m_clock, 120);
      }
--- 284,288 ----
      if (glist_isvisible(x->m_glist))
      {
! 	sys_vgui("message_bang %x .x%x.c 1\n", x, glist_getcanvas(x->m_glist));
      	clock_delay(x->m_clock, 120);
      }
***************
*** 293,300 ****
  {
      if (glist_isvisible(x->m_glist))
!     {
!     	sys_vgui(".x%x.c itemconfigure %sBASE -width 1\n",
! 	    glist_getcanvas(x->m_glist), x);
!     }
  }
  
--- 292,296 ----
  {
      if (glist_isvisible(x->m_glist))
! 	sys_vgui("message_bang %x .x%x.c 0\n", x, glist_getcanvas(x->m_glist));
  }
  

Index: u_object.tk
===================================================================
RCS file: /cvsroot/pure-data/pd/src/Attic/u_object.tk,v
retrieving revision 1.1.2.18
retrieving revision 1.1.2.19
diff -C2 -d -r1.1.2.18 -r1.1.2.19
*** u_object.tk	17 Apr 2004 04:04:23 -0000	1.1.2.18
--- u_object.tk	17 Apr 2004 04:39:01 -0000	1.1.2.19
***************
*** 263,266 ****
--- 263,276 ----
  }
  
+ proc message_bang {self canvas flag} {
+ 	global _ look
+ 	if {$flag} {
+ 		$canvas itemconfigure ${self}BASE -fill #ffff00
+ 	} {
+ 		$canvas itemconfigure ${self}BASE -fill $look(objectbg)
+ 	}
+ 
+ }
+ 
  proc message_erase {self canvas} {
  	$canvas delete ${self}BASE