Catch frame's closing event

Hi,
I was wondering how to accomplish this...
How can I catch the closing event, that a user creates by clicking on the X on the top upper right of a jframe?
I have a cancel button that calls an onCancel method, and I need to also call that onCancel method for that action.
public void onCancel() {
// Cancel the operation
}Any suggestions?
V

I'll answer;
myframe.addWindowListener(new WindowAdapter()
                                public void windowClosing(WindowEvent we)
                                                 {onCancel();}
                               });Another way would be to:
class MyWindowListener extends WindowAdapter()
private MyClassWithOnCancelMethod mcwocm;
public MyWindowListener(MyClassWithOnCancelMethod moc)
   mcwocm = moc;
public void windowClosing(WindowEvent we)
   mcwocm.onCancel();
}And then, in your previous class:
MyWindowListener mwl = new MyWindowListener(this);
myframe.addWindowListener(mwl);Kinda your choice.
~David

Similar Messages

Identify Frame generating 'closed'-event

I have a jSplittedPane with a jTree on the left, a JDesktopPane on the right.
When i select an item in the tree on the left, an jInternalFrame (application) is added (and displayed) on the jDesktopPane.
I can switch to any item (app) at any moment by selecting other items.
I have added a 'closed'-propertylistener to each frame added on the jDesktopPane.
myFrame.addPropertyChangeListener("closed", new closeInternalFrame()); When i close a frame (app) on the jDesktopPane, the listener is triggered and i can do some actions
     class closeInternalFrame implements PropertyChangeListener {
        public void propertyChange(PropertyChangeEvent e) {
              setCurrentEvent(e);
              deActivateApplication();
        }To identify the jInternalFrame which triggers the closed-event, i do a test on the 'source' of the event
        if ((getCurrentEvent().getSource() instanceof myApp_x.myAppConstructor)){
            this.myApp_x = null;
            removeFromActiveApplicationList("Application_x");
        }This works nicely but... now comes the tricky part:
It does not work when i open 2 jInternalFrames using the same class/constructor...
Question:
Is there any other way to 'identify' the jInternalFrame which triggers the 'closed'-event?
I can 'name' my jInternalFrame but i cannot test it when the event is triggered...
        myFrame.setName("Frame1");

Why aren't you using <tt>InternalFrameListener#windowClosed / windowClosing</tt>?
db

Catching window closing events from JFrame

I'm having problems catching windowClosing() events from a JFrame (just doesn't get to my event listener it would seem!).
I register and setup a window listener in the constructor of my JFrame class. Prior to this I set the default close operation as DO_NOTHING_ON_CLOSE (as you're suppose to if tyou want to handle window closing events).
When user clicks on x (window terminate) button (in WIN systems), nothing is dispatched to my event listener. Any ideas?
Extract from constructor:
setDefaultCloseOperation(DO_NOTHING_ON_CLOSE);
addWindowListener(new MainWindowListener(this));
MainWindowListener looks as follows (EDImemConvert extends JFrame):
class MainWindowListener extends WindowAdapter
private EDImemConvert f;
public MainWindowListener(EDImemConvert f)
this.f = f;
public void windowClosing(WindowEvent e)
System.out.println("gets here...");
f.ReturnResources();
f.dispose();
System.exit(0);
}

This works for meimport java.awt.*;
import java.awt.event.*;
import javax.swing.*;
public class Test extends JFrame {
public Test() {
    addWindowListener(new WindowAdapter() {
      public void windowClosing(WindowEvent we) { System.exit(0); }
    setSize(300,300);
    setVisible(true);
public static void main(String args[]) { new Test(); }
}Normally, I just use this line
setDefaultCloseOperation(JFrame.EXIT_ON_CLOSE);
instead of adding a listener. It will clean up everything nicely.

How to stop frame from closing?

Hi,
ramka.addWindowListener(new WindowAdapter()
              public void windowClosing(WindowEvent e)
                  Object [] qqq = {"yes", "no"};
                  int answer = JOptionPane.showOptionDialog(
                            null,
                             "want to close window?",
                             JOptionPane.YES_NO_OPTION,
                              JOptionPane.QUESTION_MESSAGE,
                              null,
                             qqq,
                             qqq[1]);
                  if (answer == JOptionPane.YES_OPTION)
                       // WHAT TO DO TO STOP WINDOW FROM CLOSING?
              });as you can see above i want to stop frame from closing.
what should i do in the commented line?
or maybe somewhere else?
please help,
thanks

Hello friend,
I've found a solution for your query. I think, you'll get a solution from my codings. I've given you below my codings,plz go through it.Verify it. Reply me about my codings.
import java.awt.*;
import java.awt.event.*;
import javax.swing.*;
import javax.swing.JOptionPane;
public class MyFrame extends JFrame{
     JButton jb=new JButton("My Details");
     public MyFrame(){
     JPanel jp=new JPanel();
     jp.add(jb,new FlowLayout(FlowLayout.CENTER));
     add(jp);
     jb.addActionListener(new ActionListener(){
     public void actionPerformed(ActionEvent ae){
               if(ae.getSource()==jb){
                    String str[]={
                         "Name : Karthikeyan.K",
                         "Email-ID : [email protected]"
                    JOptionPane.showMessageDialog(null, str);
WindowCloser wc=new WindowCloser();
addWindowListener(wc);
     class WindowCloser extends WindowAdapter{
          public void windowClosing(WindowEvent we){
               int res=JOptionPane.showConfirmDialog(null,"Do you want to exit from it?","Confirmation!!!",JOptionPane.YES_NO_CANCEL_OPTION,JOptionPane.QUESTION_MESSAGE);
               switch(res){
                    case JOptionPane.YES_OPTION:
                         dispose();
                         System.exit(0);
                         break;
                    case JOptionPane.NO_OPTION:
                         repaint();
                         doOpenFrame();
                         break;
                    case JOptionPane.CANCEL_OPTION:
                         repaint();
                         doOpenFrame();
                         break;
                    case JOptionPane.CLOSED_OPTION:
                         repaint();
                         doOpenFrame();
                         break;
     public static void doOpenFrame(){
          MyFrame mf=new MyFrame();
          mf.pack();
          mf.setSize(400,400);
          mf.setVisible(true);
     public static void main(String ar[]){
     doOpenFrame();
}

Why can not catch the standard BACK event in ALV's USER_COMMAND event,

Hi expert, why i can not catch the standard BACK event in ALV's USER_COMMAND event,
Code:
DATA G_CON_UC_FORM   TYPE SLIS_FORMNAME VALUE 'F_USER_COMMAND',
CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
    EXPORTING
      I_CALLBACK_PROGRAM      = SY-REPID
      I_CALLBACK_TOP_OF_PAGE = G_CON_FORM
      I_CALLBACK_USER_COMMAND = G_CON_UC_FORM
      IT_FIELDCAT             = G_TAB_FIELDCAT
      IT_SORT                 = G_TAB_SORT_INF
      I_SAVE                  = G_CON_U
*<<<Liang
    IT_EVENTS               = G_TAB_ALV_EVENTS
*<<<Liang
    TABLES
      T_OUTTAB                = G_TAB_OUTPUT_DATA
    EXCEPTIONS
      PROGRAM_ERROR           = 1
      OTHERS                  = 2.
*&      Form F_USER_COMMAND
      ALV USER COMMAND processing
FORM F_USER_COMMAND .
IF SY-UCOMM = '&FO3'.
    LEAVE TO SCREEN 0.
ENDIF.
ENDFORM.                    " F_USER_COMMAND
When I set breakpoint on this subrouting ,and try to click stardard BACK or CANCEL button, the callback form do not run, but if double click one of line of alv report, the callback form works well,
so why??

hi
good
check this report and change your code accordingly.
THESE LINES ARE FOR THE MAIN PROGRAM ***
SAP V40B ***
REPORT Z_PICK_LIST .
TABLES: RESB.
SELECTION-SCREEN BEGIN OF BLOCK BL1 WITH FRAME TITLE TEXT-BL1.
SELECT-OPTIONS: S_WERKS FOR RESB-WERKS," Plant
                S_AUFNR FOR RESB-AUFNR," Order number
                S_BDTER FOR RESB-BDTER." Req. date
SELECTION-SCREEN END OF BLOCK BL1.
PARAMETERS: P_VARI LIKE DISVARIANT-VARIANT DEFAULT '/STANDARD'.
DATA: BEGIN OF OUT OCCURS 10,
        AUFNR LIKE RESB-AUFNR,         " Order number
        MATNR LIKE RESB-MATNR,         " Material
        BDMNG LIKE RESB-BDMNG,         " Requirements in UM
        MEINS LIKE RESB-MEINS,         " Unit of Measure (UM)
        ERFMG LIKE RESB-ERFMG,         " Requirements in UE
        ERFME LIKE RESB-ERFME,         " Unit of Entry (UE)
        MAKTX LIKE MAKT-MAKTX,         " Mat. description
      END OF OUT.
INCLUDE Z_ALV_VARIABLES.
INITIALIZATION.
REPNAME = SY-REPID.
PERFORM INITIALIZE_FIELDCAT USING FIELDTAB[].
PERFORM BUILD_EVENTTAB USING EVENTS[].
PERFORM BUILD_COMMENT USING HEADING[].
PERFORM INITIALIZE_VARIANT.
AT SELECTION-SCREEN ON VALUE-REQUEST FOR P_VARI.
PERFORM F4_FOR_VARIANT.
AT SELECTION-SCREEN.
PERFORM PAI_OF_SELECTION_SCREEN.
START-OF-SELECTION.
PERFORM GET_ORDERS.
PERFORM GET_MATERIAL_DESCRIPTION.
END-OF-SELECTION.
PERFORM BUILD_LAYOUT USING LAYOUT.
PERFORM BUILD_PRINT USING PRINTS.
PERFORM WRITE_USING_ALV.
      FORM INITIALIZE_FIELDCAT                               *
--> P_TAB                                                         *
FORM INITIALIZE_FIELDCAT USING P_TAB TYPE SLIS_T_FIELDCAT_ALV.
DATA: CAT TYPE SLIS_FIELDCAT_ALV.
CLEAR CAT.
ENDFORM.                               " INITIALIZE_FIELDCAT
*&      Form GET_ORDERS
      text
FORM GET_ORDERS.
SELECT AUFNR MATNR BDMNG MEINS ERFMG ERFME
         FROM RESB
         APPENDING TABLE OUT
         WHERE XLOEK EQ SPACE          " deletion indicator
         AND   XWAOK EQ 'X'            " goods movement indicator
         AND   WERKS IN S_WERKS        " plant
         AND   BDTER IN S_BDTER        " req. date
         AND   AUFNR IN S_AUFNR.       " pr. order
ENDFORM.                               " GET_ORDERS
*&      Form GET_MATERIAL_DESCRIPTION
      text
FORM GET_MATERIAL_DESCRIPTION.
SORT OUT BY MATNR.
LOOP AT OUT.
    SELECT SINGLE MAKTX
           INTO OUT-MAKTX
           FROM MAKT
           WHERE MATNR EQ OUT-MATNR
           AND   SPRAS EQ 'EN'.
    MODIFY OUT.
ENDLOOP.
SORT OUT BY AUFNR MATNR.
ENDFORM.                               " GET_MATERIAL_DESCRIPTION
      FORM TOP_OF_PAGE                                              *
FORM TOP_OF_PAGE.
DATA: L_POS TYPE P.
first line
WRITE:/ TEXT-001.                    " Plant:
IF S_WERKS-HIGH NE SPACE.
    WRITE: S_WERKS-LOW, TEXT-TO1, S_WERKS-HIGH.
ELSEIF S_WERKS-LOW NE SPACE.
    LOOP AT S_WERKS.
      WRITE: S_WERKS-LOW.
    ENDLOOP.
ELSEIF S_WERKS-LOW EQ SPACE.
    WRITE: TEXT-ALL.
ENDIF.
L_POS = ( SY-LINSZ DIV 2 ) - ( STRLEN( TEXT-TIT ) DIV 2 ).
POSITION L_POS. WRITE: TEXT-TIT.
L_POS = SY-LINSZ - 20.
POSITION L_POS. WRITE: TEXT-011, SY-UNAME RIGHT-JUSTIFIED. " User:
second line
WRITE:/ TEXT-002.                    " Order:
IF S_AUFNR-HIGH NE SPACE.
    WRITE: S_AUFNR-LOW, TEXT-TO1, S_AUFNR-HIGH.
ELSEIF S_AUFNR-LOW NE SPACE.
    LOOP AT S_AUFNR.
      WRITE: S_AUFNR-LOW.
    ENDLOOP.
ELSEIF S_AUFNR-LOW EQ SPACE.
    WRITE: TEXT-ALL.
ENDIF.
L_POS = SY-LINSZ - 20.
POSITION L_POS. WRITE: TEXT-012,SY-DATUM.      " Date:
third line
WRITE:/ TEXT-003.                    " Req. Date:
IF S_BDTER-HIGH(1) NE '0'.
    WRITE: S_BDTER-LOW, TEXT-TO1, S_BDTER-HIGH.
ELSEIF S_BDTER-LOW(1) NE '0'.
    LOOP AT S_BDTER.
      WRITE: S_BDTER-LOW.
    ENDLOOP.
ELSEIF S_BDTER-LOW(1) EQ '0'.
    WRITE: TEXT-ALL.
ENDIF.
L_POS = SY-LINSZ - 20.
POSITION L_POS. WRITE: TEXT-013, SY-PAGNO.   " Page:
ENDFORM.                               " TOP_OF_PAGE
      FORM END_OF_LIST                                              *
FORM END_OF_LIST.
DATA: L_POS TYPE P.
ULINE.
WRITE:/ '|', TEXT-021.      " Delivered by:
L_POS = SY-LINSZ DIV 2.
POSITION L_POS. WRITE: '|', TEXT-031.            " Received by:
L_POS = SY-LINSZ.
POSITION L_POS. WRITE: '|'.
WRITE:/ '|'.
L_POS = SY-LINSZ DIV 2.
POSITION L_POS. WRITE: '|'.
L_POS = SY-LINSZ.
POSITION L_POS. WRITE: '|'.
ULINE.
WRITE:/ '|', TEXT-012.      " Date:
L_POS = SY-LINSZ DIV 2.
POSITION L_POS. WRITE: '|', TEXT-012.            " Date:
L_POS = SY-LINSZ.
POSITION L_POS. WRITE: '|'.
WRITE:/ '|'.
L_POS = SY-LINSZ DIV 2.
POSITION L_POS. WRITE: '|'.
L_POS = SY-LINSZ.
POSITION L_POS. WRITE: '|'.
ULINE.
ENDFORM.                               " END_OF_LIST
*&      Form WRITE_USING_ALV
      text
FORM WRITE_USING_ALV.
CALL FUNCTION 'REUSE_ALV_FIELDCATALOG_MERGE'
       EXPORTING
            I_PROGRAM_NAME     = REPNAME
            I_INTERNAL_TABNAME = 'OUT'
            I_INCLNAME         = REPNAME
       CHANGING
            CT_FIELDCAT        = FIELDTAB.
IF SY-SUBRC <> 0.
    WRITE: 'SY-SUBRC: ', SY-SUBRC, 'REUSE_ALV_FIELDCATALOG_MERGE'.
ENDIF.
CALL FUNCTION 'REUSE_ALV_LIST_DISPLAY'
       EXPORTING
            I_CALLBACK_PROGRAM       = REPNAME
           i_callback_pf_status_set = 'PF_STATUS_SET'
           i_callback_user_command = 'USER_COMMAND'
            I_STRUCTURE_NAME         = 'OUT'
            IS_LAYOUT                = LAYOUT
            IT_FIELDCAT              = FIELDTAB
            I_DEFAULT                = 'A'
            I_SAVE                   = G_SAVE
            IS_VARIANT               = G_VARIANT
            IT_EVENTS                = EVENTS[]
            IS_PRINT                 = PRINTS
       TABLES
            T_OUTTAB                 = OUT.
IF SY-SUBRC <> 0.
    WRITE: 'SY-SUBRC: ', SY-SUBRC, 'REUSE_ALV_LIST_DISPLAY'.
ENDIF.
ENDFORM.                               " WRITE_USING_ALV
THESE LINES ARE FOR THE INCLUDE ***
***INCLUDE Z_ALV_VARIABLES .
TYPE-POOLS: SLIS.
DATA: FIELDTAB TYPE SLIS_T_FIELDCAT_ALV,
      HEADING TYPE SLIS_T_LISTHEADER,
      LAYOUT   TYPE SLIS_LAYOUT_ALV,
      EVENTS   TYPE SLIS_T_EVENT,
      REPNAME LIKE SY-REPID,
      F2CODE   LIKE SY-UCOMM VALUE '&ETA',
      PRINTS   TYPE SLIS_PRINT_ALV,
      TITLE(40) TYPE C,
      G_SAVE(1) TYPE C,
      G_EXIT(1) TYPE C,
      G_VARIANT LIKE DISVARIANT,
      GX_VARIANT LIKE DISVARIANT.
CONSTANTS: FORMNAME_TOP_OF_PAGE TYPE SLIS_FORMNAME VALUE 'TOP_OF_PAGE',
           FORMNAME_END_OF_PAGE TYPE SLIS_FORMNAME VALUE 'END_OF_PAGE',
           FORMNAME_END_OF_LIST TYPE SLIS_FORMNAME VALUE 'END_OF_LIST',
           FORMNAME_BEFORE_LINE TYPE SLIS_FORMNAME VALUE 'BEFORE_LINE',
           FORMNAME_AFTER_LINE TYPE SLIS_FORMNAME VALUE 'AFTER_LINE'.
      FORM MAIN_STATEMENTS                                          *
THIS IS THE CODE THAT MUST BE INSERTED IN THE MAIN PROGRAM
FORM MAIN_STATEMENTS.
Declare the parameter P_VARI wherever you want it. If you don't
want it, hide it with NO-DISPLAY, but it must exist.
parameters: p_vari like disvariant-variant. " ALV Variant
You have to add the following line after the data and parameter
declaration:
include z_alv_variables.
Then, after the data/parameter declaration, add these lines:
*initialization.
repname = sy-repid.
perform initialize_fieldcat using fieldtab[].
perform build_eventtab using events[].
perform build_comment using heading[].
perform initialize_variant.
If you are using the variable P_VARI (ALV Variant), also add this:
*at selection-screen on value-request for p_vari.
perform f4_for_variant.
*at selection-screen.
perform pai_of_selection_screen.
After the "END-OF-SELECTION" statement, add these lines:
perform build_layout using layout.
perform build_print using prints.
perform write_using_alv.
You also have to create the following forms: (you can find samples
in this program)
INITIALIZE_FIELDCAT
USER_COMMAND     (only if you are creating a STATUS)
WRITE_USING_ALV
ENDFORM.
*&      Form INITIALIZE_FIELDCAT_SAMPLE
      THIS IS A SAMPLE, DO NOT USE THIS FORM IN YOUR PROGRAM
     -->P_FIELDTAB[] text                                           *
FORM INITIALIZE_FIELDCAT_SAMPLE USING P_TAB TYPE SLIS_T_FIELDCAT_ALV.
DATA: CAT TYPE SLIS_FIELDCAT_ALV.
CLEAR CAT.                           " Always clear before use
CAT-TABNAME = 'I'.                   " Your internal table
CAT-REF_TABNAME = 'ZCUSTMAS'. " The data dictionary reference table
CAT-FIELDNAME = 'KUNNR'.       " Name of your field in the itable.
CAT-COL_POS   = 1.                   " Output position
APPEND CAT TO P_TAB.
CAT-FIELDNAME = 'NAME1'.             " Next field
CAT-COL_POS   = 2.
APPEND CAT TO P_TAB.
CAT-FIELDNAME = 'STRAS'.             " and the next
CAT-COL_POS   = 3.
APPEND CAT TO P_TAB.
CAT-FIELDNAME = 'LOEVM'.
CAT-SELTEXT_S = 'Del'.         " You can always override the descrip-
CAT-SELTEXT_M = 'Delivery'.          " tion (short, medium, large)
CAT-SELTEXT_L = 'Delivery Num'.
CAT-COL_POS   = 4.
APPEND CAT TO P_TAB.
CAT-FIELDNAME = 'FKIMG'.
CAT-DO_SUM    = 'X'.                 " You want totals calculated.
CAT-NO_OUT    = 'X'.                 " and hidden.
APPEND CAT TO P_TAB.
ENDFORM.                               " INITIALIZE_FIELDCAT
*&      Form BUILD_EVENTTAB
      THIS IS THE SAME FOR ALL THE PROGRAMS
     -->P_EVENTS[] text                                             *
FORM BUILD_EVENTTAB USING P_EVENTS TYPE SLIS_T_EVENT.
DATA: LS_EVENT TYPE SLIS_ALV_EVENT.
CALL FUNCTION 'REUSE_ALV_EVENTS_GET'
       EXPORTING
            I_LIST_TYPE = 0
       IMPORTING
            ET_EVENTS   = P_EVENTS.
READ TABLE P_EVENTS WITH KEY NAME = SLIS_EV_TOP_OF_PAGE
                           INTO LS_EVENT.
IF SY-SUBRC = 0.
    MOVE FORMNAME_TOP_OF_PAGE TO LS_EVENT-FORM.
    APPEND LS_EVENT TO P_EVENTS.
ENDIF.
CLEAR LS_EVENT.
READ TABLE P_EVENTS WITH KEY NAME = SLIS_EV_END_OF_LIST
                           INTO LS_EVENT.
IF SY-SUBRC = 0.
    MOVE FORMNAME_END_OF_LIST TO LS_EVENT-FORM.
    APPEND LS_EVENT TO P_EVENTS.
ENDIF.
CLEAR LS_EVENT.
READ TABLE P_EVENTS WITH KEY NAME = SLIS_EV_BEFORE_LINE_OUTPUT
                           INTO LS_EVENT.
IF SY-SUBRC = 0.
    MOVE FORMNAME_BEFORE_LINE TO LS_EVENT-FORM.
    APPEND LS_EVENT TO P_EVENTS.
ENDIF.
CLEAR LS_EVENT.
READ TABLE P_EVENTS WITH KEY NAME = SLIS_EV_AFTER_LINE_OUTPUT
                           INTO LS_EVENT.
IF SY-SUBRC = 0.
    MOVE FORMNAME_AFTER_LINE TO LS_EVENT-FORM.
    APPEND LS_EVENT TO P_EVENTS.
ENDIF.
CLEAR LS_EVENT.
READ TABLE P_EVENTS WITH KEY NAME = SLIS_EV_END_OF_PAGE
                           INTO LS_EVENT.
IF SY-SUBRC = 0.
    MOVE FORMNAME_END_OF_PAGE TO LS_EVENT-FORM.
    APPEND LS_EVENT TO P_EVENTS.
ENDIF.
ENDFORM.                               " BUILD_EVENTTAB
*&      Form BUILD_COMMENT
NOT REALLY NEEDED, BUT I'LL LEAVE IT THERE, JUST IN CASE...
     -->P_HEADING[] text                                            *
FORM BUILD_COMMENT USING P_HEADING TYPE SLIS_T_LISTHEADER.
DATA: HLINE TYPE SLIS_LISTHEADER,
        TEXT(60) TYPE C,
        SEP(20) TYPE C.
CLEAR: HLINE, TEXT.
HLINE-TYP = 'H'.
write: text-101 to text+23.
HLINE-INFO = TEXT.
APPEND HLINE TO P_HEADING.
ENDFORM.                               " BUILD_COMMENT
*&      Form INITIALIZE_VARIANT
VERY IMPORTANT WHEN YOU USE VARIANTS!!!
FORM INITIALIZE_VARIANT.
G_SAVE = 'A'.
CLEAR G_VARIANT.
G_VARIANT-REPORT = REPNAME.
GX_VARIANT = G_VARIANT.
CALL FUNCTION 'REUSE_ALV_VARIANT_DEFAULT_GET'
       EXPORTING
            I_SAVE     = G_SAVE
       CHANGING
            CS_VARIANT = GX_VARIANT
       EXCEPTIONS
            NOT_FOUND = 2.
IF SY-SUBRC = 0.
    P_VARI = GX_VARIANT-VARIANT.
ENDIF.
ENDFORM.                               " INITIALIZE_VARIANT
*&      Form PAI_OF_SELECTION_SCREEN
ALSO FOR VARIANTS
FORM PAI_OF_SELECTION_SCREEN.
IF NOT P_VARI IS INITIAL.
    MOVE G_VARIANT TO GX_VARIANT.
    MOVE P_VARI TO GX_VARIANT-VARIANT.
    CALL FUNCTION 'REUSE_ALV_VARIANT_EXISTENCE'
         EXPORTING
              I_SAVE     = G_SAVE
         CHANGING
              CS_VARIANT = GX_VARIANT
         EXCEPTIONS
              WRONG_INPUT   = 1
              NOT_FOUND     = 2
              PROGRAM_ERROR = 3.
    IF SY-SUBRC EQ 0.
      G_VARIANT = GX_VARIANT.
    ELSE.
      PERFORM INITIALIZE_VARIANT.
    ENDIF.
ELSE.
    PERFORM INITIALIZE_VARIANT.
ENDIF.
ENDFORM.                               " PAI_OF_SELECTION_SCREEN
*&      Form F4_FOR_VARIANT
      text
FORM F4_FOR_VARIANT.
CALL FUNCTION 'REUSE_ALV_VARIANT_F4'
       EXPORTING
            IS_VARIANT = G_VARIANT
            I_SAVE     = G_SAVE
       IMPORTING
            E_EXIT     = G_EXIT
            ES_VARIANT = GX_VARIANT
       EXCEPTIONS
            NOT_FOUND = 2.
IF SY-SUBRC = 2.
    MESSAGE ID SY-MSGID TYPE 'S'      NUMBER SY-MSGNO
            WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ELSE.
    IF G_EXIT = SPACE.
      P_VARI = GX_VARIANT-VARIANT.
    ENDIF.
ENDIF.
ENDFORM.                               " F4_FOR_VARIANT
*&      Form BUILD_LAYOUT
STANDARD LAYOUT
     -->P_LAYOUT text                                               *
FORM BUILD_LAYOUT USING P_LAYOUT TYPE SLIS_LAYOUT_ALV.
P_LAYOUT-F2CODE       = F2CODE.
P_LAYOUT-ZEBRA        = 'X'.
p_layout-detail_popup = 'X'.
P_LAYOUT-TOTALS_TEXT = SPACE.
P_LAYOUT-SUBTOTALS_TEXT = SPACE.
ENDFORM.                               " BUILD_LAYOUT
      FORM BUILD_PRINT                                              *
STANDARD PRINT OPTIONS                                             *
--> P_PRINT                                                       *
FORM BUILD_PRINT USING P_PRINT TYPE SLIS_PRINT_ALV.
P_PRINT-NO_PRINT_LISTINFOS = 'X'.
P_PRINT-NO_PRINT_SELINFOS = ' '.
ENDFORM.                               " BUILD_PRINT
      FORM PF_STATUS_SET                                            *
NAME YOUR STATUS ALV. IF YOU NEED IT..                             *
FORM PF_STATUS_SET USING EXTAB TYPE SLIS_T_EXTAB.
SET PF-STATUS 'ALV' EXCLUDING EXTAB.
ENDFORM.                               " PF_STATUS_SET
      FORM USER_COMMAND_SAMPLE                                      *
--> UCOMM                                                         *
--> SELFIELD                                                      *
FORM USER_COMMAND_SAMPLE USING UCOMM    LIKE SY-UCOMM
                           SELFIELD TYPE SLIS_SELFIELD.
CASE UCOMM.
    WHEN 'MSXL'.                       " Export to Excel
     perform set_excel_export.
      CLEAR UCOMM.
    WHEN 'MM03'.
     set parameter id 'MAT' field selfield-value.
     call transaction 'MM03' and skip first screen.
      CLEAR UCOMM.
    WHEN 'BGR1'.
     perform fill_available.
     perform graph_available.
      CLEAR UCOMM.
    WHEN 'DOCU'.
     call function 'Z_HELP' exporting repname = repname.
ENDCASE.
ENDFORM.                               " USER_COMMAND
*&      Form WRITE_USING_ALV_SAMPLE
*THIS IS A SAMPLE AND MUST BE WRITTEN DIRECTLY IN THE MAIN PROGRAM
FORM WRITE_USING_ALV_SAMPLE.
YOU CAN MERGE WITH A DATA DICTIONARY TABLE USING THIS:
call function 'REUSE_ALV_FIELDCATALOG_MERGE'
      exporting
           i_program_name     = repname
           i_internal_tabname = 'I'
           i_inclname         = repname
      changing
           ct_fieldcat        = fieldtab.
if sy-subrc <> 0.
   write: 'SY-SUBRC: ', sy-subrc, 'REUSE_ALV_FIELDCATALOG_MERGE'.
endif.
OR JUST DISPLAY IT USING THIS:
call function 'REUSE_ALV_LIST_DISPLAY'
      exporting
           i_callback_program       = repname
           i_callback_pf_status_set = 'PF_STATUS_SET'
           i_callback_user_command = 'USER_COMMAND'
           i_structure_name         = 'I'
           is_layout                = layout
           it_fieldcat              = fieldtab
           i_default                = 'A'
           i_save                   = g_save
           is_variant               = g_variant
           it_events                = events[]
           is_print                 = prints
      tables
           t_outtab                 = i.
if sy-subrc <> 0.
   write: 'SY-SUBRC: ', sy-subrc, 'REUSE_ALV_LIST_DISPLAY'.
endif.
ENDFORM.                               " WRITE_USING_ALV
thanks
mrutyun^

Catching the browser close event...

Hello Fellow Portal-Heads,
There's a nagging issue that I've been pondering (RE EP6 NW04). In the MSS iViews there is the potential issue of a user viewing an employee and then closing the browser via the 'X' (vs. clicking the logoff link). This 'X-ing' out of the browser leaves the viewed employee locked which is to be expected. So... anyone have a good way to catch the 'X-ing' out of the browser and then trigger some code to perform a proper logoff? I've tried inserting code in the masthead which catches a browser unonload() event... but it was not the smoothest operator.
Cheers,
Mike
Message was edited by: Mike Yang

Hi Mike,
I have got a chance to work in a similar issue.The following code traps the 'X' of the browser and logoff the user.
<script type="text/javascript">
window.onunload = function unloadEvent()
     if (gIsPreviewMode)
          return;
     else
          if(window.screenLeft < 10004)
                 //this is refresh
          else
               logoff();
</script>
Preview is taken care and the code is working fine. I am posting code so that somebody else can use it,
Regards
Message was edited by: Rem Swa
This is for EP6 SP2

Frame window closing

Hi friends,
please help me in following situation.
I have a frame1, where i have a button to open new frame2. this frame 2 opens some other frames.
When i close main frame1, i want to trigger a event or execute a method on other frames. i tried window closing and window closed events from frame1 or frame2.
frame2 and frame3 windows r just closing without any events when i close main frame1.
frame2 and frame3 must extend JFrame not JDialog.
thanks,

make in each frame a lille method that calls the next frame (if there is one) and waits until he gets something in return...
so 1 calls 2, 2 calls 3....
3 is the last frame and shuts itself down, but first it returns a value to 2.
then 2 knows it can return a value to 1 and closes itself...
that's the thing i would do... but never tried it yet so dunno about the speed it goes....
leme know if I helped you out.
SeJo

Closing a Swing App with Window Closing Event With Dialogs On Close

A while back I started a thread discussing how to neatly close a Swing app using both the standard window "X" button and a custom action such as a File menu with an Exit menu item. Ultimately, I came to the conclusion that the cleanest solution in many cases is to use a default close operation of JFrame.EXIT_ON_CLOSE and in any custom actions manually fire a WindowEvent with WindowEvent.WINDOW_CLOSING. Using this strategy, both the "X" button and the custom action act in the same manner and can be successfully intercepted by listening for a window closing event if any cleanup is required; furthermore, the cleanup could use dialogs to prompt for user actions without any ill effects.
I did, however, encounter one oddity that I mentioned in the previous thread. A dialog launched through SwingUtilities.invokeLater in the cleanup method would cause the app to not shutdown. This is somewhat of an academic curiosity as I am not sure you would ever have a rational need to do this, but I thought it would be interesting to explore more fully. Here is a complete example that demonstrates; see what you think:
import java.awt.event.ActionEvent;
import java.awt.event.ActionListener;
import java.awt.event.WindowAdapter;
import java.awt.event.WindowEvent;
import javax.swing.BoxLayout;
import javax.swing.JButton;
import javax.swing.JFrame;
import javax.swing.JOptionPane;
import javax.swing.JPanel;
import javax.swing.SwingUtilities;
public class CloseByWindowClosingTest {
     public static void main(String[] args) {
          SwingUtilities.invokeLater(new Runnable() {
               public void run() {
                    launchGUI();
     private static void launchGUI() {
          final JFrame frame = new JFrame("Close By Window Closing Test");
          JPanel panel = new JPanel();
          panel.setLayout(new BoxLayout(panel, BoxLayout.Y_AXIS));
          JButton button1 = new JButton("No Dialog Close");
          JButton button2 = new JButton("Dialog On Close");
          JButton button3 = new JButton("Invoke Later Dialog On Close");
          button1.addActionListener(new ActionListener() {
               public void actionPerformed(ActionEvent e) {
                    postWindowClosingEvent(frame);
          button2.addActionListener(new ActionListener() {
               public void actionPerformed(ActionEvent e) {
                    JOptionPane.showMessageDialog(frame, "Test Dialog");
                    postWindowClosingEvent(frame);
          button3.addActionListener(new ActionListener() {
               public void actionPerformed(ActionEvent e) {
                    SwingUtilities.invokeLater(new Runnable() {
                         public void run() {
                              JOptionPane.showMessageDialog(frame, "Test Dialog");
                    postWindowClosingEvent(frame);
          panel.add(button1);
          panel.add(button2);
          panel.add(button3);
          frame.setContentPane(panel);
          frame.pack();
          frame.setLocationRelativeTo(null);
          frame.setDefaultCloseOperation(JFrame.EXIT_ON_CLOSE);
          frame.addWindowListener(new WindowAdapter() {
               @Override
               public void windowClosing(WindowEvent event) {
                    System.out.println("Received Window Closing Event");
          frame.setVisible(true);
     private static void postWindowClosingEvent(JFrame frame) {
          WindowEvent windowClosingEvent = new WindowEvent(frame, WindowEvent.WINDOW_CLOSING);
          frame.getToolkit().getSystemEventQueue().postEvent(windowClosingEvent);
}An additional note not in the example -- if in the button 3 scenario you were to put the window closing event posting inside the invoke later, the app then again closes. However, as implemented, what is it that causes button 3 to not result in the application closing?
Edited by: Skotty on Aug 11, 2009 5:08 PM -- Modified example code -- added the WindowAdapter to the frame as a window listener to show which buttons cause listeners to receive the window closing event.

I'm not sure I understand why any "cleanup" code would need to use SwingUtilities.invokeLater() to do anything. Assuming this "cleanup method" was called in response to a WindowEvent, it's already being called on the EDT.
IIRC, my approach to this "problem" was to set the JFrame to DO_NOTHING_ON_CLOSE. I create a "doExit()" method that does any cleanup and exits the application (and possibly allows the user to cancel the app closing, if so desired). Then I create a WindowListener that calls doExit() on windowClosingEvents, and have my "exit action" call doExit() as well. Seems to work fine for me.

How do I find the root cause of a NetConnection closed event?

Hi,
I am maintaining a large project developed in Flex/Actionscript.
The application is using tunneling (RTMPT), and we often get Netconnection "closed" events.
There is no problem with the physical network.
I think the event may be caused by either a TCP/HTTP/RTMP event, or may be caused by
some function in the client calling close() on the connection.
How can I find the root cause of the "closed" event being thrown?
Thanks,
David

Thanks for the information. It is helpful but it seems there must be a specification of
what the client side is expecting, independent of any server implementation.
When I say client side, I mean the Adobe communication libraries.
Where is the specification or source code for how the client libraries treat HTTP tunneled requests and responses?
One question in particular: How does the client side library treat a
Connection: Keep-Alive
versuse
Connection:close
HTTP header setting?

How to get the closing event (not closed) of Dialog control

Hi All,
I have one requirement, that I have to close the Dialog box in an animated way like on clicking of the Dialog close button the popup has to close from top to bottom in a slide effect.
sap.ui.commons.Dialog
When I tried closed method of Dialog, it is calling only after dialog box closed but, I need the closing event rather closed event.
I am putting a UI5 view in Dialog as I need some custom/dynamic content in the dialog.
Please suggest the solution for this.
Thanks & Regards,
Pavan Thirunamala,
[Moderator Message - Please do not provide contact information like Phone Number etc in the discussion message. It has been removed.]
Message was edited by: Chandrashekhar Mahajan

JS Bin - Collaborative JavaScript Debugging</title> <link rel="alternate" type="application/jso…
            sap.ui.getCore().getEventBus().subscribe("sap.ui","__beforePopupClose",
function(channel, event, params)
debugger;
$(params.domNode).animate({
                  opacity : 1,
              height : 0

NetConnection.Connect.Closed event not triggered in Vista FF3 when in fullscreen mode

Hello Pals -
I'm trying to handle the net connection drop and provide some kind of visual cue to user. For this I'm listening to NetConnection.Connect.Closed event and when its triggered, I take further steps. The events are triggered in Vista FF3(window mode)/IE7 but in Vista FF3 full screen mode, the event is not triggered. I forcefully disconnect the network cable to see the NetConnection.Connect.Closed event is triggered.
I have following piece of code to listen to the event,
nc = new NetConnection;
nc.addEventListener(NetStatusEvent.NET_STATUS, onStatus, false, 0, true);
nc.connect();
public function onStatus(event:NetStatusEvent):void {
trace("Status " + event.info.level + " : " + event.info.code);
The function onStatus should be called whenever there is a status change in net connection. The events are not triggered in Vista FF3 full screen mode. Please share your views/ideas about this here. Thanks in advance. Please let me know incase more information is required.

The problem decribed as above was caused by a fragile and eventually broken soldered connection on the curcuit board. My local dealer replaced the curcuit board and everything works fine again.
I still wonder how that happend. I did not try to bend my MacBook and it did not fall of my desk.
Thanks for reading.

Default time frame for ICAL events

Ever since I upgraded to Lion, the default time frame for ICal events has been set to "entire day". Is there any way to change this?

Hi,
If you add a time to the event description, like "meeting 11am tomorrow", it should create an event (with the title "meeting" on tomorrows date at 11am with a duration of 1 hour.
Best wishes
John M

How do I stop iPhoto from repeatedly closing Event title boxes when I am in the middle of entering a title?

How do I stop iPhoto from repeatedly closing Event title boxes when I am in the middle of entering a title?
This problem started several months ago. I have tried typing more slowly and typing faster; neither help.
It now takes me about four attempts to complete a title of about twelve characters, achieving about three characters on each attempt.
I am running iPhoto 9.4.3 on OS X 10.8.3 on a 2.93 GHz Intel Quad-Core i7 iMac with 12 GB of DDR3 memory.

As a Test:
Hold down the option (or alt) key and launch iPhoto. From the resulting menu select 'Create Library'
Import a few pics into this new, blank library. Is the Problem repeated there?

How to display internal frame on click event from another internal frame

hi me developing desktop application in netbean. i have some problem. plz reply me as soon as possible. feedback me on [email protected]
1. I want to invoke an Internal Frame by click event that is in another internal frame. how i do it. I tried my best
2. how can i call reports (ireports) from swing application

Read the JInternalFrame API. You will find a link to the Swing tutorial on "How to Use Internal Frames" which contains a working example.

Detect window closing event in AIR application

How do I detect the window closing event in an AIR app? Tried
the following.
deactivate and windowDeactivate events in the
WindowedApplication tag.
addEventListener(Event.CLOSING, onClose);
addEventListener(AIREvent.APPLICATION_DEACTIVATE onClose);
addEventListener(AIREvent.WINDOW_DEACTIVATE, onClose);
None of them seem to work.
Any ideas?
Thanks
CS

The following works for me:
<mx:WindowedApplication xmlns:mx="
http://www.adobe.com/2006/mxml"
layout="absolute"
closing="traceEvent(event)"
windowDeactivate="traceEvent(event)"
applicationDeactivate="traceEvent(event)">
<mx:Script>
<![CDATA[
public function traceEvent(event:Event):void{
trace(event.type);
]]>
</mx:Script>
</mx:WindowedApplication>
As does:
<mx:WindowedApplication xmlns:mx="
http://www.adobe.com/2006/mxml"
layout="absolute"
applicationComplete="init()">
<mx:Script>
<![CDATA[
import mx.events.AIREvent;
public function init():void{
this.addEventListener(Event.CLOSING, traceEvent);
this.addEventListener(AIREvent.WINDOW_DEACTIVATE,
traceEvent);
this.addEventListener(AIREvent.APPLICATION_DEACTIVATE,
traceEvent);
public function traceEvent(event:Event):void{
trace(event.type);
]]>
</mx:Script>
</mx:WindowedApplication>

Catch frame's closing event

Similar Messages

Maybe you are looking for