お便利メソッドメモ
back
WorkSpaceでちょっとしたテストをするときに
便利でお手軽なメソッドなどなど。
ソースコードを順番にドゥ〜イットしてみてください。
Alt + d ( Cmd + d )
まずはトランスクリプトを出しておくです。
--------------------------------------------
Transcript open.
--------------------------------------------
■その１
クリックした時のカーソルの位置を取得
--------------------------------------------
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.
--------------------------------------------
■その２
マウスボタン（どれでもいい）を押すまで何かをさせる。
（ある部分を反転させてまする）
--------------------------------------------
[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
|