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
Content-Type: text/plain; charset=UTF-8
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
Precedence: bulk

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;
; 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?