如何使用GTKAda創建一個tearoff菜單？

Question

問題是自我解釋，如何使用GTKAda創建一個撕掉菜單？我無法讓它工作。

謝謝。

Answer 1

如果你添加了代碼你有你的問題，它會更具描述性。

我寫一些代碼來證明撕紙菜單與GTKAda的使用，它不是那麼困難，但它可能是很難找到它的文檔：

function CreateFileMenu(tearOff : boolean) return Gtk_Menu is 
    fileMenu : Gtk_Menu; 
    newFile, loadFile, saveFile, saveAs, close : Gtk_Menu_Item; 
begin 
    -- Create the menu: 
    Gtk_New(fileMenu); 

    -- Add the tear off item to the menu if required: 
    if tearOff then 
     declare 
      tear : Gtk_Tearoff_Menu_Item; 
     begin 
      Gtk_New(tear); 
      Append fileMenu, tear); 
      Show(tear); 
     end; 
    end if; 

    -- Create the rest of the menu items: 
    Gtk_New_With_Mnemonic(newFile, "_New"); 
    Gtk_New_With_Mnemonic(loadFile, "_Load"); 
    Gtk_New_With_Mnemonic(saveFile, "_Save"); 
    Gtk_New_With_Mnemonic(saveAs, "Save _as..."); 
    Gtk_New_With_Mnemonic(close, "_Close"); 

    -- Add the items to the menu: 
    Add(fileMenu, newFile); 
    Add(fileMenu, loadFile); 
    Add(fileMenu, saveFile); 
    Add(fileMenu, saveAs); 
    Add(fileMenu, close); 

    return fileMenu; 
end CreateFileMenu; 

的declare/begin/end結構允許您在運行時聲明變量。

boolean參數允許您在創建時決定是否要將其作爲撕下菜單。該功能只是創建菜單，因此您稍後必須將其添加到菜單欄（例如）。

Answer 2

不知道這是你在找什麼，但GtkAda參考手冊says：

所有在GtkAda菜單可以「撕下」菜單，即你可以從他們的父母分開它們（無論是菜單欄還是其他菜單）都可以讓它們始終顯示在屏幕上）。

因此，聽起來好像你不必做任何事情。