equal
deleted
inserted
replaced
44 imgFileName := 'banner8.xpm' "/ 255 colors |
44 imgFileName := 'banner8.xpm' "/ 255 colors |
45 ]. |
45 ]. |
46 |
46 |
47 img := Image fromFile:imgFileName. |
47 img := Image fromFile:imgFileName. |
48 img notNil ifTrue:[ |
48 img notNil ifTrue:[ |
49 ('showBanner.rc [info]: launch splash screen banner.') infoPrintCR. |
49 "/ ('showBanner.rc [info]: launch splash screen banner.') infoPrintCR. |
50 "/ remember the bannerView - will be destroyed by |
50 "/ remember the bannerView - will be destroyed by |
51 "/ the hideBanner script. |
51 "/ the hideBanner script. |
52 Smalltalk at:#'__BannerView__' put:(view := PopUpBanner forImage:img). |
52 Smalltalk at:#'__BannerView__' put:(view := PopUpBanner forImage:img). |
53 view showCentered. |
53 view showCentered. |
54 Display flush. |
54 Display flush. |