equal
deleted
inserted
replaced
560 DefaultVCursor notNil ifTrue:[ |
560 DefaultVCursor notNil ifTrue:[ |
561 cursor := DefaultVCursor |
561 cursor := DefaultVCursor |
562 ] ifFalse:[ |
562 ] ifFalse:[ |
563 device platformName = 'WIN32' ifFalse:[ |
563 device platformName = 'WIN32' ifFalse:[ |
564 cursor := Cursor |
564 cursor := Cursor |
565 sourceForm:(Smalltalk bitmapFromFileNamed:'VVPanel.xbm' forClass:self) |
565 sourceForm:(Smalltalk imageFromFileNamed:'VVPanel.xbm' forClass:self) |
566 maskForm:(Smalltalk bitmapFromFileNamed:'VVPanel_m.xbm' forClass:self) |
566 maskForm:(Smalltalk imageFromFileNamed:'VVPanel_m.xbm' forClass:self) |
567 hotX:8 |
567 hotX:8 |
568 hotY:8. |
568 hotY:8. |
569 ]. |
569 ]. |
570 |
570 |
571 " |
571 " |
583 DefaultHCursor notNil ifTrue:[ |
583 DefaultHCursor notNil ifTrue:[ |
584 cursor := DefaultHCursor |
584 cursor := DefaultHCursor |
585 ] ifFalse:[ |
585 ] ifFalse:[ |
586 device platformName = 'WIN32' ifFalse:[ |
586 device platformName = 'WIN32' ifFalse:[ |
587 cursor := Cursor |
587 cursor := Cursor |
588 sourceForm:(Smalltalk bitmapFromFileNamed:'VHPanel.xbm' forClass:self) |
588 sourceForm:(Smalltalk imageFromFileNamed:'VHPanel.xbm' forClass:self) |
589 maskForm:(Smalltalk bitmapFromFileNamed:'VHPanel_m.xbm' forClass:self) |
589 maskForm:(Smalltalk imageFromFileNamed:'VHPanel_m.xbm' forClass:self) |
590 hotX:8 |
590 hotX:8 |
591 hotY:8. |
591 hotY:8. |
592 ]. |
592 ]. |
593 " |
593 " |
594 if bitmaps are not available or under Win95, |
594 if bitmaps are not available or under Win95, |
1721 ! ! |
1721 ! ! |
1722 |
1722 |
1723 !VariablePanel class methodsFor:'documentation'! |
1723 !VariablePanel class methodsFor:'documentation'! |
1724 |
1724 |
1725 version |
1725 version |
1726 ^ '$Header: /cvs/stx/stx/libwidg/VariablePanel.st,v 1.52 1999-12-01 20:38:03 cg Exp $' |
1726 ^ '$Header: /cvs/stx/stx/libwidg/VariablePanel.st,v 1.53 1999-12-09 11:10:41 cg Exp $' |
1727 ! ! |
1727 ! ! |