Re: [BLACKBOX] Dragging a control

From: [at]} <Wojtek>
Date: Sun, 24 Jul 2011 11:13:21 -0400

----boundary-LibPST-iamunique-1551482697_-_-
Content-type: text/plain

Doug,
I do not have time to explore. Just one quick remark. Is it not so that
edit/mask/browser modes are supplied by the container? If your control
never sees certain messages, it cannot respond. So perhaps look at the
container handler to see which messages it passes down the hierarchy in
which mode.

It is just a guess because like I said I have no time to dig further.

W

> W,
> Second comment. My control when in edit mode can indeed be dragged.
> But I don't want those little handles on the control. I need to
> move it
> in either browser mode, or mask mode (is that a contradiction?).
> -Doug
>
>
> On 7/23/2011 9:57 PM, Wojtek Skulski wrote: I created an
> empty form and added a button to it. I can drag it around. Perhaps
> you can have a look at the message handlers of the controls supplied
> with the BB system? W. Folks,
> Here is another problem I am struggling with. I have
> created a simple control that is just a small square. I want to
> drag it around in a form or view. How can I do that? I
> have read the documentation on drag &amp;amp; drop but it is
> obscure to me. I would think that since windows are easily drag
> (repositioned) that doing the same with a control should
> also be easy but I don't see how. Here is my naive attempt that
> knows the control is moused (its color inverts when pressed) but
> does not move. The MoveFrame is my effort to move the
> control. PROCEDURE (v: View) MoveFrame (f: Views.Frame; w,
> h, x, y, rx, ry: INTEGER), NEW; BEGIN (*Keep
> the center of the dragger at tthe mouse position*)
> Controllers.Drop(x-(w DIV 2), y-(h DIV 2), f, x, y, v, TRUE, w, h,
> rx, ry); END MoveFrame; PROCEDURE (v: View)
> HandleCtrlMsg ( f: Views.Frame; VAR msg:
> Controllers.Message; VAR focus: Views.View );
> VAR rx, ry, x, y, w, h, res: INTEGER; modifiers: SET; inside, isDown:
> BOOLEAN; BEGIN WITH msg: Controllers.TrackMsg
> DO (* mouse button was pressed *)
> v.context.GetSize(w, h); f.Input(rx, ry, modifiers,
> isDown); (*(rx,ry) is first click point*)
> f.MarkRect(0, 0, w, h, Ports.fill, Ports.invert, Ports.show); inside
> := TRUE; REPEAT (* mouse tracking loop *)
> f.Input(x, y, modifiers, isDown);
> IF inside # (x >= 0) &amp;amp; (y >= 0) &amp;amp; (x < w)
> &amp;amp; (y < h) THEN (* toggle state *)
> inside := ~inside; f.MarkRect(0, 0, w, h, Ports.fill, Ports.invert,
> inside) END; IF inside THEN
> v.MoveFrame(f, w, h, x, y, rx, ry) END; UNTIL
> ~isDown; IF inside THEN (* mouse was released
> inside the control *) f.MarkRect(0, 0, w, h,
> Ports.fill, Ports.invert, Ports.hide); IF v.link
> # "" THEN Dialog.Call(v.link, "", res) (*
> interpret and execute the string in v.link *)
> END END ELSE (* ignore other
> messages *) END END HandleCtrlMsg; -Doug
> Danforth ---- To unsubscribe, send a message with body "SIGNOFF
> BLACKBOX" to LISTSERV{([at]})nowhere.xy
> unsubscribe, send a message with body "SIGNOFF BLACKBOX" to
> LISTSERV{([at]})nowhere.xy
> ---- To unsubscribe, send a message with body "SIGNOFF BLACKBOX" to
> LISTSERV{([at]})nowhere.xy

----
To unsubscribe, send a message with body "SIGNOFF BLACKBOX" to LISTSERV{([at]})nowhere.xy----boundary-LibPST-iamunique-1551482697_-_-
Content-type: application/rtf
Content-transfer-encoding: base64
Content-Disposition: attachment; filename="rtf-body.rtf"
e1xydGYxXGFuc2lcYW5zaWNwZzEyNTJcZnJvbXRleHQgXGRlZmYwe1xmb250dGJsDQp7XGYwXGZz
d2lzcyBBcmlhbDt9DQp7XGYxXGZtb2Rlcm4gQ291cmllciBOZXc7fQ0Ke1xmMlxmbmlsXGZjaGFy
c2V0MiBTeW1ib2w7fQ0Ke1xmM1xmbW9kZXJuXGZjaGFyc2V0MCBDb3VyaWVyIE5ldzt9fQ0Ke1xj
b2xvcnRibFxyZWQwXGdyZWVuMFxibHVlMDtccmVkMFxncmVlbjBcYmx1ZTI1NTt9DQpcdWMxXHBh
cmRccGxhaW5cZGVmdGFiMzYwIFxmMFxmczIwIERvdWcsXHBhcg0KSSBkbyBub3QgaGF2ZSB0aW1l
IHRvIGV4cGxvcmUuIEp1c3Qgb25lIHF1aWNrIHJlbWFyay4gSXMgaXQgbm90IHNvIHRoYXRccGFy
DQplZGl0L21hc2svYnJvd3NlciBtb2RlcyBhcmUgc3VwcGxpZWQgYnkgdGhlIGNvbnRhaW5lcj8g
SWYgeW91ciBjb250cm9sXHBhcg0KbmV2ZXIgc2VlcyBjZXJ0YWluIG1lc3NhZ2VzLCBpdCBjYW5u
b3QgcmVzcG9uZC4gU28gcGVyaGFwcyBsb29rIGF0IHRoZVxwYXINCmNvbnRhaW5lciBoYW5kbGVy
IHRvIHNlZSB3aGljaCBtZXNzYWdlcyBpdCBwYXNzZXMgZG93biB0aGUgaGllcmFyY2h5IGluXHBh
cg0Kd2hpY2ggbW9kZS5ccGFyDQpccGFyDQpJdCBpcyBqdXN0IGEgZ3Vlc3MgYmVjYXVzZSBsaWtl
IEkgc2FpZCBJIGhhdmUgbm8gdGltZSB0byBkaWcgZnVydGhlci5ccGFyDQpccGFyDQpXXHBhcg0K
XHBhcg0KPiAgICAgICAgICAgICAgICAgICAgIFcsXHBhcg0KPiAgICAgIFNlY29uZCBjb21tZW50
LiAgTXkgY29udHJvbCB3aGVuIGluIGVkaXQgbW9kZSBjYW4gaW5kZWVkIGJlIGRyYWdnZWQuXHBh
cg0KPiAgICAgIEJ1dCBJIGRvbid0IHdhbnQgdGhvc2UgbGl0dGxlIGhhbmRsZXMgb24gdGhlIGNv
bnRyb2wuICBJIG5lZWQgdG9ccGFyDQo+IG1vdmUgaXRccGFyDQo+ICAgICAgaW4gZWl0aGVyIGJy
b3dzZXIgbW9kZSwgb3IgbWFzayBtb2RlIChpcyB0aGF0IGEgY29udHJhZGljdGlvbj8pLlxwYXIN
Cj4gICAgICAtRG91Z1xwYXINCj5ccGFyDQo+XHBhcg0KPiAgICAgIE9uIDcvMjMvMjAxMSA5OjU3
IFBNLCBXb2p0ZWsgU2t1bHNraSB3cm90ZTogICAgICAgICAgICBJIGNyZWF0ZWQgYW5ccGFyDQo+
IGVtcHR5IGZvcm0gYW5kIGFkZGVkIGEgYnV0dG9uIHRvIGl0LiBJIGNhbiBkcmFnIGl0IGFyb3Vu
ZC4gIFBlcmhhcHNccGFyDQo+IHlvdSBjYW4gaGF2ZSBhIGxvb2sgYXQgdGhlIG1lc3NhZ2UgaGFu
ZGxlcnMgb2YgdGhlIGNvbnRyb2xzIHN1cHBsaWVkXHBhcg0KPiB3aXRoIHRoZSBCQiBzeXN0ZW0/
ICBXLiAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgIEZvbGtzLFxwYXINCj4g
ICAgICBIZXJlIGlzIGFub3RoZXIgcHJvYmxlbSBJIGFtIHN0cnVnZ2xpbmcgd2l0aC4gICAgICAg
SSBoYXZlXHBhcg0KPiBjcmVhdGVkIGEgc2ltcGxlIGNvbnRyb2wgdGhhdCBpcyBqdXN0IGEgc21h
bGwgICAgICBzcXVhcmUuICBJIHdhbnQgdG9ccGFyDQo+IGRyYWcgaXQgYXJvdW5kIGluIGEgZm9y
bSBvciB2aWV3LiAgICAgIEhvdyBjYW4gSSBkbyB0aGF0PyAgICAgICBJXHBhcg0KPiBoYXZlIHJl
YWQgdGhlIGRvY3VtZW50YXRpb24gb24gZHJhZyAmYW1wO2FtcDsgZHJvcCBidXQgICAgICBpdCBp
c1xwYXINCj4gb2JzY3VyZSB0byBtZS4gICAgICAgSSB3b3VsZCB0aGluayB0aGF0IHNpbmNlIHdp
bmRvd3MgYXJlIGVhc2lseSBkcmFnXHBhcg0KPiAgICAgIChyZXBvc2l0aW9uZWQpIHRoYXQgZG9p
bmcgdGhlIHNhbWUgd2l0aCBhIGNvbnRyb2wgICAgICBzaG91bGRccGFyDQo+IGFsc28gYmUgZWFz
eSBidXQgSSBkb24ndCBzZWUgaG93LiAgICAgICBIZXJlIGlzIG15IG5haXZlIGF0dGVtcHQgdGhh
dFxwYXINCj4ga25vd3MgdGhlIGNvbnRyb2wgaXMgICAgICBtb3VzZWQgKGl0cyBjb2xvciBpbnZl
cnRzIHdoZW4gcHJlc3NlZCkgYnV0XHBhcg0KPiBkb2VzICAgICAgbm90IG1vdmUuICBUaGUgTW92
ZUZyYW1lIGlzIG15IGVmZm9ydCB0byBtb3ZlICAgICAgdGhlXHBhcg0KPiBjb250cm9sLiAgICAg
ICAgICAgUFJPQ0VEVVJFICh2OiBWaWV3KSBNb3ZlRnJhbWUgKGY6IFZpZXdzLkZyYW1lOyB3LFxw
YXINCj4gaCwgeCwgeSwgcngsICByeTogSU5URUdFUiksIE5FVzsgICAgICAgICAgQkVHSU4gICAg
ICAgICAgICAgICgqS2VlcFxwYXINCj4gdGhlIGNlbnRlciBvZiB0aGUgZHJhZ2dlciBhdCB0dGhl
IG1vdXNlIHBvc2l0aW9uKilccGFyDQo+IENvbnRyb2xsZXJzLkRyb3AoeC0odyBESVYgMiksIHkt
KGggRElWIDIpLCBmLCB4LCB5LCB2LCBUUlVFLCAgICB3LCBoLFxwYXINCj4gcngsIHJ5KTsgICAg
ICAgICAgRU5EIE1vdmVGcmFtZTsgICAgICAgICAgIFBST0NFRFVSRSAodjogVmlldylccGFyDQo+
IEhhbmRsZUN0cmxNc2cgKCAgICAgICAgICAgICAgZjogVmlld3MuRnJhbWU7IFZBUiBtc2c6XHBh
cg0KPiBDb250cm9sbGVycy5NZXNzYWdlOyBWQVIgZm9jdXM6IFZpZXdzLlZpZXcgICAgICAgICAg
KTtccGFyDQo+IFZBUiByeCwgcnksIHgsIHksIHcsIGgsIHJlczogSU5URUdFUjsgbW9kaWZpZXJz
OiBTRVQ7IGluc2lkZSwgaXNEb3duOlxwYXINCj4gQk9PTEVBTjsgICAgICAgICAgQkVHSU4gICAg
ICAgICAgICAgIFdJVEggbXNnOiBDb250cm9sbGVycy5UcmFja01zZ1xwYXINCj4gRE8gICAgKCog
bW91c2UgYnV0dG9uIHdhcyBwcmVzc2VkICopXHBhcg0KPiB2LmNvbnRleHQuR2V0U2l6ZSh3LCBo
KTsgICAgICAgICAgICAgICAgICBmLklucHV0KHJ4LCByeSwgbW9kaWZpZXJzLFxwYXINCj4gaXNE
b3duKTsgKCoocngscnkpIGlzIGZpcnN0ICBjbGljayBwb2ludCopXHBhcg0KPiBmLk1hcmtSZWN0
KDAsIDAsIHcsIGgsIFBvcnRzLmZpbGwsIFBvcnRzLmludmVydCwgUG9ydHMuc2hvdyk7IGluc2lk
ZVxwYXINCj4gOj0gVFJVRTsgICAgICAgICAgICAgICAgICBSRVBFQVQgICAgKCogbW91c2UgdHJh
Y2tpbmcgbG9vcCAqKVxwYXINCj4gICAgICAgICAgICAgIGYuSW5wdXQoeCwgeSwgbW9kaWZpZXJz
LCBpc0Rvd24pO1xwYXINCj4gSUYgaW5zaWRlICMgKHggPj0gMCkgJmFtcDthbXA7ICh5ID49IDAp
ICZhbXA7YW1wOyAoeCAgICAgPCB3KVxwYXINCj4gJmFtcDthbXA7ICh5IDwgaCkgVEhFTiAgICAo
KiB0b2dnbGUgc3RhdGUgKilccGFyDQo+IGluc2lkZSA6PSB+aW5zaWRlOyBmLk1hcmtSZWN0KDAs
IDAsIHcsIGgsIFBvcnRzLmZpbGwsIFBvcnRzLmludmVydCxccGFyDQo+IGluc2lkZSkgICAgICAg
ICAgICAgICAgICAgICAgRU5EOyAgICAgICAgICAgICAgICAgICAgICBJRiBpbnNpZGUgVEhFTlxw
YXINCj4gdi5Nb3ZlRnJhbWUoZiwgdywgaCwgeCwgeSwgcngsIHJ5KSBFTkQ7ICAgICAgICAgICAg
ICAgICAgVU5USUxccGFyDQo+IH5pc0Rvd247ICAgICAgICAgICAgICAgICAgSUYgaW5zaWRlIFRI
RU4gICAgKCogbW91c2Ugd2FzIHJlbGVhc2VkXHBhcg0KPiBpbnNpZGUgdGhlIGNvbnRyb2wgKikg
ICAgICAgICAgICAgICAgICAgICAgZi5NYXJrUmVjdCgwLCAwLCB3LCBoLFxwYXINCj4gUG9ydHMu
ZmlsbCwgUG9ydHMuaW52ZXJ0LCBQb3J0cy5oaWRlKTsgICAgICAgICAgICAgICAgICAgICAgSUYg
di5saW5rXHBhcg0KPiAjICIiIFRIRU4gICAgICAgICAgICAgICAgICAgICAgICAgIERpYWxvZy5D
YWxsKHYubGluaywgIiIsIHJlcykgICAgKCpccGFyDQo+IGludGVycHJldCBhbmQgICAgZXhlY3V0
ZSB0aGUgc3RyaW5nIGluIHYubGluayAqKVxwYXINCj4gRU5EICAgICAgICAgICAgICAgICAgRU5E
ICAgICAgICAgICAgICBFTFNFICAgICgqIGlnbm9yZSBvdGhlclxwYXINCj4gbWVzc2FnZXMgKikg
ICAgICAgICAgICAgIEVORCAgICAgICAgICBFTkQgSGFuZGxlQ3RybE1zZzsgICAgICAgLURvdWdc
cGFyDQo+IERhbmZvcnRoICAgIC0tLS0gVG8gdW5zdWJzY3JpYmUsIHNlbmQgYSBtZXNzYWdlIHdp
dGggYm9keSAiU0lHTk9GRlxwYXINCj4gQkxBQ0tCT1giIHRvIExJU1RTRVJWQExJU1RTLk9CRVJP
Ti5DSCAgICAgICAgICAgICAgICAgLS0tLSBUb1xwYXINCj4gdW5zdWJzY3JpYmUsIHNlbmQgYSBt
ZXNzYWdlIHdpdGggYm9keSAiU0lHTk9GRiBCTEFDS0JPWCIgdG9ccGFyDQo+IExJU1RTRVJWQExJ
U1RTLk9CRVJPTi5DSFxwYXINCj4gIC0tLS0gVG8gdW5zdWJzY3JpYmUsIHNlbmQgYSBtZXNzYWdl
IHdpdGggYm9keSAiU0lHTk9GRiBCTEFDS0JPWCIgdG9ccGFyDQo+IExJU1RTRVJWQExJU1RTLk9C
RVJPTi5DSFxwYXINClxwYXINClxwYXINCi0tLS1ccGFyDQpUbyB1bnN1YnNjcmliZSwgc2VuZCBh
IG1lc3NhZ2Ugd2l0aCBib2R5ICJTSUdOT0ZGIEJMQUNLQk9YIiB0byBMSVNUU0VSVkBMSVNUUy5P
QkVST04ufX0AAAAAAB4A
----boundary-LibPST-iamunique-1551482697_-_---

Received on Sun Jul 24 2011 - 17:13:21 UTC