equal
deleted
inserted
replaced
1679 |
1679 |
1680 "/ force re-resolving; |
1680 "/ force re-resolving; |
1681 "/ otherwise, class-inits would not be called |
1681 "/ otherwise, class-inits would not be called |
1682 "/ by resolver ... (sigh) |
1682 "/ by resolver ... (sigh) |
1683 |
1683 |
|
1684 JavaNativeMethod flushAllCachedNativeMethods. |
1684 JavaMethod allSubInstancesDo:[:m | |
1685 JavaMethod allSubInstancesDo:[:m | |
1685 m checked:false. |
1686 m checked:false. |
1686 m code:nil. |
1687 m code:nil. |
1687 ]. |
1688 ]. |
1688 ObjectMemory flushCaches. "/ sigh - must flush inline caches. |
1689 ObjectMemory flushCaches. "/ sigh - must flush inline caches. |
2540 |
2541 |
2541 ^ nil |
2542 ^ nil |
2542 |
2543 |
2543 "Created: / 7.1.1998 / 21:47:11 / cg" |
2544 "Created: / 7.1.1998 / 21:47:11 / cg" |
2544 "Modified: / 5.12.1998 / 13:47:52 / cg" |
2545 "Modified: / 5.12.1998 / 13:47:52 / cg" |
|
2546 ! |
|
2547 |
|
2548 replacementFontFor:name style:styleNr size:size |
|
2549 |font family style| |
|
2550 |
|
2551 style := 'roman'. |
|
2552 styleNr = 0 ifTrue:[ |
|
2553 style := 'roman' |
|
2554 ]. |
|
2555 |
|
2556 font := Font family:name style:style size:size. |
|
2557 font notNil ifTrue:[^ font]. |
|
2558 |
|
2559 name = 'Dialog' ifTrue:[ |
|
2560 family := 'helvetica' |
|
2561 ] ifFalse:[ |
|
2562 family := 'courier' |
|
2563 ]. |
|
2564 |
|
2565 ^ Font family:name style:style size:size. |
2545 ! |
2566 ! |
2546 |
2567 |
2547 topViewsMenu:view |
2568 topViewsMenu:view |
2548 |idx| |
2569 |idx| |
2549 |
2570 |
8389 view viewBackground:clr. |
8410 view viewBackground:clr. |
8390 view backgroundPaint:clr. |
8411 view backgroundPaint:clr. |
8391 ! |
8412 ! |
8392 |
8413 |
8393 _MComponentPeer_pSetFont:nativeContext |
8414 _MComponentPeer_pSetFont:nativeContext |
8394 |view jFont stFont | |
8415 |view jFont stFont name style size| |
8395 |
8416 |
8396 view := self viewForWPeer:nativeContext. |
8417 view := self viewForWPeer:nativeContext. |
8397 jFont := nativeContext argAt:1. |
8418 jFont := nativeContext argAt:1. |
8398 |
8419 |
8399 stFont := jFont instVarNamed:'pData'. |
8420 stFont := jFont instVarNamed:'pData'. |
8400 (stFont isNil or:[stFont == 0]) ifTrue:[ |
8421 (stFont isNil or:[stFont == 0]) ifTrue:[ |
8401 self halt. |
8422 name := jFont instVarNamed:'name'. |
8402 ] ifFalse:[ |
8423 style := jFont instVarNamed:'style'. |
8403 view font:stFont |
8424 size := jFont instVarNamed:'size'. |
8404 ]. |
8425 |
|
8426 stFont := self replacementFontFor:(Java as_ST_String:name) style:style size:size. |
|
8427 jFont instVarNamed:'pData' put:stFont. |
|
8428 ]. |
|
8429 view font:stFont. |
8405 |
8430 |
8406 ^ nil |
8431 ^ nil |
8407 ! |
8432 ! |
8408 |
8433 |
8409 _MComponentPeer_pSetForeground:nativeContext |
8434 _MComponentPeer_pSetForeground:nativeContext |
12820 ! ! |
12845 ! ! |
12821 |
12846 |
12822 !JavaVM class methodsFor:'documentation'! |
12847 !JavaVM class methodsFor:'documentation'! |
12823 |
12848 |
12824 version |
12849 version |
12825 ^ '$Header: /home/jv/Projects/SmalltalkX/repositories/cvs/stx/libjava/JavaVM.st,v 1.179 2000/12/18 22:11:53 cg Exp $' |
12850 ^ '$Header: /home/jv/Projects/SmalltalkX/repositories/cvs/stx/libjava/JavaVM.st,v 1.180 2000/12/31 12:27:50 cg Exp $' |
12826 ! ! |
12851 ! ! |
12827 JavaVM initialize! |
12852 JavaVM initialize! |