Melt butter in saucepan; add beer and onion. Cover and cook over low heat 30 minutes. Transfer saucepan to grill. Heat wieners on grill. While they grill, use tongs to dip them into beer sauce four or five times at 5-minute intervals. Serve wieners in buns; spoon cooked onion and sauce over wieners.