[PD-cvs] pd/src desire.tk,1.1.2.62,1.1.2.63
chunlee
chunlee at users.sourceforge.net
Sun Sep 18 04:00:16 CEST 2005
- Previous message: [PD-cvs] pd/src d_soundfile.c, 1.4.4.11.2.4, 1.4.4.11.2.5 g_canvas.h, 1.3.4.3.2.8, 1.3.4.3.2.9 g_editor.c, 1.4.4.2.2.5, 1.4.4.2.2.6 g_graph.c, 1.3.4.2.2.3, 1.3.4.2.2.4 g_text.c, 1.5.4.2.2.5, 1.5.4.2.2.6 s_main.c, 1.7.4.17.2.6, 1.7.4.17.2.7
- Next message: [PD-cvs] pd/src desire.c,1.1.2.18,1.1.2.19
- Messages sorted by:
[ date ]
[ thread ]
[ subject ]
[ author ]
Update of /cvsroot/pure-data/pd/src
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv22351
Modified Files:
Tag: devel_0_39
desire.tk
Log Message:
fixed a few small things from my old code
Index: desire.tk
===================================================================
RCS file: /cvsroot/pure-data/pd/src/Attic/desire.tk,v
retrieving revision 1.1.2.62
retrieving revision 1.1.2.63
diff -C2 -d -r1.1.2.62 -r1.1.2.63
*** desire.tk 17 Sep 2005 19:15:03 -0000 1.1.2.62
--- desire.tk 18 Sep 2005 02:00:12 -0000 1.1.2.63
***************
*** 782,786 ****
set canvasmenu(put) {
! {Object {objectbox_new} "Ctrl+1"}
{Message {pd "%W msg 0 ;"} "Ctrl+2"}
{Number {pd "%W floatatom 0 ;"} "Ctrl+3"}
--- 782,786 ----
set canvasmenu(put) {
! {Object {pd "%W obj 0 ;"} "Ctrl+1"}
{Message {pd "%W msg 0 ;"} "Ctrl+2"}
{Number {pd "%W floatatom 0 ;"} "Ctrl+3"}
***************
*** 1223,1227 ****
$self draw $canvas
set t .x$canvas.c.${self}text
! text $t -height 1 -width [llength $@text] -relief flat \
-bg ${look(objectbg)} -borderwidth 0 \
-font [format -*-courier-medium--normal--%d-* $font_size]
--- 1223,1227 ----
$self draw $canvas
set t .x$canvas.c.${self}text
! text $t -height 1 -width [string length $@text] -relief flat \
-bg ${look(objectbg)} -borderwidth 0 \
-font [format -*-courier-medium--normal--%d-* $font_size]
***************
*** 1324,1332 ****
global font
set _($canvas:obj_in_edit_old) $self
set @isnew 0
set @selected? 1
set old_obj_name [.x$canvas.c itemcget ${self}TEXT -text]
.x$canvas.c delete ${self}TEXT
! text_create $self .x$canvas.c $font(size) $old_obj_name
}
--- 1324,1355 ----
global font
set _($canvas:obj_in_edit_old) $self
+ set _($canvas:obj_in_edit) 1
set @isnew 0
set @selected? 1
set old_obj_name [.x$canvas.c itemcget ${self}TEXT -text]
.x$canvas.c delete ${self}TEXT
! text_create $self $canvas $font(size) $old_obj_name
! }
!
! def objectbox click {args} {
! puts "$self is being clicked in run mode"
! }
!
! def objectbox clickedit {args} {
! puts "$self is being clicked in edit mode"
! }
!
! def objectbox unclick {args} {
! puts "$self is being unclicked in run mode"
! }
!
! def objectbox unclickedit {args} {
! puts "$self is being unclicked in [lindex $args 0] edit mode"
! $self edit [lindex $args 0]
! #objectbox_edit
! }
!
! def objectbox motionedit {args} {
! puts "motions in $self in edit mode"
}
***************
*** 1510,1514 ****
set tags [$c gettags [lindex [$c find overlapping \
[expr $cx-2] [expr $cy-2] [expr $cx+2] [expr $cy+2]] end]]
! foreach {type id} [$self identify_target $cx $cy -1 -1 "click"] {}
switch $type {
object {
--- 1533,1537 ----
set tags [$c gettags [lindex [$c find overlapping \
[expr $cx-2] [expr $cy-2] [expr $cx+2] [expr $cy+2]] end]]
! foreach {type id} [$self identify_target $cx $cy -1 -1 "g"] {}
switch $type {
object {
***************
*** 1627,1635 ****
--- 1650,1661 ----
default {
if {$@editmode} {
+ puts "clicked on black space and in edit mode"
# my object edit mode code begins --chun
if {[info exists @obj_in_edit]} {
+ puts "and some object is being edited"
if {$@obj_in_edit > 0} {
[lindex $@selection 0] complete $self
set @obj_in_edit 0
+ puts "competing it!"
}
}
- Previous message: [PD-cvs] pd/src d_soundfile.c, 1.4.4.11.2.4, 1.4.4.11.2.5 g_canvas.h, 1.3.4.3.2.8, 1.3.4.3.2.9 g_editor.c, 1.4.4.2.2.5, 1.4.4.2.2.6 g_graph.c, 1.3.4.2.2.3, 1.3.4.2.2.4 g_text.c, 1.5.4.2.2.5, 1.5.4.2.2.6 s_main.c, 1.7.4.17.2.6, 1.7.4.17.2.7
- Next message: [PD-cvs] pd/src desire.c,1.1.2.18,1.1.2.19
- Messages sorted by:
[ date ]
[ thread ]
[ subject ]
[ author ]
More information about the Pd-cvs
mailing list