Re: [BLACKBOX] Unicode command button text

From: Douglas G. Danforth <"Douglas>
Date: Sun, 7 Feb 2010 21:45:05 -0800

----boundary-LibPST-iamunique-833157369_-_- Content-type: text/plain For any of those who might care I created a panel of special characters that I can now use to paste, into any text, by pushing a button with their glyph. The identical command for each button with a different glyph (label) is PROCEDURE PasteChar*; VAR msg: Controllers.EditMsg; BEGIN IF Controls.par.label # "" THEN msg.char := Controls.par.label[0]; msg.op := Controllers.pasteChar; Controllers.Forward(msg) END END PasteChar; I didn't know about Controls.par being the active control that one can use within a command to differentiate between which control has just been pushed. Very nice. -Doug Danforth ---- To unsubscribe, send a message with body "SIGNOFF BLACKBOX" to LISTSERV{([at]})nowhere.xy ----boundary-LibPST-iamunique-833157369_-_- Content-type: application/rtf Content-transfer-encoding: base64 Content-Disposition: attachment; filename="rtf-body.rtf" e1xydGYxXGFuc2lcYW5zaWNwZzEyNTJcZnJvbWh0bWwxIFxkZWZmMHtcZm9udHRibA0Ke1xmMFxm c3dpc3NcZmNoYXJzZXQwIEFyaWFsO30NCntcZjFcZm1vZGVybiBDb3VyaWVyIE5ldzt9DQp7XGYy XGZuaWxcZmNoYXJzZXQyIFN5bWJvbDt9DQp7XGYzXGZtb2Rlcm5cZmNoYXJzZXQwIENvdXJpZXIg TmV3O319DQp7XGNvbG9ydGJsXHJlZDBcZ3JlZW4wXGJsdWUwO1xyZWQwXGdyZWVuMFxibHVlMjU1 O30NClx1YzFccGFyZFxwbGFpblxkZWZ0YWIzNjAgXGYwXGZzMjQgDQp7XCpcaHRtbHRhZzI0MyA8 IURPQ1RZUEUgaHRtbCBQVUJMSUMgIi0vL1czQy8vRFREIEhUTUwgNC4wMSBUcmFuc2l0aW9uYWwv L0VOIj59DQp7XCpcaHRtbHRhZzMgXHBhciB9DQp7XCpcaHRtbHRhZzE5IDxodG1sPn0NCntcKlxo dG1sdGFnMiBccGFyIH0NCntcKlxodG1sdGFnMzQgPGhlYWQ+fQ0Ke1wqXGh0bWx0YWcxIFxwYXIg fQ0Ke1wqXGh0bWx0YWcyNDEgICB9DQp7XCpcaHRtbHRhZzEgXHBhciB9DQp7XCpcaHRtbHRhZzQx IDwvaGVhZD59DQp7XCpcaHRtbHRhZzIgXHBhciB9DQp7XCpcaHRtbHRhZzUwIDxib2R5IGJnY29s b3I9IiNmZmZmZmYiIHRleHQ9IiMwMDAwMDAiPn1caHRtbHJ0ZiBcdmlld2tpbmQ1DQp7XCpcYmFj a2dyb3VuZCB7XHNocHtcKlxzaHBpbnN0e1xzcHtcc24gZmlsbENvbG9yfXtcc3YgMTY3NzcyMTV9 fXtcc3B7XHNuIGZGaWxsZWR9e1xzdiAxfX19fX1caHRtbHJ0ZjAgDQp7XCpcaHRtbHRhZzAgXHBh ciB9e1wqXGh0bWx0YWc2NH1caHRtbHJ0ZiB7XGh0bWxydGYwIEZvciBhbnkgb2YgdGhvc2Ugd2hv IG1pZ2h0IGNhcmUgSSBjcmVhdGVkIGEgcGFuZWwgb2Ygc3BlY2lhbCBjaGFyYWN0ZXJzDQp7XCpc aHRtbHRhZzExNiA8YnI+fVxodG1scnRmIFxsaW5lDQpcaHRtbHJ0ZjAgDQp7XCpcaHRtbHRhZzQg XHBhciB9dGhhdCBJIGNhbiBub3cgdXNlIHRvIHBhc3RlLCBpbnRvIGFueSB0ZXh0LCBieSBwdXNo aW5nIGEgYnV0dG9uIHdpdGgNCntcKlxodG1sdGFnNCBccGFyIH1caHRtbHJ0ZiAgXGh0bWxydGYw IHRoZWlyIGdseXBoLg0Ke1wqXGh0bWx0YWcxMTYgPGJyPn1caHRtbHJ0ZiBcbGluZQ0KXGh0bWxy dGYwIA0Ke1wqXGh0bWx0YWc0IFxwYXIgfVRoZSBpZGVudGljYWwgY29tbWFuZCBmb3IgZWFjaCBi dXR0b24gd2l0aCBhIGRpZmZlcmVudCBnbHlwaCAobGFiZWwpIGlzDQp7XCpcaHRtbHRhZzQgXHBh ciB9XGh0bWxydGYgIFxodG1scnRmMCANCntcKlxodG1sdGFnMTE2IDxicj59XGh0bWxydGYgXGxp bmUNClxodG1scnRmMCANCntcKlxodG1sdGFnNCBccGFyIH0NCntcKlxodG1sdGFnMTE2IDxicj59 XGh0bWxydGYgXGxpbmUNClxodG1scnRmMCANCntcKlxodG1sdGFnNCBccGFyIH1cJ2EwXCdhMFwn YTAgUFJPQ0VEVVJFIFBhc3RlQ2hhcio7DQp7XCpcaHRtbHRhZzExNiA8YnI+fVxodG1scnRmIFxs aW5lDQpcaHRtbHJ0ZjAgDQp7XCpcaHRtbHRhZzQgXHBhciB9XCdhMFwnYTBcJ2EwIFwnYTBcJ2Ew XCdhMCBWQVIgbXNnOiBDb250cm9sbGVycy5FZGl0TXNnOw0Ke1wqXGh0bWx0YWcxMTYgPGJyPn1c aHRtbHJ0ZiBcbGluZQ0KXGh0bWxydGYwIA0Ke1wqXGh0bWx0YWc0IFxwYXIgfVwnYTBcJ2EwXCdh MCBCRUdJTg0Ke1wqXGh0bWx0YWcxMTYgPGJyPn1caHRtbHJ0ZiBcbGluZQ0KXGh0bWxydGYwIA0K e1wqXGh0bWx0YWc0IFxwYXIgfVwnYTBcJ2EwXCdhMCBcJ2EwXCdhMFwnYTAgSUYgQ29udHJvbHMu cGFyLmxhYmVsICMgIiIgVEhFTg0Ke1wqXGh0bWx0YWcxMTYgPGJyPn1caHRtbHJ0ZiBcbGluZQ0K XGh0bWxydGYwIA0Ke1wqXGh0bWx0YWc0IFxwYXIgfVwnYTBcJ2EwXCdhMCBcJ2EwXCdhMFwnYTAg XCdhMFwnYTBcJ2EwIG1zZy5jaGFyIDo9IENvbnRyb2xzLnBhci5sYWJlbFswXTsNCntcKlxodG1s dGFnMTE2IDxicj59XGh0bWxydGYgXGxpbmUNClxodG1scnRmMCANCntcKlxodG1sdGFnNCBccGFy IH1cJ2EwXCdhMFwnYTAgXCdhMFwnYTBcJ2EwIFwnYTBcJ2EwXCdhMCBtc2cub3AgOj0gQ29udHJv bGxlcnMucGFzdGVDaGFyOyANCntcKlxodG1sdGFnMTE2IDxicj59XGh0bWxydGYgXGxpbmUNClxo dG1scnRmMCANCntcKlxodG1sdGFnNCBccGFyIH1cJ2EwXCdhMFwnYTAgXCdhMFwnYTBcJ2EwIFwn YTBcJ2EwXCdhMCBDb250cm9sbGVycy5Gb3J3YXJkKG1zZykNCntcKlxodG1sdGFnMTE2IDxicj59 XGh0bWxydGYgXGxpbmUNClxodG1scnRmMCANCntcKlxodG1sdGFnNCBccGFyIH1cJ2EwXCdhMFwn YTAgXCdhMFwnYTBcJ2EwIEVORA0Ke1wqXGh0bWx0YWcxMTYgPGJyPn1caHRtbHJ0ZiBcbGluZQ0K XGh0bWxydGYwIA0Ke1wqXGh0bWx0YWc0IFxwYXIgfVwnYTBcJ2EwXCdhMCBFTkQgUGFzdGVDaGFy Ow0Ke1wqXGh0bWx0YWcxMTYgPGJyPn1caHRtbHJ0ZiBcbGluZQ0KXGh0bWxydGYwIA0Ke1wqXGh0 bWx0YWc0IFxwYXIgfVwnYTBcJ2EwXCdhMCANCntcKlxodG1sdGFnMTE2IDxicj59XGh0bWxydGYg XGxpbmUNClxodG1scnRmMCANCntcKlxodG1sdGFnNCBccGFyIH1JIGRpZG4ndCBrbm93IGFib3V0 IENvbnRyb2xzLnBhciBiZWluZyB0aGUgYWN0aXZlIGNvbnRyb2wNCntcKlxodG1sdGFnMTE2IDxi cj59XGh0bWxydGYgXGxpbmUNClxodG1scnRmMCANCntcKlxodG1sdGFnNCBccGFyIH10aGF0IG9u ZSBjYW4gdXNlIHdpdGhpbiBhIGNvbW1hbmQgdG8gZGlmZmVyZW50aWF0ZSBiZXR3ZWVuDQp7XCpc aHRtbHRhZzExNiA8YnI+fVxodG1scnRmIFxsaW5lDQpcaHRtbHJ0ZjAgDQp7XCpcaHRtbHRhZzQg XHBhciB9d2hpY2ggY29udHJvbCBoYXMganVzdCBiZWVuIHB1c2hlZC5cJ2EwIFZlcnkgbmljZS4N CntcKlxodG1sdGFnMTE2IDxicj59XGh0bWxydGYgXGxpbmUNClxodG1scnRmMCANCntcKlxodG1s dGFnNCBccGFyIH0NCntcKlxodG1sdGFnMTE2IDxicj59XGh0bWxydGYgXGxpbmUNClxodG1scnRm MCANCntcKlxodG1sdGFnNCBccGFyIH0tRG91ZyBEYW5mb3J0aA0Ke1wqXGh0bWx0YWcxMTYgPGJy Pn1caHRtbHJ0ZiBcbGluZQ0KXGh0bWxydGYwIA0Ke1wqXGh0bWx0YWc0IFxwYXIgfQ0Ke1wqXGh0 bWx0YWcxMTYgPGJyPn1caHRtbHJ0ZiBcbGluZQ0KXGh0bWxydGYwIA0Ke1wqXGh0bWx0YWc0IFxw YXIgfXtcKlxodG1sdGFnNzJ9XGh0bWxydGZccGFyfVxodG1scnRmMA0KDQp7XCpcaHRtbHRhZzU4 IDwvYm9keT59DQp7XCpcaHRtbHRhZzIgXHBhciB9DQp7XCpcaHRtbHRhZzI3IDwvaHRtbD59DQp7 XCpcaHRtbHRhZzMgXHBhciB9DQp7XCpcaHRtbHRhZzY0IDxwPn1caHRtbHJ0ZiBccGFyDQpcaHRt bHJ0ZjAgXGh0bWxydGYge1xodG1scnRmMCANCntcKlxodG1sdGFnNCBccGFyIH0tLS0tDQp7XCpc aHRtbHRhZzQgXHBhciB9XGh0bWxydGYgIFxodG1scnRmMCBUbyB1bnN1YnNjcmliZSwgc2VuZCBh IG1lc3NhZ2Ugd2l0aCBib2R5ICJTSUdOT0ZGIEJMQUNLQk9YIiB0byBMSVNUU0VSVkBMSVNUUy5P QkVST04uQ0gNCntcKlxodG1sdGFnNCBccGFyIH1caHRtbHJ0ZiAgXGh0bWxydGYwIFxodG1scnRm XHBhcn1caHRtbHJ0ZjANCn0= ----boundary-LibPST-iamunique-833157369_-_--- Received on Mon Feb 08 2010 - 06:45:05 UTC