X-Authentication-Warning:	delorie.com: mail set sender to geda-user-bounces using -f
X-Recipient:	geda-user AT delorie DOT com
X-Original-DKIM-Signature:	v=1; a=rsa-sha256; c=relaxed/relaxed;
	d=gmail.com; s=20120113;
	h=mime-version:in-reply-to:references:from:date:message-id:subject:to;
	bh=Wjrh55WH6OesIFXvRPODe+cqGltu4YQ7gji5z66LXAo=;
	b=iRlYdWmt3q+5CDY73bESsLBl6nBGhRiwgpB7c4sGkvqSE5gUfufb0y9kaon20f9Jrx
	5+XPHgc0fGPOc785sOctHIkEwnoLJ3GbG9dUjXqsLPojNur5i2/SNPKvHBMz16bmdOuI
	zu08pny2NCaJT7K5iYNyBuEg+VsumXGci1Y4AYb6cLV4a/ciVRSG1sN7KUBdqoemIMK+
	PtvvS+F5FcB0GEJQpKMPNxig53LoDxVnHfufv3AaC9RAfPe4vg45rrkoWoVheXKu4A1/
	KObxWkcCsI03Y/xh0uSh+Nyoiqo8vrt8Iphs+QkfTOHN7qKE6OEXFLQqWUI08gi4gFeO
	5l8w==
X-Google-DKIM-Signature:	v=1; a=rsa-sha256; c=relaxed/relaxed;
	d=1e100.net; s=20130820;
	h=x-gm-message-state:mime-version:in-reply-to:references:from:date
	:message-id:subject:to;
	bh=Wjrh55WH6OesIFXvRPODe+cqGltu4YQ7gji5z66LXAo=;
	b=duwAyvnsMgTtUIAzjGVXwR8IRUqJHoeurIbTUwc3Ed1mD6ZJVb5Fga1wWANM/NXai5
	+kUzEXU0SuyW5/N5k5KD7YANLCF7mGF9mNWD2Gq2FTgDWTJk4ghqxuypXgF2uv2ZFRqj
	ieW/Fm0KybnNyOw07s3rnvuGWnSJiO0CL+Q8ContoyEqVG6yUoDi8CEC67CeMe11qVO9
	OcF3Z/snndThnGwFdsHUKbLiLxYZ761I2jwrglcJdJp0N2NIQWoUH7S2IpDDxzTxA8VK
	FGGxlQNMdubo7JMgVF8xISLCu9hQtODLoqmZi/FABL8DBjGQz1jnVSOj4SVgFvlYElCK
	vg/w==
X-Gm-Message-State:	ABUngvdlv20NG/S590C1nuzY8IDuZnvN/4XpkIsgYKukPp1sCOduX/e6sZE4ftE9orMn3Pl+0XLmKxTpBxeBMg==
X-Received:	by 10.37.171.43 with SMTP id u40mr11674189ybi.30.1477245385574;
	Sun, 23 Oct 2016 10:56:25 -0700 (PDT)
MIME-Version:	1.0
In-Reply-To:	<86CE0804-4DB5-402E-9D6A-CAC8C69BF910@qux.com>
References:	<1477080832 DOT 2909 DOT 106 DOT camel AT linetec> <201610212041 DOT u9LKfw5r031245 AT envy DOT delorie DOT com>
	<1477089908 DOT 2909 DOT 123 DOT camel AT linetec> <s6nbmycyci8 DOT fsf AT blaulicht DOT dmz DOT brux>
	<1477129015 DOT 2909 DOT 130 DOT camel AT linetec> <141F9C23-F141-42FE-A760-834BBDAA7C2F AT qux DOT com>
	<CAAKZVJnZFhwf1SJpiMirG3YGb6gwcRq0+x=kdf49fRpLmGh=Ew AT mail DOT gmail DOT com> <86CE0804-4DB5-402E-9D6A-CAC8C69BF910 AT qux DOT com>
From:	"dmn (graahnul DOT grom AT gmail DOT com) [via geda-user AT delorie DOT com]" <geda-user AT delorie DOT com>
Date:	Sun, 23 Oct 2016 20:56:25 +0300
Message-ID:	<CAAKZVJnrMwzVDieg_fOifNsmRrucUY_nN=Nk4L3676tKWUyPnQ@mail.gmail.com>
Subject:	Re: [geda-user] Annoying object selection behaviour in gschem > 1.6.2
To:	geda-user AT delorie DOT com
Reply-To:	geda-user AT delorie DOT com
Errors-To:	nobody AT delorie DOT com
X-Mailing-List:	geda-user AT delorie DOT com
X-Unsubscribes-To:	listserv AT delorie DOT com

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;
; Select entire object by selecting one of its attributes:
;

( use-modules ( gschem selection ) )
( use-modules ( gschem window    ) )
( use-modules ( gschem hook      ) )
( use-modules ( geda   attrib    ) )


( define ( on_select objs )
( let
    (
    ( parent #f  )
    ( attrs  '() )
    )

    ( for-each
    ( lambda( obj )

        ( set! parent (attrib-attachment obj) )

        ( if parent
        ( begin

            ( set! attrs (object-attribs parent) )

            ( for-each
            ( lambda( attr )
                ( select-object! attr )
            )
            attrs
            )

            ( select-object! parent )

        )
        ) ; if parent

    )
    ( filter attribute? objs )
    )

) ; let
) ; on_select()


( define ( multi_select_on )
    ( add-hook! select-objects-hook on_select )
    ( run-hook  select-objects-hook ( page-selection (active-page) ) )
)

( define ( multi_select_off )
    ( remove-hook! select-objects-hook on_select )
)

( global-set-key "F1" 'multi_select_on  )
( global-set-key "F2" 'multi_select_off )

;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

Right?

- Raw text -