お便利メソッドメモ
back
WorkSpaceでちょっとしたテストをするときに
便利でお手軽なメソッドなどなど。
ソースコードを順番にドゥ〜イットしてみてください。
Alt + d ( Cmd + d )
まずはトランスクリプトを出しておくです。
--------------------------------------------
Transcript open.
--------------------------------------------
■その1
クリックした時のカーソルの位置を取得
--------------------------------------------
Transcript cr; show: Point fromUser.
--------------------------------------------
これもおんなじね
--------------------------------------------
Transcript cr; show: Sensor waitButton.
--------------------------------------------
現在のカーソルの位置を取得
--------------------------------------------
Transcript cr; show: Sensor cursorPoint.
--------------------------------------------
マウスドラッグして選択した矩形のレクタングルを取得
--------------------------------------------
Transcript cr; show: Rectangle fromUser.
--------------------------------------------
マウスクリックしたレクタングルを取得(大きさをあらかじめ指定できる)
--------------------------------------------
Transcript cr; show: (Rectangle originFromUser: 100@100).
--------------------------------------------
クリックした位置の色を取得(カラーパレットが出る)
--------------------------------------------
Transcript cr; show: Color fromUser.
--------------------------------------------
■その2
マウスボタン(どれでもいい)を押すまで何かをさせる。
(ある部分を反転させてまする)
--------------------------------------------
[Sensor anyButtonPressed] whileFalse: [
Display flash: (100@100 extent: 300@300) andWait: 100.]
--------------------------------------------
マウスボタンを押している間、何かをさせる。
(ある部分を反転させてまする)
--------------------------------------------
[Sensor anyButtonPressed] whileFalse: [
[Sensor anyButtonPressed] whileTrue: [
Display flash: (100@100 extent: 300@300) andWait: 100.]]
--------------------------------------------
右ボタンを押すまで、左ボタンを押したとき何かをさる。
(ある部分を反転させてまする)
--------------------------------------------
[Sensor yellowButtonPressed] whileFalse: [
[Sensor redButtonPressed] whileTrue: [
Display flash: (100@100 extent: 300@300) andWait: 100.]]
--------------------------------------------
何かをさせている間、クロスカーソルを表示する。
(マウスクリックでカーソルの位置をトランスクリプトに表示するまで)
--------------------------------------------
Cursor crossHair showWhile: [Transcript cr; show: Sensor waitButton asString , ' ']
--------------------------------------------
|
下の入力ボックスに書き込んで”add to the page”ボタンで登録出来ます。
修正したい場合はページ左のアイコンの”edit”で出てくる画面で編集可能です。
ページ左のアイコンの”uploads”で画像(JPEG,GIF,PNG)のアップロードもできます。
Link to this Page
|