RadioActionEntry not initialized correctly

[guest]

On:

data RadioActionEntry = RadioActionEntry {
radioActionName :: String
radioActionLabel :: String
radioActionStockId :: (Maybe String)
radioActionAccelerator :: (Maybe String)
radioActionTooltip :: (Maybe String)
radioActionValue :: Int
}

the function:

actionGroupAddRadioActions :: 
              ActionGroup -> [RadioActionEntry] -> Int -> (RadioAction -> IO ()) -> IO ()

does not initialize to the 3rd (Int) argument as it should. The last item in the list is always initialized visually, regardless of the argument's value. The function:

radioActionGetCurrentValue 

is defined as:

radioActionGetCurrentValue
:: RadioActionClass self	
=> self	
-> IO Int

but GHCi complains there is no instance for a

RadioActionEntry type. 

However, the function can be used inside the callback function (4th argument) to get the current value.

[axel]

This bug I understand no more than #1109, thus, I'm closing it due to lack of information.

[Alvaro]

A thing is not necessarily true because a man dies for it.

-- Oscar Wilde, "The Portrait of Mr. W.H."

impotenza erezione fioricet information compra cialis online tramadol pharmacy