Minimize to tray feature - anyone ?

[marten]

I would like to have the "minimize to tray" feature (under Windows). Does anyone has a solution or code for that ?

Marten

[nmongeau]

I've never done it in Smalltalk, but I have C++ code that handles it if you're interested.

[DEBRO]

Hi there,

I've never done it in Smalltalk, but I have C++ code that handles it if you're interested.

I'm interested. Can you share?

[nmongeau]

actually, after looking around, some portions are in the base image.

To add an icon to the tray:

Code: Select all

| nid flags osString dwMessage res message |

nid := OSNotifyicondata new.
   
flags := (PlatformConstants at: 'NifIcon') + (PlatformConstants at: 'NifMessage') + (PlatformConstants at: 'NifTip').
dwMessage := PlatformConstants at: 'NimAdd'.
   
osString := 'Some Text For Tool Tip' copyToOSMemory.
message := (PlatformConstants at: 'WmUser') + 1997.
   
nid
   cbSize: OSNotifyicondata  fixedSize ;
   hWnd: self primaryWidget osWidget handle ;
   uID: 1234 ;
   uFlags: flags ;
   uCallbackMessage: message ;
   hIcon: (OSWidget systemIcon: (PlatformWidgetsConstants at: 'OSxICONQUESTION')) ;
   szTip: osString.

res := OSCall new shellNotifyIcon: dwMessage lpData: nid.
   


Of course it's for demonstration only, but the above is documented here: http://msdn.microsoft.com/en-us/library/bb773352(VS.85).aspx

You have to now handle the WmUser+1997 message specified above, that will be sent to your window whenever the user interacts with the icon on the toolbar. The base image is not really geared for this, you'll have to change certain things. The entry point now is OSWidget>>windowProc:with:with:, you will see that it will wake up with a message of 3021 when you interact with the tray icon.

You'll have to either change the windowProc of your main window, or register a new event in the EventTable.

In any case, here's some C++ code I have that reacts to 2 icon events, when double-clicking I show the window, and with Right-Click I display a popup menu:

Code: Select all

LONG CClipboardDlg::OnMyTrayNotify(WPARAM wParam, LPARAM lParam)
{
   switch ( lParam )
     {
        case WM_LBUTTONDBLCLK:
         // Display the application
            ShowWindow(SW_RESTORE);
            SetForegroundWindow();
            break;
        //Activate the pop up menu
        case WM_RBUTTONDOWN:
            //Create the popup menu with mini icons
            CMenu menu;

            VERIFY( menu.CreatePopupMenu() );

         if ((! IsWindowVisible()) | IsIconic())
         {
            menu.AppendMenu(MF_STRING, ID_APP_OPEN, _T("&Open"));
         }
         else
         {
            menu.AppendMenu(MF_STRING | MF_GRAYED, ID_APP_OPEN, _T("&Open"));
         };

            menu.AppendMenu(MF_STRING, ID_APP_REALLY_EXIT, _T("E&xit") );
               
            //Position and Display
            POINT pt ;
            GetCursorPos ( &pt ) ;

            SetForegroundWindow();

            int nSelection =  menu.TrackPopupMenu ( 
                TPM_RETURNCMD | TPM_LEFTALIGN | TPM_RIGHTBUTTON,
                pt.x, pt.y, AfxGetMainWnd(), NULL );

            menu.DestroyMenu();

            switch( nSelection )
            {
         case ID_APP_OPEN:
               ShowWindow(SW_RESTORE);
              break;
         case ID_APP_REALLY_EXIT:
                OnCancel();
                break;
            }
    };

     return 0;
}


Hopefully that should get you started.

Normand

[koschate]

Over at Totally Objects (http://www.totallyobjects.com/Tofree.htm), there's a freeware Notification Area part that works to minimize applications to the system tray. It's old, but probably still works.