|
Last change
on this file since 615 was 615, checked in by イグトランス (egtra), 16 years ago |
|
サブクラス化機構(Control.Attach)の整備
|
|
File size:
478 bytes
|
| Line | |
|---|
| 1 | Public
|
|---|
| 2 | Static Sub AddThreadExit(h As Handler)
|
|---|
| 3 | If IsNothing(threadExit) Then
|
|---|
| 4 | threadExit = h
|
|---|
| 5 | Else
|
|---|
| 6 | threadExit += h
|
|---|
| 7 | End If
|
|---|
| 8 | End Sub
|
|---|
| 9 | Static Sub RemoveThreadExit(h As Handler)
|
|---|
| 10 | If Not IsNothing(threadExit) Then
|
|---|
| 11 | threadExit -= h
|
|---|
| 12 | End If
|
|---|
| 13 | End Sub
|
|---|
| 14 | Protected
|
|---|
| 15 | Static Function OnThreadExit(e As Args) As Boolean
|
|---|
| 16 | If Not IsNothing(threadExit) Then
|
|---|
| 17 | threadExit(This, e)
|
|---|
| 18 | Return True
|
|---|
| 19 | End If
|
|---|
| 20 | End Function
|
|---|
| 21 | Private
|
|---|
| 22 | Static threadExit As Handler
|
|---|
| 23 |
|
|---|
Note:
See
TracBrowser
for help on using the repository browser.
